Hoe de ontbrekende waarden te extraheren via VBA

Anonim

In dit artikel gaan we een door de gebruiker gedefinieerde functie maken om het ontbrekende nummer in een bereik te achterhalen via VBA in Microsoft Excel.

Door de gebruiker gedefinieerde functie: Met Microsoft Excel kunt u uw eigen functie maken volgens de vereiste, we noemen het door de gebruiker gedefinieerde functie. En we kunnen door de gebruiker gedefinieerde functies gebruiken zoals andere functies in Excel werken.

Laten we een voorbeeld nemen om te begrijpen: -

We hebben gegevens waarin we waarden hebben voor elke code-ID, en we willen de ontbrekende waarde tussen 1 en 99 controleren, als er in het bereik waarden ontbreken, welke waarden dan allemaal ontbreken en als alle waarden beschikbaar zijn, dan zou het resultaat moeten zijn alle waarden zijn beschikbaar.

We zullen de VBA-code schrijven om de ontbrekende nummers te achterhalen, volg de onderstaande stappen:

  • Open VBA-pagina druk op de toets Alt+F11
  • Een module invoegen
  • Ga dan opnieuw naar menu invoegen en klik op procedure, waar u de procedure krijgt als u niet weet hoe u de macro moet starten
  • Schrijf de onderstaande code:
Functie Missing_Number (Myrange As Range) Dim Number (1 To 99) As Integer On Error Hervat volgende voor elke cel in Myrange Number (Cell.Value) = 1 Volgende bij fout GoTo 0 Missing_Number = "Ontbrekend: " 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 Functie

  • Druk op de toets F5 op het toetsenbord
  • Gebruik deze macrofunctie als formule
  • =Missing_Number(D3:KO3) druk op enter op het toetsenbord

Op deze manier kunnen we de ontbrekende waarden uit de gegevens voor elke rij retourneren met behulp van VBA in Microsoft Excel

Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.

We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite