, stel je voor dat je een tabel met de kaart, waarbij de volgende screenshot, je moet worden vervangen door de tekst in januari - februari alle titels van de kaart.Natuurlijk, je kan een verandering, maar als er meer dan één kaart, dit is tijdrovend.Dus hier, onder de VBA code kan je helpen met deze taak. < /P >,,,,,, 1.- je werk, met inbegrip van de kaarten en je wilt vinden, in de titel 2, vervangen.Op het Alt+F11, sleutels, het openstellen van Microsoft de visuele van toepassing.,,,,, 3.- steek, >, modules en gebruik de volgende codes, module.,,,,, de VBA code: zoeken en wordt vervangen door de tekst in de titels van de kaart in de activiteiten van tabel,,,, - chartlabelreplace () de bijwerking van de 20140603 schemering xfindstr XWS als tabel string Fuzzy xreplace string xfindstr = toepassing van inputbox ("gevonden. Xtitleid", ",, type: = 2) xreplace = toepassing. Inputbox (" vervangen door ", xtitleid,", type: = 2) de vaststelling van een XWS = application.activesheet xws.chartobjects CH als ch.chart.hastitle dan in elk ch.chart.charttitle.text = de VBA. Vervangen (ch.chart.charttitle.text, xfindstr, xreplace, 1) als een,,, 4.En de pers F5, exploitatie van de code, en zal er een doos om je eraan te herinneren in je oude tekst te vervangen, een screenshot:,,,,,, 5.En druk op de knop, de ander,, waaruit blijkt dat de doos, je moet in de nieuwe tekst zal de waarde van de vervanging van de oude, zie schoten:,,,,,, 6.Blijven de klik, sluit de dozen, en je de oude tekst wordt vervangen door de tabel in het nieuws een screenshot als volgt:,,,,,, dat als je moet vinden in het werk van alle in het Werkboek wordt vervangen door de tabel in de titels van de kaart moeten gebruiken om de waarde van je tekst, in het kader van de VBA (code: methode Ibid.),,, de VBA code: zoeken en wordt vervangen door de tekst in de titels van de kaart in alle bladen,,, - chartlabelreplaceallworksheet () de bijwerking van de 20140603 schemering xreplace xfindstr string xfindstr = toepassing. Inputbox ("ontdekking", xtitleid, ", type: = 2) xreplace = toepassing van inputbox (". De vervanging van xtitleid ",",, type: = 2) voor elke in de tabel zijn sh.chartobjects - CH - CH - alsArt.hastitle dan ch.chart.charttitle.text = de VBA. Vervangen (ch.chart.charttitle.text, xfindstr, xreplace, 1) als in het kader van het einde van de,,,,