Ինչպե՞ս գտնել և փոխարինել որոշակի տեքստ տեքստային տուփերում:
Գտեք և փոխարինեք մեզ համար օգտակար գործիք է աշխատանքային թերթում արագ և հարմար կերպով գտնելու և փոխարինելու բջիջների պարունակությունները կամ բանաձևերը: Բայց հիմա, իմ աշխատաթերթում ես ունեմ բազմաթիվ տեքստային տուփեր և ուզում եմ գտնել այս տեքստը և այն փոխարինել այլ արժեքով միայն այս տեքստային տուփերում: Այս խնդրի լուծման լավ ուղիներ ունե՞ք:
Գտեք և փոխարինեք հատուկ տեքստը բազմաթիվ տեքստային տուփերում
Գտեք և փոխարինեք հատուկ տեքստը բազմաթիվ տեքստային տուփերում
Կարող եք ձեռքով մեկ առ մեկ գտնել և փոխարինել անհրաժեշտ տեքստը, բայց եթե կան բազմաթիվ տեքստային տուփեր, դա կլինի ձանձրալի և հոգնած: Այսպիսով, հետևյալ VBA կոդը կարող է օգնել ձեզ միանգամից ավարտել այն:
1, Ակտիվացրեք ձեր աշխատանքային թերթը և պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Գտեք և փոխարինեք որոշակի տեքստ ընթացիկ աշխատանքային թերթի տեքստային տուփերում
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. Այնուհետեւ սեղմեք F5 այս կոդը գործարկելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ մուտքագրեք ձեր հին տեքստը, որը ցանկանում եք փոխարինել: Տեսեք,
4, Անցեք կտտացնելով OK, և այս հուշման վանդակում մուտքագրեք նոր տեքստի արժեքը, որը ցանկանում եք, տես նկարի նկարը.
5. Եվ այնուհետեւ կտտացրեք OK կոճակը, հին արժեքները փոխարինվել են նոր արժեքներով, որոնք դուք մուտքագրել եք ընթացիկ աշխատանքային թերթում: Տեսեք սքրինշոթեր.
 |
 |
 |
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս գտնել և փոխարինել տեքստը Excel- ում գծապատկերների վերնագրերում:
Ինչպե՞ս գտնել և փոխարինել տեքստը Excel- ի մեկնաբանություններում:
Ինչպե՞ս փոխել մի քանի հիպերհղման ուղիներ միանգամից Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
