Šis straipsnis parodys „VarType“ funkcijos naudojimą VBA.
„VarType“ reiškia kintamojo tipą. Mes galime pateikti kintamojo pavadinimą funkcijai „VarType“ ir jis grąžins sveikąjį skaičių, vaizduojantį tame kintamajame saugomų duomenų tipą pagal VBA konstantų sąrašą.
Kintamojo varianto naudojimas norint rasti „VarType“
Mes galime paskelbti kintamąjį kaip Variant kintamąjį. Tai leis mums saugoti bet kokio tipo leidžiamus duomenis. Tada galime užpildyti šį kintamąjį ir naudoti funkciją „VarType“, kad pamatytume, kokio tipo duomenys yra kintamajame.
Pavyzdžiui:
12345 | Sub TestVarType ()„Dim MyVariable“ kaip variantasMyVariable = "Labas pasaulis"„MsgBox“ Kintamojo tipas yra „& VarType“ („MyVariable“)Pabaiga Sub |
Tai grąžins šį pranešimų laukelį:
Todėl grąžinama 8 vertė. Tai yra „Excel“ konstanta, kuri apibrėžia kintamajame saugomų duomenų tipą.
Ši pastovi vertė atitinka toliau pateiktą lentelę:
Pastovus | Vertė | apibūdinimas |
---|---|---|
vbTuščia | 0 | Tuščias (neinicijuotas) |
vbNull | 1 | Null (nėra galiojančių duomenų) |
„vbInteger“ | 2 | Sveikasis skaičius |
vbLong | 3 | Ilgas sveikasis skaičius |
vbVieningas | 4 | Vieno tikslumo slankiojo kablelio skaičius |
vbDvigubas | 5 | Dvigubo tikslumo slankiojo kablelio skaičius |
vbValuta | 6 | Valiutos vertė |
vbData | 7 | Datos vertė |
vbString | 8 | Styginė |
vbObject | 9 | Objektas |
vbKlaida | 10 | Klaidos vertė |
vbBoolean | 11 | Loginė vertė |
vbVariantas | 12 | Variantas (naudojamas tik su daugybe variantų) |
vbDataObject | 13 | Prieigos prie duomenų objektas |
vbDecimal | 14 | Dešimtainė vertė |
vbByte | 17 | Baitų vertė |
vbLongLong | 20 | Ilgas sveikasis skaičius (galioja tik 64 bitų platformose) |
vbUserDefinedType | 36 | Variantai, kuriuose yra vartotojo apibrėžtų tipų |
vbArray | 8192 | Masyvas (visada pridedamas prie kitos konstantos, kai pateikiama ši funkcija) |
Galime išbandyti kitą pavyzdį:
12345 | Sub TestVarType ()„Dim MyVariable“ kaip variantasMano kintamasis = 32760„MsgBox“ Kintamojo tipas yra „& VarType“ („MyVariable“)Pabaiga Sub |
Šį kartą pranešimų dėžutė grąžins 2, nes kintamajame saugomų duomenų tipas yra Sveikasis skaičius.
Tačiau, jei pakeisime reikšmę į 32780, grąžos vertė bus 3 - Ilgas sveikasis skaičius, nes duomenų tipo sveikasis skaičius yra didžiausias 32767; po to jis yra ilgas sveikasis skaičius.
Jei dar kartą pakeistume kodą:
12345 | Sub TestVarType ()„Dim MyVariable“ kaip variantasMano kintamasis = 32760.52„MsgBox“ Kintamojo tipas yra „& VarType“ („MyVariable“)Pabaiga Sub |
Dabar mes grąžiname 5 reikšmę - duomenų tipas yra dvigubas dėl kablelių.
Jei kintamojo reikšmę nurodytume kabutėse, tada vėl būtų pateiktas 8, nes bet kokia kabučių reikšmė saugoma kaip eilutės reikšmė.
12345 | Sub TestVarType ()„Dim MyVariable“ kaip variantasMano kintamasis = "32760.52"„MsgBox“ Kintamojo tipas yra „& VarType“ („MyVariable“)Pabaiga Sub |