Kuinka purkaa puuttuvat arvot VBA: n kautta

Anonim

Tässä artikkelissa aiomme luoda käyttäjän määrittämän toiminnon selvittääksesi puuttuvan numeron alueelta Microsoft Excelin VBA: n kautta.

Käyttäjän määrittämä toiminto: Microsoft Excelin avulla voit luoda oman toiminnon vaatimusten mukaisesti, kutsumme sitä käyttäjän määrittämäksi funktioksi. Ja voimme käyttää käyttäjän määrittämiä toimintoja, kuten muut Excelin toiminnot.

Otetaan esimerkki ymmärtääksemme:-

Meillä on tietoja, joissa meillä on arvot jokaiselle kooditunnukselle, ja haluamme tarkistaa puuttuvan arvon väliltä 1-99, jos arvot puuttuvat alueelta, mitkä arvot puuttuvat ja jos kaikki arvot ovat käytettävissä, tuloksen pitäisi olla kaikki arvot ovat käytettävissä.

Kirjoitamme VBA -koodin selvittääksemme puuttuvat numerot noudattamalla alla olevia ohjeita:

  • Avaa VBA -sivu painamalla näppäinyhdistelmää Alt+F11
  • Aseta moduuli
  • Siirry sitten uudelleen Lisää -valikkoon ja napsauta menettelyä, josta saat menettelyn, jos et tiedä kuinka makro pitäisi aloittaa
  • Kirjoita alla mainittu koodi:
Toiminto Missing_Number (Myrange As Range) Dim Number (1 to 99) Integer On Error Jatka seuraavaksi jokaiselle solulle Myrange Number (Cell.Value) = 1 Next On Error GoTo 0 Missing_Number = "Missing:" For I = 1 to 99 Jos ei Numero (I) = 1 Sitten Missing_Number = Missing_Number & I & "," End If Next I If Len (Missing_Number) = 9 Sitten Missing_Number = Left (Missing_Number, Len (Missing_Number) - 2) End If End -toiminto 

  • Paina näppäimistön näppäintä F5
  • Käytä tätä makrofunktiota kaavana
  • = Missing_Number (D3: KO3) paina näppäimistön enter -näppäintä

Tällä tavalla voimme palauttaa puuttuvat arvot jokaisen rivin tiedoista käyttämällä VBA: ta Microsoft Excelissä

Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.

Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse