كيفية البحث عن واستبدال في رأس أو تذييل في إكسيل؟
العثور على قيمة معينة ثم استبدالها بقيمة أخرى في Excel أمر شائع في عملنا اليومي ، ولكن في Excel ، تعمل وظيفة البحث والاستبدال بشكل جيد في التحديد والأوراق والمصنف ، ولكن لا يمكن العثور عليها واستبدالها في الرأس والتذييل. في هذه المقالة ، أقدم رمز ماكرو للبحث عن القيم واستبدالها في الرأس والتذييل.
البحث عن رأس أو تذييل الصفحة واستبداله باستخدام VBA
البحث عن رأس أو تذييل الصفحة واستبداله باستخدام VBA
1. قم بتمكين الورقة التي تريد البحث عنها واستبدالها في الرأس والتذييل ، واضغط على ALT + 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. الآن القيم "KTE" تم استبدالها "Kutools for Excel" في رأس وتذييل الصفحة.
معلومه- سرية: إذا كنت تريد العمل في المصنف بأكمله ، يمكنك استخدام رمز الماكرو أدناه.
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
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!