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 Ihre eigene Funktion gemäß den Anforderungen erstellen. Wir nennen sie benutzerdefinierte Funktion. Und wir können benutzerdefinierte Funktionen verwenden, wie andere Funktionen in Excel.

Lassen Sie uns anhand eines sehr einfachen Beispiels verstehen:

Wir haben eine Reihe von Zeichenfolgen, aus denen wir nur den Textwert abrufen möchten.

image 1

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

Öffnen Sie die VBA-Seite. Drücken Sie die Taste Alt + F11. Fügen Sie ein Modul ein. * Schreiben Sie den folgenden Code:

Function TextVba(entry)

For I = 1 To Len(entry)

ThisChar = Mid(entry, 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 Erläuterung: Zuerst haben wir den Funktionsnamen (TextVba) angegeben.

Und dann haben wir die Länge des Strings angegeben, dann haben wir die Asc-Funktion verwendet (dies ist die Code-Funktion). Dann haben wir den Fall definiert. Jetzt haben wir den Zustand von TextVba definiert und dann die Auswahlfunktion geschlossen.

Jetzt verwenden wir die Funktion in der Excel-Tabelle. Gehen Sie zur Excel-Tabelle. Geben Sie in die Zelle B2 die Formel = TextVba (A2) ein und drücken Sie die Eingabetaste. * Die Funktion gibt nur Text

image 2

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

image 48

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

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder innovieren und für Sie verbessern können. Schreiben Sie uns an [email protected]