Ta vadnica vas bo naučila uporabljati JeNumerično in IsNumber funkcije v VBA za preverjanje, ali so vrednosti številke.
IsNumeric je vgrajena funkcija VBA, IsNumber pa je funkcija Excel, ki jo je mogoče poklicati iz kode VBA.
Razlika med IsNumber in IsNumeric v VBA
IsNumber preveri, ali je vrednost shranjena kot številka. Medtem ko IsNumeric preveri, ali je mogoče vrednost pretvoriti v številko.
Če na primer posredujete prazno celico kot parameter, bo IsNumber vrnil FALSE, IsNumeric pa TRUE. Če posredujete celico, ki vsebuje številko, shranjeno kot besedilo, bo IsNumber vrnil FALSE in IsNumeric TRUE.
Morate biti pozorni na te omejitve obeh funkcij in se odločiti, v katerih primerih je bolje uporabiti IsNumeric in kdaj IsNumber.
Uporaba IsNumeric v VBA
JeNumerično je funkcija VBA, ki preveri, ali je vrednost številska, in kot rezultat vrne logično vrednost TRUE ali FALSE.
Funkcija lahko sprejme spremenljivko ali vrednost celice.
Tu je primer jemanja vrednosti celice:
| 12345 | Če je IsNumeric (Sheet1.Range ("A1"). Vrednost) = True PotemMsgBox "Vrednost v A1 je številčna"Sicer paMsgBox "Vrednost v A1 ni številčna"Konec Če |
V tem primeru z IsNumeric preverimo, ali je vrednost iz celice A1 numerična. Ta funkcija vrne ustrezno sporočilo, odvisno od rezultata funkcije.
Ta naslednji primer izvede isto operacijo, razen s spremenljivko namesto vrednosti celice:
| 123456789 | Zatemni n kot varianton = List1.Range ("A1"). VrednostČe je IsNumeric (n) = True, potemMsgBox "Vrednost v A1 je številčna"Sicer paMsgBox "Vrednost v A1 ni številčna"Konec Če |
Uporaba IsNumber v VBA
IsNumber je Excelova funkcija, ki se lahko uporablja v VBA. Ima skoraj podoben izhod kot IsNumeric. Poglejmo primer funkcije IsNumber:
| 123456789 | Če je Application.WorksheetFunction.IsNumber (Sheet1.Range ("A1"). Vrednost) = True PotemMsgBox "Vrednost v A1 je številčna"Sicer paMsgBox "Vrednost v A1 ni številčna"Konec Če |
Kot lahko vidite iz kode, je razlika v sintaksi pri klicu funkcije. Ker je IsNumber funkcija Excel, moramo postaviti Application.WunksheetFunction pred klicem funkcije.
