Bruk Excel innebygde programmeringsspråket Visual Basic for Applications , eller VBA , for å erstatte en streng i anførselstegn ved hjelp av dette språkets Erstatt funksjon. Denne funksjonen søker etter en delstrengen du angir i en større streng bytter deretter delstrengen med en tredje streng som du oppgir. Merk at denne operasjonen ikke endrer den opprinnelige strengen , men sender en ny streng , som du kan fange i en ny streng variabel . Du kan bruke det du har lært i dette prosjektet for å fjerne overflødige anførselstegn at brukerne av VBA- programmer inn i regneark . Instruksjoner
en
Klikk på " File" -menyen er " Option "-knappen , og klikk deretter på " Tilpass båndet " kontroll i " kategorier " -panelet . Klikk på " Developer " sjekkheftet for å indikere at du ønsker å vise den fanen , og lukk alle åpne dialogbokser . Excel vil nå vise " Utvikler " fanen . Dette trinnet kan du gå inn i VBA utviklingsmiljø gjennom " Utvikler " fanen " Visual Basic" -knappen.
2
Klikk på " Utvikler " fanen , og klikk deretter på " Visual Basic" -knappen for å gå inn i VBA programmering miljø . Klikk på "Sett inn "-kategorien i miljøet , og klikk deretter på " Module" -kommandoen for å sette inn et nytt vindu for å angi VBA uttalelser .
3
Lim inn følgende program delen inn i vinduet du nettopp opprettet. Dette fragment definerer en streng variabel , og tildeler den en streng som er innenfor anførselstegn. Fragmentet bruker Chr uttalelse for å legge til anførselstegn. Hvis du prøver å legge til sitater uten en hjelpende funksjon, for eksempel Chr. vil utviklingsmiljø rapportere en syntaksfeil . Årsaken er at VBA syntakskontrollen tolker hvert par av bokstavelig anførselstegn som en ny streng.
Sub replaceQuotedString ( ) Dim x , longerString , newString Som Stringx = Chr ( 34 ) & " abc " & ; Chr ( 34 ) End Sub
4
Lim inn følgende program fragment etter den siste " X = " statement i forrige fragment . Dette fragment gjør oppdrag til to nye strenger . Den første oppgaven er å strengen " longerString , " og inneholder " X " variable med sine anførselstegn . Erstatt funksjonen utfører andre oppdrag, som er å Denne funksjonen erstatter en delstreng av en lengre streng med en annen streng
longerString = " La oss erstatte denne strengen :" " newString . ». & XnewString = Erstatt ( longerString , x , " abc ")
5
Klikk noen uttalelse i programmet , og trykk " F8 " for å gå inn i modus for å kjøre programmer en setning om gangen . Trykk "F8" flere ganger til uttalelse med " newString " er markert .
6
Hold musen over " longerString " variable . VBA vil vise strengens verdi , som inkluderer X-variabelen med sin sitert streng , " abc ".
7
Trykk "F8" igjen for å utføre Erstatt setningen, og hold musen over den " newString " variable . VBA vil vise en streng med samme verdi som " longerString ", men med en ny streng i stedet for den siterte " abc " delen . Den nye strengen er " abc " uten anførselstegn .