So erstellen Sie eine benutzerdefinierte Funktion über VBA

Anonim

In diesem Artikel erfahren Sie, wie Sie eine benutzerdefinierte Funktion erstellen, um den Text nur aus der Zeichenfolge über VBA zu extrahieren.

Benutzerdefinierte Funktion: Mit Microsoft Excel können Sie je nach Anforderung Ihre eigene Funktion erstellen, wir nennen sie benutzerdefinierte Funktion. Und wir können benutzerdefinierte Funktionen wie andere Funktionen in Excel verwenden.

Lassen Sie uns das an einem ganz einfachen Beispiel verstehen:
Wir haben eine Reihe von Strings, aus denen wir nur den Textwert abrufen möchten.

Um nur Text abzurufen, erstellen wir den VBA-Code. Durch diesen Code können wir den Text von jeder Stelle der Zelle abrufen. Sehen Sie sich das folgende Verfahren und den Code an, um zu verstehen, wie einfach dies ist:

  • Öffnen Sie die VBA-Seite und drücken Sie die Taste Alt+F11
  • Ein Modul einfügen
  • Schreiben Sie den unten genannten Code:
 Funktion TextVba(Eintrag) For I = 1 To Len(Eintrag) ThisChar = Mid(Eintrag, I, 1) Select Case Asc(ThisChar) Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 , 58 Case Else TextVba = TextVba & ThisChar End Select Next i End Function

Code-Erklärung: Zuerst haben wir den Funktionsnamen (TextVba) gegeben. Und dann haben wir die Länge des Strings angegeben, dann haben wir die Asc-Funktion verwendet (dies ist Code-Funktion). Dann haben wir den Fall definiert. Jetzt haben wir die Bedingung von TextVba definiert und dann die Select-Funktion geschlossen.

  • Jetzt verwenden wir die Funktion im Excel-Blatt
  • Gehe zu Excel-Tabelle
  • Geben Sie in die Zelle B2 die Formel ein
  • =TextVba(A2), drücke Enter
  • Funktion gibt nur Text zurück

Auf diese Weise können wir benutzerdefinierte Funktionen erstellen und unsere Zeit von regelmäßigen Aktivitäten sparen.

Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.

Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site