एक्सेल में हेडर या फ़ूटर को कैसे ढूंढें और बदलें?
एक्सेल में एक विशिष्ट मान ढूंढना और फिर उसे किसी अन्य मान से बदलना हमारे दैनिक कार्य में आम बात है, लेकिन एक्सेल में, फाइंड एंड रिप्लेस फ़ंक्शन चयन, शीट और वर्कबुक में अच्छी तरह से काम करता है, लेकिन हेडर और फुटर में ढूंढ और रिप्लेस नहीं कर पाता है। इस लेख में, मैं हेडर और फ़ूटर में मान ढूंढने और बदलने के लिए एक मैक्रो कोड पेश करता हूं।
शीर्षलेख या पादलेख में VBA ढूंढें और बदलें
शीर्षलेख या पादलेख में VBA ढूंढें और बदलें
1. जिस शीट को आप ढूंढना और बदलना चाहते हैं उसे हेडर और फ़ूटर में सक्षम करें, दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे VBA कोड को मॉड्यूल में पेस्ट करें। स्क्रीनशॉट देखें:
वीबीए: शीर्षलेख और पादलेख में ढूंढें और बदलें
Sub FnR_HF()
'UpdateByExtendoffice20160623
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
With ActiveSheet.PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
End Sub
3. फिर दबाएं F5 कोड को चलाने के लिए कुंजी, फिर आपके लिए वह टेक्स्ट दर्ज करने के लिए एक संवाद पॉप आउट होता है जिसे आप ढूंढना चाहते हैं। स्क्रीनशॉट देखें:
4। क्लिक करें OK, और जिस पाठ को आप बदलना चाहते हैं उसे दर्ज करने के लिए एक अन्य संवाद पॉप आउट होता है। स्क्रीनशॉट देखें:
5। क्लिक करें OK. अब मूल्य "केटीई" से प्रतिस्थापित कर दिया गया है "एक्सेल के लिए कुटूल" शीर्ष लेख और पाद लेख में.
टिप: यदि आप संपूर्ण कार्यपुस्तिका पर काम करना चाहते हैं, तो आप नीचे दिए गए मैक्रो कोड का उपयोग कर सकते हैं।
Sub FnR_HF()
'UpdateByExtendoffice20171122
Dim I As Long
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
For I = 1 To ActiveWorkbook.Sheets.Count
With Sheets(I).PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
Next
End Sub
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!