In diesem Artikel werden wir eine benutzerdefinierte Funktion erstellen, um die fehlende Zahl in einem Bereich über VBA in Microsoft Excel herauszufinden.
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.
Nehmen wir ein Beispiel zum Verständnis:-
Wir haben Daten, in denen wir Werte für jede Code-ID haben, und wir möchten den fehlenden Wert zwischen 1 und 99 überprüfen. Wenn im Bereich Werte fehlen, welche Werte dann fehlen und wenn alle Werte verfügbar sind, sollte das Ergebnis sein alle Werte sind vorhanden.
Wir werden den VBA-Code schreiben, um die fehlenden Zahlen herauszufinden, folgen Sie den unten angegebenen Schritten:
- Öffnen Sie die VBA-Seite und drücken Sie die Taste Alt+F11
- Ein Modul einfügen
- Gehen Sie dann erneut zum Menü Einfügen und klicken Sie auf Prozedur, wo Sie die Prozedur erhalten, wenn Sie nicht wissen, wie das Makro gestartet werden soll
- Schreiben Sie den unten genannten Code:
Funktion Missing_Number(Myrange As Range) Dim Number(1 To 99) As Integer On Error Resume Next For Each Cell In Myrange Number(Cell.Value) = 1 Next On Error GoTo 0 Missing_Number = "Missing: " For I = 1 To 99 If Not Number(I) = 1 Then Missing_Number = Missing_Number & I & "," End If Next I If Len(Missing_Number) = 9 Then Missing_Number = Left(Missing_Number, Len(Missing_Number) - 2) End If End Function
- Drücken Sie die Taste F5 auf der Tastatur
- Verwenden Sie diese Makrofunktion als Formel
- =Missing_Number(D3:KO3) drücken Sie die Eingabetaste auf der Tastatur
Auf diese Weise können wir die fehlenden Werte aus den Daten für jede Zeile zurückgeben, indem wir VBA in Microsoft Excel verwenden
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