Tämä opetusohjelma opettaa sinulle, kuinka käyttää IsNumeric ja IsNumber toimintoja VBA: ssa tarkistaaksesi, ovatko arvot numeroita.
IsNumeric on sisäänrakennettu VBA-toiminto, kun taas IsNumber on Excel-toiminto, joka voidaan kutsua VBA-koodista.
Ero IsNumberin ja IsNumericin välillä VBA: ssa
IsNumber tarkistaa, onko arvo tallennettu numerona. IsNumeric tarkistaa, voidaanko arvo muuntaa numeroksi.
Jos esimerkiksi annat tyhjän solun parametriksi, IsNumber palauttaa FALSE, kun taas IsNumeric palauttaa TOSI. Jos ohitat myös solun, joka sisältää tekstinä tallennetun numeron, IsNumber palauttaa FALSE ja IsNumeric TRUE.
Sinun on kiinnitettävä huomiota molempien toimintojen rajoituksiin ja päätettävä, missä tapauksissa on parempi käyttää IsNumericia ja milloin IsNumber.
IsNumericin käyttö VBA: ssa
IsNumeric on VBA -toiminto, joka tarkistaa, onko arvo numeerinen ja palauttaa Boolen TOSI- tai EPÄTOSI -arvon.
Funktio voi ottaa muuttujan tai solun arvon.
Tässä on esimerkki solun arvon ottamisesta:
| 12345 | Jos IsNumeric (Sheet1.Range ("A1"). Value) = True thenMsgBox "A1: n arvo on numeerinen"MuuMsgBox "A1: n arvo ei ole numeerinen"Loppu Jos |
Tässä esimerkissä tarkistamme, onko solun A1 arvo numeerinen käyttämällä IsNumeric. Tämä toiminto palauttaa sopivan viestin toiminnon tuloksesta riippuen.
Tämä seuraava esimerkki suorittaa saman toiminnon, paitsi muuttujalla solun arvon sijaan:
| 123456789 | Dim n Varianttinan = Sheet1.Range ("A1"). ArvoJos IsNumeric (n) = True thenMsgBox "A1: n arvo on numeerinen"MuuMsgBox "A1: n arvo ei ole numeerinen"Loppu Jos |
IsNumberin käyttö VBA: ssa
IsNumber on Excel -toiminto, jota voidaan käyttää VBA: ssa. Sen lähtö on lähes sama kuin IsNumeric. Katsotaanpa esimerkkiä IsNumber -toiminnosta:
| 123456789 | If Application.WorksheetFunction.IsNumber (Sheet1.Range ("A1"). Value) = Tosi sittenMsgBox "A1: n arvo on numeerinen"MuuMsgBox "A1: n arvo ei ole numeerinen"Loppu Jos |
Kuten koodista näet, ero on syntaksissa, kun kutsut funktiota. Koska IsNumber on Excel -toiminto, meidän täytyy laittaa Application.WorksheetFunction ennen funktion kutsua.
