Verwenden der Replace-Methode des Application-Objekts
Die dritte Möglichkeit, die Funktion zum Suchen und Ersetzen in VBA zu verwenden, besteht darin, die Replace-Methode des Application-Objekts zu verwenden. Das Application-Objekt ist eines der globalen Objekte in VBA, das die Excel-Anwendung selbst darstellt.
Mit der Replace-Methode des Application-Objekts können Sie mithilfe von VBA-Code nach Text in einer Zeichenfolge oder Variablen suchen und diesen ersetzen. Diese Methode verfügt über vier obligatorische Parameter und drei optionale Parameter, die Sie festlegen können, um Ihre Such- und Ersetzungskriterien zu definieren.
Gehen Sie folgendermaßen vor, um diese Methode zu verwenden:
- Öffnen Sie das VBA-Modul, das Sie bearbeiten möchten, indem Sie Alt + F11 auf Ihrer Tastatur drücken.
- Erstellen Sie ein neues Unterprogramm oder eine neue Funktion, indem Sie das Schlüsselwort Sub oder Function, den Namen des Unterprogramms oder der Funktion und die Klammern () eingeben. Beispiel: Sub FindAndReplace().
- Geben Sie den folgenden Code zwischen die Klammern {} ein:
Dim str As String str = "I love apple pie" str = Application.Replace(str, "apple", "orange") MsgBox str
- Passen Sie den Code an Ihre Bedürfnisse an, z. B. Zeichenfolgenwert, gesuchten und ersetzten Text usw.
- Führen Sie ein Unterprogramm oder eine Funktion aus, indem Sie die Schaltfläche F5 drücken oder auf das Run Menü klicken und Run Sub/UserForm auswählen.
Schlussfolgerung
Die Funktion „Suchen und Ersetzen“ ist eine sehr nützliche Funktion in der VBA-Programmierung. Sie können diese Funktion auf unterschiedliche Weise verwenden, je nach Ihren Bedürfnissen und Vorlieben. Sie können das Dialogfeld Suchen und Ersetzen verwenden, das im Menü Bearbeiten verfügbar ist, oder die Methode Suchen und Ersetzen des Range-Objekts oder die Replace-Methode des Application-Objekts verwenden.
Mit dieser Funktion können Sie automatisch nach Text in Ihrem Code suchen und ihn ersetzen, um Zeit zu sparen, Tippfehler zu vermeiden und Ihren Code übersichtlicher und konsistenter zu gestalten.
Ich hoffe, Sie finden diesen Artikel nützlich. Danke fürs Lesen!