Jak najít a nahradit konkrétní text v textových polích?
Najít a nahradit je užitečným nástrojem pro rychlé a pohodlné vyhledání a nahrazení obsahu buněk nebo vzorců v listu. Ale teď mám v listu více textových polí a chci najít konkrétní text a nahradit ho jinou hodnotou pouze v těchto textových polích. Máte nějaké dobré způsoby, jak se s tímto problémem vypořádat?
Najděte a nahraďte konkrétní text ve více textových polích
Najděte a nahraďte konkrétní text ve více textových polích
Text, který potřebujete, můžete najít a nahradit ručně jeden po druhém, ale pokud existuje více textových polí, bude to nudné a unavené. Následující kód VBA vám tedy může pomoci jej dokončit najednou.
1. Aktivujte svůj list a podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Najděte a nahraďte konkrétní text v textových polích aktuálního listu
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. Pak stiskněte tlačítko F5 Chcete-li spustit tento kód, zobrazí se okno s výzvou, které vám připomene zadání starého textu, který chcete nahradit. Viz snímek obrazovky:
4. Pokračujte kliknutím OKa v tomto řádku s výzvou zadejte novou požadovanou textovou hodnotu, viz screenshot:
5. A pak klikněte na tlačítko OK tlačítko, byly staré hodnoty nahrazeny novými hodnotami, které jste zadali v aktuálním listu. Zobrazit snímky obrazovky:
 |
 |
 |
Související články:
Jak najít a nahradit text v nadpisech grafů v aplikaci Excel?
Jak najít a nahradit text v komentářích v aplikaci Excel?
Jak změnit více cest hypertextových odkazů v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
