So finden die Position eines bestimmten Zeichens in Excel mit VBA

Als Programmierer wirst du mit einer Menge von Zeichenfolgen zu arbeiten. Die Fähigkeit, die Position eines bestimmten Zeichens in Excel mithilfe von Visual Basic für Anwendungen, für die Sie viel Zeit sparen können finden beim Schreiben von Code. Vorher würde Sie jedes einzelne Zeichen in einer Zeichenfolge durchlaufen, und verwenden Sie einen Zähler zu verfolgen die Position. Nun, in VBA können Sie die InStr-Funktion suchen nach einem bestimmten Zeichen und die Position zurück.

Anweisungen

1 Starten Sie Microsoft Excel, und geben Sie "Finden die Position eines beliebigen Zeichens in diesem Satz." in A1. Klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Visual Basic" um den VB-Editor öffnen. Fügen Sie ein neues VBA-Code-Modul, indem Sie auf das Menü "Einfügen" und "Module".

2 Fügen Sie ein neues Verfahren, indem Sie den folgenden Code hinzufügen:

Private Sub findPositionOfCharacter()

3 Erstellen Sie die folgenden drei Variablen, mit denen Sie die Position Ihres Charakters zu finden:

Dim MyString As StringDiesem MyChar As String DimDim Pos As Integer

4 Definieren Sie das Zeichen zu finden und erhalten den Satz befindet sich in A1:

diesem MyChar = "d"Range("a1"). Wählen SieMyString = Range("A1"). Wert

5 Kopieren und fügen Sie den folgenden Code um die Position des Zeichens im vorherigen Schritt definiert zu finden und eine Meldung mit seiner Position:

POS = InStr (1, MyString, diesem MyChar, VbTextCompare)MsgBox ("die Position des '" & diesem MyChar & "' ist:" & Pos)

6 Geben Sie "End Sub" beenden Sie die Prozedur und drücken Sie die Taste "F5", um den VBA-Code ausführen.