Jak najít a nahradit text v nadpisech grafů v aplikaci Excel?
Grafy jsou pro nás v aplikaci Excel velmi užitečné a často jim dáváme názvy, abychom je mohli identifikovat. Ale pokusili jste se najít a nahradit textovou hodnotu v nadpisech grafů ve více grafech? Dnes budu mluvit o tom, jak najít konkrétní text v několika dlaždicích grafu a nahradit je jinou hodnotou v aplikaci Excel.
Najděte a nahraďte text v nadpisech grafů v aplikaci Excel kódem VBA
Najděte a nahraďte text v nadpisech grafů v aplikaci Excel kódem VBA
Předpokládejme, že máte list, který obsahuje grafy, jak ukazuje následující snímek obrazovky, a chcete nahradit text Leden do února pouze ve všech názvech grafů. Samozřejmě je můžete měnit jeden po druhém, ale to bude časově náročné, pokud existuje více grafů. Následující kód VBA vám tedy může pomoci při řešení tohoto úkolu. </ P>
1. Aktivujte pracovní list, který obsahuje grafy, které chcete v jejich názvech najít a nahradit.
2. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Najít a nahradit text v názvech grafů v aktivním listu
Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
End Sub
4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyskočí okno s výzvou, které vám připomene zadání starého textu, který chcete nahradit, viz screenshot:
5. A pak klikněte na tlačítko OK Tlačítko a objeví se další okno s výzvou, musíte zadat novou textovou hodnotu, kterou chcete nahradit starou, viz screenshot:
6. Pokračujte kliknutím OK zavřete pole s výzvou a vaše staré texty byly v aktuálním listu nahrazeny novinkami najednou, jak ukazuje následující snímek obrazovky:
Poznámka: Pokud potřebujete najít a nahradit textovou hodnotu nadpisů grafů ve všech listech v sešitu, měli byste použít následující kód VBA: (Postup je stejný jako výše)
Kód VBA: Najděte a nahraďte text v nadpisech grafů ve všech pracovních listech
Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
Next
End Sub
Související články:
Jak najít a nahradit text v komentářích v aplikaci Excel?
Jak najít a nahradit konkrétní text ve více textových polích aplikace 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!