Gebruik Excel 's ingebouwde programmeertaal Visual Basic for Applications , of VBA , naar een string tussen aanhalingstekens door gebruik Replace functie die taal te vervangen . Deze functie zoekt naar een substring u opgeeft binnen een grotere tekenreeks , vervangt dan de substring met een derde snaar die u verstrekt . Merk op dat deze operatie verandert niets aan de oorspronkelijke tekenreeks , maar voert een nieuwe reeks , die u kunt vastleggen in een nieuw stringvariabele . U kunt gebruiken wat je geleerd hebt in dit project om overbodige aanhalingstekens dat gebruikers van uw VBA- programma's in te voeren in spreadsheets te verwijderen . Instructies
1 Klik op " Option " knop van het menu " Bestand " , klik vervolgens op de "Customize Ribbon " controle in de " Categorieën" venster . Klik op het selectievakje " Developer " om aan te geven dat u wilt dat tabblad weer te geven , sluit vervolgens alle geopende dialoogvensters . Excel zal nu het tabblad " Developer " weer te geven . Deze stap kunt u de VBA- ontwikkelomgeving binnen via de knop van het tabblad "Ontwikkelaar " " Visual Basic " . Kopen van 2 Klik op het tabblad "Ontwikkelaar " , klik vervolgens op de " Visual Basic " knop om de VBA- programmeeromgeving voeren . Klik op het tabblad "Invoegen " in de omgeving , klik op de "Module " commando om een nieuw venster te voegen voor het invoeren van VBA statements .
3 Plak volgende programma deel in het venster u zojuist hebt gemaakt . Dit fragment definieert een string variabele , en wijst deze een tekenreeks die is binnen de aanhalingstekens . Het fragment maakt gebruik van de Chr verklaring aan de aanhalingstekens toe te voegen . Als u probeert om de quotes toe te voegen zonder een helpende functie zoals Chr , zal de ontwikkelomgeving een syntax fout te melden . De reden is dat de VBA syntax checker interpreteert elk paar letterlijke aanhalingstekens als een nieuwe tekenreeks. Sub replaceQuotedString ( ) op Dim x , longerString , newstring Zoals Stringx = Chr ( 34 ) & " abc " & , Chr ( 34 ) End Sub
4 Plak volgende programma fragment na de laatste " X = " verklaring in het vorige fragment . Dit fragment maakt opdrachten om twee nieuwe snaren . De eerste opdracht is om de string " longerString , " en omvat de variabele " X " met aanhalingstekens . De Replace functie voert de tweede opdracht , die is om deze functie vervangt een substring van een langere string met andere string longerString
= " Laten vervangt deze string : " " newstring . " . & XnewString = Vervang ( longerString , x , " abc" )
5 Klik enige verklaring in het programma , druk daarna op " F8 " om de modus te activeren voor het uitvoeren van programma's een statement op een moment . Druk op " F8 " toets tot de verklaring met " newstring " is gemarkeerd .
6 Beweeg uw muis over de variabele " longerString " . VBA zal de string van waarde, die de X variabele met zijn tekenreeks tussen aanhalingstekens , bevat opnieuw weer te geven "abc . "
Druk op " F8 " 7 op de Replace instructie uit te voeren , en beweeg uw muis de " newstring " variabele . VBA zal een string weer met dezelfde waarde als " longerString , " maar met een nieuwe tekenreeks in plaats van de geciteerde " abc" gedeelte . De nieuwe reeks is " abc " zonder de aanhalingstekens .
|
