Jak wyodrębnić brakujące wartości za pomocą VBA?

Anonim

W tym artykule zamierzamy utworzyć funkcję zdefiniowaną przez użytkownika, aby znaleźć brakującą liczbę w zakresie za pomocą VBA w programie Microsoft Excel.

Funkcja zdefiniowana przez użytkownika: Microsoft Excel umożliwia tworzenie własnej funkcji zgodnie z wymaganiami, nazywamy ją funkcją zdefiniowaną przez użytkownika. I możemy używać funkcji zdefiniowanych przez użytkownika, tak jak inne funkcje działają w programie Excel.

Weźmy przykład, aby zrozumieć:-

Mamy dane, w których mamy wartości dla każdego identyfikatora kodu i chcemy sprawdzić brakującą wartość w zakresie od 1 do 99, jeśli w zakresie brakuje wartości to jakich wartości wszystkich brakuje i jeśli wszystkie wartości są dostępne to wynik powinien być wszystkie wartości są dostępne.

Napiszemy kod VBA, aby znaleźć brakujące liczby, wykonaj poniższe czynności:

  • Otwórz stronę VBA naciśnij klawisz Alt + F11
  • Włóż moduł
  • Następnie przejdź ponownie do menu wstawiania i kliknij procedurę, gdzie otrzymasz procedurę, jeśli nie wiesz jak należy uruchomić makro
  • Napisz poniższy kod:
Funkcja Missing_Number(Myrange As Range) Dim Number (1 do 99) Jako liczba całkowita w przypadku błędu Wznów następną dla każdej komórki w moim zakresie Number(Cell.Value) = 1 Dalej w przypadku błędu GoTo 0 Missing_Number = "Missing:" For I = 1 do 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 

  • Naciśnij klawisz F5 na klawiaturze
  • Użyj tej funkcji makra jako formuły
  • =Brakujący_Numer(D3:KO3) naciśnij enter na klawiaturze

W ten sposób możemy zwrócić brakujące wartości z danych dla każdego wiersza za pomocą VBA w Microsoft Excel

Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.

Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail