Mit Excel integrierten Programmiersprache Visual Basic für Applikationen oder VBA , um eine Zeichenfolge in Anführungszeichen mithilfe dieser Sprache die Replace-Funktion zu ersetzen. Diese Funktion sucht nach einem Teilstring Sie innerhalb eines größeren String angeben , dann ersetzt die Zeichenkette mit einem dritten Zeichenfolge, die Sie bereitstellen. Beachten Sie, dass dieser Vorgang nicht verändert die ursprüngliche Zeichenfolge , gibt aber eine neue Zeichenfolge , die Sie in einem neuen String-Variablen erfassen kann . Sie können , was Sie in diesem Projekt gelernt, überflüssig Anführungszeichen , die Benutzer Ihres VBA -Programme geben in Tabellen zu entfernen. Anleitung
1
Klicken Sie auf das Menü "Datei" die "Option" -Taste , dann klicken Sie auf " Menüband anpassen " Steuerung in "Kategorien" angezeigt. Klicken Sie auf die "Entwickler "-Checkbox , um anzuzeigen, Sie wollen, dass die Registerkarte anzuzeigen, dann schließen Sie alle geöffneten Dialogfelder. Excel zeigt nun die Registerkarte "Entwicklertools" . Dieser Schritt ermöglicht es Ihnen, die VBA-Entwicklungsumgebung durch die Registerkarte "Entwicklertools" der " Visual Basic "-Taste geben .
2
Klicken Sie auf die Registerkarte "Entwicklertools" , dann klicken Sie auf " Visual Basic " Taste, um den VBA-Programmierung die Umwelt gelangt. Klicken Sie auf die Registerkarte "Einfügen" in der Umgebung , dann klicken Sie auf die "Module "-Befehl um ein neues Fenster für die Eingabe von VBA -Anweisungen fügen .
3
Fügen Sie den folgenden Programmteil in das Fenster Sie gerade erstellt haben. Dieses Fragment definiert eine String-Variable , und weist sie eine Zeichenfolge, die in Anführungszeichen ist . Das Fragment verwendet das Chr Anweisung, um die Anführungszeichen hinzuzufügen. Wenn Sie die Kurse ohne eine helfende Funktion wie Chr hinzuzufügen, wird die Entwicklungsumgebung melden einen Syntaxfehler. Der Grund dafür ist , dass die VBA -Syntax -Checker jedes Paar von Anführungszeichen wörtlich als eine neue Zeichenfolge interpretiert .
Sub replaceQuotedString () Dim x , longerString , NeuerString Wie Stringx = Chr (34) & "abc" & ; Chr ( 34 ) End Sub
4
das folgende Programm -Fragment Einfügen nach dem letzten " X = "-Anweisung im vorigen Fragment . Dieses Fragment macht Zuweisungen um zwei neue Saiten. Die erste Aufgabe ist es, die Zeichenfolge " longerString , " und beinhaltet die " X "-Variable mit Anführungszeichen . Die Replace- Funktion führt die zweite Zuordnung , die ist Diese Funktion ersetzt einen Teilstring einer längeren Zeichenfolge mit einer anderen Zeichenfolge
longerString = "Lasst ersetzen Sie diese Zeichenfolge :" " NeuerString . " . & XnewString = Replace ( longerString , x, "abc" ) Klicken Sie
5
jede Anweisung im Programm , und drücken Sie "F8" , um den Modus zum Ausführen von Programmen eine Anweisung zu einem Zeitpunkt in Kraft. Drücken Sie die " F8 " drücken, bis die Aussage mit " NeuerString " markiert ist.
6
Bewegen Sie den Mauszeiger über das " longerString " Variable. VBA zeigt den Wert des Strings , die die X-Variable mit Anführungszeichen enthält "abc ".
7
Presse "F8" erneut, um die Replace -Anweisung auszuführen , und bewegen Sie den Mauszeiger über die " NeuerString " Variable. VBA wird eine Zeichenfolge mit dem gleichen Wert wie angezeigt " longerString ", sondern durch eine neue Zeichenfolge anstelle des zitierten "abc "-Anteil. Die neue Zeichenfolge "abc " ohne die Anführungszeichen .
