Hogyan keressünk és cseréljünk ki szöveget a szövegdobozokban?
A Keresés és csere hasznos eszköz számunkra, hogy gyorsan és kényelmesen megtaláljuk és lecseréljük a cellatartalmakat vagy képleteket egy munkalapon. Most azonban több szövegmező van a munkalapomban, és meg akarom találni a konkrét szöveget, és csak ezekben a szövegmezőkben cserélem ki más értékkel. Van valami jó módja ennek a problémának a kezelésére?
Keressen és cseréljen le egy adott szöveget több szövegmezőben
Keressen és cseréljen le egy adott szöveget több szövegmezőben
Manuálisan egyenként megtalálhatja és kicserélheti a szükséges szöveget, de ha több szövegmező van, akkor ez unalmas és fáradt lesz. Tehát a következő VBA-kód segíthet az elkészítésében.
1. Aktiválja a munkalapot, és tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA-kód: Meghatározott szöveg megkeresése és cseréje az aktuális munkalap szövegmezőiben
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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt a régi szöveg beírására, amelyet cserélni szeretne. Lásd a képernyőképet:
4. Kattintson a gombra OK, és ebben a prompt mezőbe írja be a kívánt új szöveges értéket, lásd a képernyőképet:
5. Kattintson a gombra OK gombra, a régi értékek kicserélődtek az aktuális munkalapon megadott új értékekre. Képernyőképek megtekintése:
Kapcsolódó cikkek:
Hogyan lehet megkeresni és lecserélni a szöveget az Excel diagramcímeiben?
Hogyan lehet megkeresni és kicserélni a szöveget az Excel megjegyzései között?
Hogyan lehet egyszerre több hiperhivatkozási utat módosítani az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!