, hvis du har en arbejdsplan, som indeholder de skemaer, som efter skærmbillede vises, og de ønsker at erstatte teksten i januar februar inden for alle de kort titler.selvfølgelig kan du ændre manuelt dem en efter en, men det vil være tidskrævende, hvis der er flere kort.så her er følgende vba kode kan hjælpe dig med at løse denne opgave. < /p >,,,,,, 1.aktiver din arbejdsplan, som indeholder de kort, de vil finde og erstatte i deres titler.,,,. 2.hold den, alat + f11, nøgler, og det åbner, microsoft visual basic for ansøgninger vindue,.,,, 3.klik, indsæt >, modul, og pasta følgende kode i modul vindue,.,,, vba kode: finde og erstatter teksten i figur titler i aktive kladde,,,, - chartlabelreplace() "ajourføring 20140603 dim xws som kladde dim xfindstr som snor dim xreplace som snor xfindstr = anvendelse. inputbox (" find ", xtitleid", ", type: = 2) xreplace = anvendelse. inputbox (" i stedet for ", xtitleid", ", type: = 2) xws = application.activesheet for hver ch i xws.chartobjects, hvis ch.chart.hastitle så ch.chart.charttitle.text = vba. erstatte (ch.chart.charttitle.text, xfindstr, xreplace, 1) hvis næste ende ubåd,,, 4.så tryk, f5, nøglen til at løbe denne kode, og en hurtig boks vil springe ud til at minde dig ind i din gamle tekst, som de ønsker at erstatte, se skærmbillede:,,,,,,. 5.og så klik, ok, knap, og en hurtig rubrik dukker op, er du nødt til at skrive deres nye tekst værdi, som de ønsker at erstatte den gamle, se skærmbillede:,,,,,, 6.gå du, ok, tæt på hurtig kasse, og din gamle tekster er blevet erstattet af et nyt på én gang i den nuværende arbejdsplan, som efter skærmbillede vist:,,,,,, besked, hvis du har brug for at finde og erstatte teksten værdi af figur titler i alle de papirer i et hæfte, bør de anvende som følge af vba kode: (fremgangsmåden er den samme som den ovenfor), vba kode: finde og erstatter teksten i figur titler i alle papirer,,, - chartlabelreplaceallworksheet() "ajourføring 20140603 dim xfindstr som snor dim xreplace som snor xfindstr = anvendelse. inputbox (" find ", xtitleid", ", type: = 2) xreplace = anvendelse. inputbox (" i stedet for ", xtitleid", ", type: = 2) for hver sh i papirer for hver ch i sh.chartobjects hvis kap. chart.hastitle så ch.chart.charttitle.text = vba. erstatte (ch.chart.charttitle.text, xfindstr, xreplace, 1), hvis næste ende afrika,,,,