Använd Excels inbyggda programmeringsspråk Visual Basic for Applications , eller VBA , att ersätta en sträng inom citationstecken med det språket är Replace funktionen . Denna funktion söker efter en delsträng du anger inom en större sträng , därefter ersätter delsträng med en tredje sträng som du lämnar . Observera att denna operation inte förändrar den ursprungliga strängen , men matar ut en ny sträng , som du kan fånga i en ny sträng variabel . Du kan använda vad du lärt dig i detta projekt för att ta bort överflödiga citattecken som användarna av din VBA -program in i kalkylblad . Instruktioner
1
Klicka på " Arkiv " -menyn " Option " -knappen , klicka sedan på " Anpassa menyfliksområdet " kontroll i " Kategorier " rutan . Klicka på " Developer " kryssrutan för att ange att du vill visa den fliken , och sedan stänga alla öppna dialogrutor . Excel visar nu " Utvecklare " fliken . Detta steg kan du ange VBA utvecklingsmiljön genom " Utvecklare " fliken för " Visual Basic "-knappen .
2
Klicka på " Utvecklare " fliken, klicka sedan på " Visual Basic " knappen för att öppna VBA-programmering miljö . Klicka på " Infoga "-fliken i miljön , och klicka på " Module " -kommandot för att infoga ett nytt fönster för att ange VBA uttalanden . Addera 3
Klistra in följande program delen i fönstret du just skapade . Detta fragment definierar en sträng variabel och tilldelar den en sträng som är inom citationstecken . Fragmentet använder Chr uttalande att lägga till citattecken . Om du försöker lägga till citat utan en hjälpande funktion såsom Chr kommer utvecklingsmiljö rapportera ett syntaxfel . Anledningen är att VBA syntaxen checker tolkar varje par av bokstavliga citattecken som en ny sträng.
Sub replaceQuotedString ( ) Dim x , longerString , newString Som Stringx = Chr ( 34 ) & "abc" & , Chr ( 34 ) End Sub
4
Klistra in följande program fragment efter den sista " X = " uttalande i det föregående fragmentet . Detta fragment gör uppdrag till två nya strängar . Den första uppgiften är att strängen " longerString , " och innehåller " X " variabel med citattecken . Ersätt -funktionen utför andra uppdrag , vilket är att denna funktion ersätter en delsträng av en längre sträng med en annan sträng
longerString = " Låt oss ersätta denna sträng: " " newString . " . & XnewString = Ersätt ( longerString , x , " abc " )
5
Klicka något uttalande i programmet , tryck på " F8 " för att aktivera läget för att köra program ett uttalande i taget . Tryck " F8 " upprepade gånger tills meddelandet med " newString " är markerat .
6
muspekaren över " longerString " variabel . VBA visar strängens värde , vilket inkluderar variabeln X med dess citerade strängen " abc ".
7
Press " F8 " igen för att köra Ersätt uttalande , och håller musen över den " newString " variabel . VBA visas en sträng med samma värde som " longerString , " men med en ny sträng i stället för den citerade " abc " delen . Den nya strängen är " abc " utan citattecken .
