Šis raksts parādīs funkcijas VarType izmantošanu VBA.
VarType nozīmē mainīgā tips. Mēs varam piegādāt mainīgā nosaukumu funkcijai VarType, un tas atgriezīs veselu skaitli, kas attēlo šajā mainīgajā saglabāto datu veidu saskaņā ar VBA konstantu sarakstu.
Variant Mainīgā izmantošana, lai atrastu VarType
Mēs varam deklarēt mainīgo kā mainīgo. Tas ļaus mums tajā saglabāt jebkura veida atļautos datus. Pēc tam mēs varam aizpildīt šo mainīgo un izmantot funkciju VarType, lai redzētu, kāda veida dati ir mainīgajā.
Piemēram:
12345 | Sub TestVarType ()Dim MyVariable kā variantsMyVariable = "Sveika pasaule"MsgBox "Mainīgā veids ir" & VarType (MyVariable)Beigu apakš |
Tiks parādīts šāds ziņojumu lodziņš:
Tāpēc vērtība 8 tiek atgriezta. Tas ir Excel konstantē, kas nosaka mainīgajā saglabāto datu veidu.
Šī nemainīgā vērtība atbilst tabulai:
Pastāvīga | Vērtība | Apraksts |
---|---|---|
vbTukš | 0 | Tukšs (neinicializēts) |
vbNull | 1 | Nulle (nav derīgu datu) |
vbInteger | 2 | Vesels skaitlis |
vbLong | 3 | Garš vesels skaitlis |
vbSingle | 4 | Vienas precizitātes peldošā komata numurs |
vbDubulti | 5 | Dubultās precizitātes peldošā komata numurs |
vbValūta | 6 | Valūtas vērtība |
vbDatums | 7 | Datuma vērtība |
vbString | 8 | Stīga |
vbObjekts | 9 | Objekts |
vbKļūda | 10 | Kļūdas vērtība |
vbBoolean | 11 | Būla vērtība |
vbVariants | 12 | Variants (izmanto tikai ar variantu masīviem) |
vbDataObject | 13 | Datu piekļuves objekts |
vbDecimal | 14 | Decimālā vērtība |
vbByte | 17 | Baitu vērtība |
vbLongLong | 20 | Garš vesels skaitlis (derīgs tikai 64 bitu platformās) |
vbUserDefinedType | 36 | Varianti, kuros ir lietotāja definēti veidi |
vbArray | 8192 | Masīvs (vienmēr pievienots citai konstantei, kad tiek atgriezta šī funkcija) |
Mēs varam izmēģināt citu piemēru:
12345 | Sub TestVarType ()Dim MyVariable kā variantsMans mainīgais = 32760MsgBox "Mainīgā veids ir" & VarType (MyVariable)Beigu apakš |
Šoreiz ziņojumu lodziņš atgriezīs 2, jo mainīgajā saglabāto datu veids ir vesels skaitlis.
Tomēr, ja mēs mainām vērtību uz 32780, tad vērtības atdeve būs 3 - garš vesels skaitlis kā vesels skaitlis ir maksimālā vērtība 32767; pēc tam tas ir garš vesels skaitlis.
Ja mēs vēlreiz grozītu kodu:
12345 | Sub TestVarType ()Dim MyVariable kā variantsMans mainīgais = 32760.52MsgBox "Mainīgā veids ir" & VarType (MyVariable)Beigu apakš |
Tagad tiks atgriezta vērtība 5 - decimāldaļu dēļ datu tips ir dubultā.
Ja mēs mainīgā vērtību ieliktu pēdiņās, tad atkal tiktu atgriezts 8, jo jebkura pēdiņās esošā vērtība tiek saglabāta kā virknes vērtība.
12345 | Sub TestVarType ()Dim MyVariable kā variantsMans mainīgais = "32760.52"MsgBox "Mainīgā veids ir" & VarType (MyVariable)Beigu apakš |