Finding ein einzelnes Zeichen in einem String mit VBA ist eine spezielle Instanz der Suche nach einer Zeichenfolge innerhalb einer anderen

Mitglieder-Login

InformationenSpreadsheets

So erstellen Sie Formulare in einem… OpenOffice ist eine Office-Anwendung , die kostenlos Online heruntergeladen werden kann. Viele Benut
Wie man ein Venn -Diagramm mit Word… Das Microsoft Office Word 2003 -Anwendung enthält pre-designed Diagramme, Grafiken und Diagramme , d
Wie man eine Vorlage für eine Arbe… Eine Vorlage ist eine Excel-Arbeitsmappe mit Inhalten und Formatierungen, die Sie immer und immer al
Wie man Werte in einem Diagramm Fü… Sie können bevölkern die Werte in einer Microsoft Excel , OpenOffice.org Calc oder Google Docs Sprea

Software

HOME

* Computer Wissen >> Software >> Spreadsheets >> .

Finding ein einzelnes Zeichen in einem String mit VBA ist eine spezielle Instanz der Suche nach einer Zeichenfolge innerhalb einer anderen

Wie man ein Zeichen in einem String in VBA finden . Der Prozess selbst nutzt nur ein Visual Basic Wort , InStr , der Text durchsucht nach einer bestimmten Zeichenfolge oder einzelne Zeichen in diesem Beispiel. Der Rest des Codes ist , um das Signal von dem Benutzer zu ermöglichen und die Ergebnisse anzuzeigen. Das Verfahren verwendet eine Groß-und Kleinschreibung Suchverfahren , das heißt, es wird Klein-oder Großbuchstaben zu finden. Anleitung
1

Öffnen Sie eine der Microsoft Office -Programme, die VBA (Visual Basic for Applications) und enthalten bereits etwas Text. Klicken Sie auf "Entwickler " in der Menüleiste und dann " Visual Basic ", die in der zweiten Reihe von Optionen aufgelistet werden . Dies öffnet den VBA Videobearbeitung .
2

Geben Sie die folgenden Zeilen in das leere Fenster .

Sub FindCharacter () Dim KnownString , SoughtCharacter , gefunden, wie StringDim Location, i , As einstellen IntegerKnownString = InputBox (" Geben Sie oder kopieren und fügen Sie den Text hier " ) SoughtCharacter = InputBox (" Geben Sie das Zeichen suchte hier " ) Location = InStr (1, KnownString , SoughtCharacter , vbTextCompare ) Stellen = 10Denn i = 1 To Len ( KnownString ) Wenn Location < Stellen ThenAdjust = Einstellen /5End IFIF i = Location ThenFound = Mid ( KnownString , Location - Adjust , Location + Adjust ) MsgBox " Dies ist das erste Auftreten von" & vbCrLf & SoughtCharacter & ; " im Kontext" & vbCrLf & "' " & Found & "' " End Sub IfNext iEnd
3

Reduzieren Sie die rechte Seite der folgenden Zeile, wenn die Suche nach einem Charakter in sehr kurzen Textabschnitte :

stellen = 10

tun dies, weil das Projekt auf eine Standard- Anzahl der Zeichen auf beiden Seiten des begehrten anzuzeigen Charakter. Wenn der String zu kurz ist, wird das Programm zu einem Fehler .
4

Klicken Sie auf "Makros " in den Entwickler Abschnitt des Word-Dokuments und dieses Makro ausführen , um zu sehen , wie es funktioniert . Wenn das Makro fehlschlägt, überprüfen Sie noch einmal Ihre Arbeit von den oben genannten Richtungen.