Hur hittar jag och ersätter text i diagramtitlar i Excel?
Diagram är mycket användbara för oss i Excel, och vi ger dem ofta några titlar för att identifiera dem. Men har du försökt hitta och ersätta textvärdet i diagramtitlar i flera diagram? Idag ska jag prata om hur man hittar en specifik text i flera diagramplattor och ersätter dem med annat värde i Excel.
Hitta och ersätt text i diagramtitlar i Excel med VBA-kod
Hitta och ersätt text i diagramtitlar i Excel med VBA-kod
Om du antar att du har ett kalkylblad som innehåller diagrammen som följande skärmdump visas, och att du bara vill ersätta texten januari till februari inom alla diagramtitlarna. Naturligtvis kan du ändra dem manuellt en efter en, men det är tidskrävande om det finns flera diagram. Så här kan följande VBA-kod hjälpa dig att hantera den här uppgiften. </ P>
1. Aktivera ditt kalkylblad som innehåller diagrammen du vill hitta och ersätta i deras titlar.
2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Hitta och ersätt text i diagramtitlar i det aktiva kalkylbladet
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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att skriva in din gamla text som du vill ersätta, se skärmdump:
5. Och klicka sedan på OK -knappen, och en annan snabbruta dyker upp, du måste skriva in ditt nya textvärde som du vill ersätta det gamla, se skärmdump:
6. Fortsätt klicka OK för att stänga snabbrutan, och dina gamla texter har ersatts av nyheterna samtidigt i det aktuella kalkylbladet enligt följande skärmdump:
Anmärkningar: Om du behöver hitta och ersätta textvärdet för diagramtitlar i alla kalkylblad i en arbetsbok, bör du tillämpa följande VBA-kod: (Proceduren är densamma som ovan)
VBA-kod: Hitta och ersätt text i diagramtitlar inom alla kalkylblad
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
Relaterade artiklar:
Hur hittar jag och ersätter text i kommentarer i Excel?
Hur hittar jag och ersätter specifik text i flera textrutor i Excel?
Hur ändrar jag flera hyperlänkvägar samtidigt i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
