Hogyan lehet megkeresni és lecserélni a szöveget az Excel diagramcímeiben?
A diagramok nagyon hasznosak számunkra az Excelben, és gyakran adunk nekik néhány címet az azonosításhoz. De megpróbálta megkeresni és kicserélni a diagramcímek szövegértékét több diagramon belül? Ma arról fogok beszélni, hogyan lehet egy adott szöveget több diagramcsempében megtalálni, és az Excel más értékével helyettesíteni.
Keresse meg és cserélje le a szöveget az Excel diagramcímeiben VBA kóddal
Keresse meg és cserélje le a szöveget az Excel diagramcímeiben VBA kóddal
Tegyük fel, hogy van egy munkalapja, amely tartalmazza a diagramokat az alábbi képernyőképen, és a januártól februárig kívánja cserélni a szöveget csak az összes diagramcímben. Természetesen manuálisan módosíthatja őket egyenként, de ez sok időt igényel, ha több diagram van. Tehát itt a következő VBA-kód segíthet ebben a feladatban. </ P>
1. Aktiválja a munkalapot, amely tartalmazza azokat a diagramokat, amelyeket a címükben meg akar találni és cserélni.
2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Keresse meg és cserélje le a szöveget a diagramcímekben az aktív munkalapon belül
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt a régi szöveg beírására, amelyet cserélni szeretne, lásd a képernyőképet:
5. Kattintson a gombra OK gombra, és megjelenik egy újabb prompt doboz, be kell írnia az új szövegértéket, amelyet le akar cserélni a régivel, lásd a képernyőképet:
6. Kattintson a gombra OK bezárja a felszólító mezőt, és a régi szövegeket egyszerre váltotta fel a hír az aktuális munkalapon, az alábbi képernyőkép szerint:
Megjegyzések: Ha meg kell találnia és ki kell cserélnie a munkafüzet összes munkalapján a diagramcímek szövegértékét, akkor a következő VBA-kódot kell alkalmaznia: (Az eljárás megegyezik a fentiekkel)
VBA-kód: Keresse meg és cserélje le a táblázatokban található szöveget az összes munkalapon
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
Kapcsolódó cikkek:
Hogyan lehet megkeresni és kicserélni a szöveget az Excel megjegyzései között?
Hogyan lehet megtalálni és kicserélni az adott szöveget az Excel több szövegmezőjében?
Hogyan lehet egyszerre több hiperhivatkozási utat módosítani az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!