Kā iegūt trūkstošās vērtības, izmantojot VBA

Anonim

Šajā rakstā mēs izveidosim lietotāja definētu funkciju, lai uzzinātu trūkstošo skaitli diapazonā, izmantojot Microsoft Excel VBA.

Lietotāja definēta funkcija: Microsoft Excel ļauj jums izveidot savu funkciju atbilstoši prasībām, mēs to saucam par lietotāja definētu funkciju. Un mēs varam izmantot lietotāja definētas funkcijas, tāpat kā citas funkcijas, kas darbojas programmā Excel.

Ņemsim piemēru, lai saprastu:-

Mums ir dati, kuros mums ir vērtības katram koda ID, un mēs vēlamies pārbaudīt trūkstošo vērtību no 1 līdz 99, ja diapazonā trūkst vērtību, tad kādas vērtības trūkst un vai visas vērtības ir pieejamas, tad rezultātam jābūt visas vērtības ir pieejamas.

Mēs uzrakstīsim VBA kodu, lai uzzinātu trūkstošos numurus, rīkojieties šādi:

  • Atveriet VBA lapu, nospiediet taustiņu Alt+F11
  • Ievietojiet moduli
  • Pēc tam atkal dodieties uz ievietošanas izvēlni un noklikšķiniet uz procedūras, kur jūs saņemsiet procedūru, ja nezināt, kā sākt makro
  • Uzrakstiet zemāk minēto kodu:
Funkcija Missing_Number (Myrange As Range) Dim numurs (no 1 līdz 99) Kā vesels skaitlis kļūdas gadījumā Atsākt katru šūnu Myrange Number (Cell.Value) = 1 Next On Error GoTo 0 Missing_Number = "Trūkst:" I = 1 līdz 99 Ja nav skaitlis (I) = 1, tad trūkst_skaitlis = trūkst_skaitlis un es & "," Beigt, ja nākamais I, ja Len (trūkstošais_numurs) = 9, tad trūkstošais_numurs = pa kreisi (trūkstošais_numurs, Len (trūkstošais_numurs) - 2) Beigt, ja beigu funkcija 

  • Nospiediet tastatūras taustiņu F5
  • Izmantojiet šo makro funkciju kā formulu
  • = Missing_Number (D3: KO3) nospiediet tastatūras taustiņu enter

Tādā veidā mēs varam atgriezt trūkstošās vērtības no katras rindas datiem, izmantojot Microsoft Excel VBA

Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.

Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē