VBA KLAIDA - Žingsnis po žingsnio IFERROR VBA funkcijos naudojimo pavyzdžiai

Turinys

IFERROR funkcija VBA

Kaip ir „Excel“ programoje naudojame IFERROR, kad žinotume, ką daryti, kai įvyksta klaida prieš kiekvieną funkciją, VBA sistemoje turime integruotą IFERROR funkciją, kuri naudojama taip pat, nes tai yra darbalapio funkcija, šią funkciją naudojame kartu su darbalapiu. metodas VBA ir tada pateikiame funkcijos argumentus.

IFERROR funkcija VBA

Tikėtis, kad kodas veiks be klaidų, yra nusikaltimas. Norėdami tvarkyti klaidas VBA, turime keletą būdų, kaip naudoti tokius teiginius kaip „On Error Resume Next VBA“, „On Error Resume Goto 0“, „On Error GoTo Label“. VBA klaidų tvarkytojai gali pereiti tik toliau prie kitos kodo eilutės. Tačiau jei skaičiavimas neįvyksta, klaidą turime pakeisti kitu tapatybės žodžiu. Šiame straipsnyje mes pamatysime, kaip tai pasiekti naudojant „Excel“ VBA IFERROR funkciją.

Kaip naudoti IFERROR VBA?

Čia reikia atsiminti, kad tai nėra VBA funkcija, o tiesiog darbalapio funkcija.

Pavyzdžiui, imkite aukščiau nurodytus duomenis tik demonstracijai.

1 veiksmas: apibrėžkite kintamąjį kaip sveikąjį skaičių .

Kodas:

Sub Iferror_Pavyzdys1 () Dim i kaip sveikoji pabaiga Sub

2 žingsnis: jei norite atlikti skaičiavimą, atidarykite „ Next Loop“ .

Kodas:

Sub Iferror_Example1 () Dim i kaip sveikas skaičius i = 2–6 Kitas i End Sub

3 žingsnis: Rašykite kodą kaip langelius (I, 3). Vertė =

Kodas:

I subrorror_Example1 () Dim i kaip sveikoji i = 2–6 ląstelės (i, 3). Vertė = Next i End Sub

4 žingsnis: Norėdami pasiekti IFERROR funkciją, negalime tiesiog įvesti formulės; mes turime naudoti klasę „WorksheetFunction“ .

Kodas:

Sub Iferror_Example1 () Dim i kaip sveikasis skaičius i = nuo 2 iki 6 langelių (i, 3). Vertė = WorksheetFunction. Jei kitas aš baigsiu Sub

5 žingsnis: Kaip matote aukščiau esančiame paveikslėlyje, įterpę komandą „WorksheetFunction“ klasę, mes gauname IFERROR formulę. Pasirinkite formulę.

Kodas:

I „Iferror_Example1“ () Dim i kaip sveikas skaičius i = nuo 2 iki 6 langelių (i, 3). Vertė = WorksheetFunction IfError (kitas i galas Sub

6 žingsnis: Viena iš VBA problemų, kai pasiekiame darbalapio funkcijas, nematome tokių argumentų, kaip matėme darbalapyje. Turite būti tikri dėl mūsų naudojamų argumentų.

Tai yra priežastis prieš man rodant IFBA KLAIDĄ VBA, aš parodžiau jums darbalapio funkcijos sintaksę.

Pirmasis argumentas yra „Vertė“, ty kokia yra langelis, kurį norite patikrinti? Prieš tai pritaikykite skaičiavimą langelyje.

Dabar VBA naudokite toliau nurodytus kodus.

Kodas:

I subror_Example1 () Dim i kaip sveikas skaičius i = 2–6 langeliams (i, 4). Vertė = WorksheetFunction.If klaida (langeliai (i, 3). Vertė, „Nerasta“) Kitas i End Sub

Dabar funkcija IFERROR patikrina, ar C stulpelyje nėra klaidų. Jei randama kokių nors klaidų, D stulpelyje rezultatas bus „Nerasta“

Panašiai naudojant IFERROR funkciją, mes galime pakeisti rezultatus pagal savo norus. Šiuo atveju rezultatą pakeičiau kaip „Nerasta“. Tai galite pakeisti pagal savo reikalavimą.