Kako najti in zamenjati besedilo v naslovih grafikonov v Excelu?
Grafikoni so za nas v Excelu zelo koristni in jim pogosto damo nekaj naslovov za njihovo prepoznavanje. Ali ste že poskušali najti in nadomestiti besedilno vrednost v naslovih grafikonov znotraj več grafikonov? Danes bom govoril o tem, kako najti določeno besedilo v več ploščicah grafikonov in jih nadomestiti z drugo vrednostjo v Excelu.
Poiščite in zamenjajte besedilo v naslovih grafikonov v Excelu s kodo VBA
Poiščite in zamenjajte besedilo v naslovih grafikonov v Excelu s kodo VBA
Recimo, da imate delovni list, ki vsebuje grafikone, kot je prikazano na sliki spodaj, in želite besedilo januar do februarja nadomestiti samo z vsemi naslovi grafikonov. Seveda jih lahko ročno spreminjate enega za drugim, vendar bo to zamudno, če obstaja več grafikonov. Torej, naslednja koda VBA vam lahko pomaga pri reševanju te naloge. </ P>
1. Aktivirajte svoj delovni list, ki vsebuje karte, ki jih želite najti in zamenjati v njihovih naslovih.
2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: poiščite in zamenjajte besedilo v naslovih grafikonov na aktivnem delovnem 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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo na vnos starega besedila, ki ga želite zamenjati, glejte posnetek zaslona:
5. In nato kliknite OK in prikaže se novo pozivno polje, vnesite novo besedilno vrednost, ki jo želite zamenjati, glejte posnetek zaslona:
6. Pojdi na klik OK , da zaprete polje za poziv, in so vaša stara besedila na trenutnem delovnem listu hkrati zamenjala novice, kot je prikazano na sliki spodaj:
Opombe: Če morate najti in nadomestiti besedilno vrednost naslovov grafikonov na vseh delovnih listih v delovnem zvezku, uporabite naslednjo kodo VBA: (Postopek je enak zgornjemu)
Koda VBA: poiščite in zamenjajte besedilo v naslovih grafikonov na vseh delovnih listih
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
Sorodni članki:
Kako najti in nadomestiti besedilo v komentarjih v Excelu?
Kako najti in zamenjati določeno besedilo v več besedilnih poljih programa Excel?
Kako spremeniti več poti hiperpovezav hkrati v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!