Jak znaleźć i zamienić określony tekst w polach tekstowych?
Znajdź i zamień to przydatne narzędzie do szybkiego i wygodnego znajdowania i zastępowania zawartości komórek lub formuł w arkuszu. Ale teraz mam wiele pól tekstowych w moim arkuszu i chcę znaleźć określony tekst i zastąpić go inną wartością tylko w tych polach tekstowych. Czy masz jakieś dobre sposoby na rozwiązanie tego problemu?
Znajdź i zamień określony tekst w wielu polach tekstowych
Znajdź i zamień określony tekst w wielu polach tekstowych
Możesz znaleźć i zamienić tekst, którego potrzebujesz, ręcznie jeden po drugim, ale jeśli jest wiele pól tekstowych, będzie to nudne i zmęczone. Tak więc poniższy kod VBA może pomóc w ukończeniu go od razu.
1. Aktywuj arkusz roboczy i przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: znajdź i zamień określony tekst w polach tekstowych bieżącego arkusza roboczego
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. Następnie naciśnij F5 aby uruchomić ten kod, pojawi się okienko z przypomnieniem o wprowadzeniu starego tekstu, który chcesz zastąpić. Zobacz zrzut ekranu:
4. Kliknij dalej OKiw tym polu zachęty wpisz nową wartość tekstową, którą chcesz, zobacz zrzut ekranu:
5. A następnie kliknij OK przycisk, stare wartości zostały zastąpione nowymi wartościami wprowadzonymi w bieżącym arkuszu. Zobacz zrzuty ekranu:
Podobne artykuły:
Jak znaleźć i zamienić tekst w tytułach wykresów w programie Excel?
Jak znaleźć i zamienić tekst w komentarzach w programie Excel?
Jak zmienić wiele ścieżek hiperłączy jednocześnie w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!