Ինչպե՞ս գտնել և փոխարինել վերնագրում կամ էջատակում Excel- ում:
Հատուկ արժեք գտնելը և այնուհետև Excel- ում այլ արժեքով փոխարինելը սովորական բան է մեր ամենօրյա աշխատանքում, բայց Excel- ում «Գտիր և փոխարինիր» գործառույթը լավ է աշխատում ընտրության, թերթիկների և աշխատանքային գրքում, բայց չի կարող գտնել և փոխարինել վերնագրում և էջատակում: Այս հոդվածում ես ներմուծում եմ մակրո կոդ ՝ վերնագրի և տողատակի արժեքները գտնելու և փոխարինելու համար:
Գտեք և փոխարինեք վերնագրում կամ էջատակում VBA- ով
Գտեք և փոխարինեք վերնագրում կամ էջատակում VBA- ով
1. Միացրեք թերթիկը, որը ցանկանում եք գտնել և փոխարինել վերնագրում և էջատակում, սեղմել Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներև տեղադրեք VBA կոդի ներքո Մոդուլում: Տեսեք,
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 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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: