Funkce VBA VARTYPE | Jak najít datový typ proměnné?
Funkce Excel VBA VarType
VBA VARTYPE znamená „Variabilní typ“. Tato funkce nám pomáhá identifikovat datový typ přiřazený konkrétní proměnné nebo jednoduše můžeme říci, že zjistí, jaký druh hodnoty je proměnné uložen nebo přiřazen.
Syntax
VarName: Musíme pouze zadat název proměnné, abychom našli data uložená v zadaném názvu proměnné.
Takže vezme název proměnné jako syntaxi nebo argument a na výstupu vrátí datový typ přiřazený proměnné nebo druh dat uložených v proměnné.
Takže pokud jste někdy přemýšleli, jak najít datový typ proměnné nebo druh dat přiřazených proměnné, pak zde máme funkci VBA „VarType“.
Příklady
Tuto šablonu VBA VARTYPE Excel si můžete stáhnout zde - VBA VARTYPE Excel ŠablonaPříklad č. 1
Ve VBA při psaní kódu obvykle deklarujeme proměnnou a přiřadíme jim datový typ. Například se podívejte na níže uvedený kód VBA.
Kód:
Sub VarType_Example () Dim MyVar jako řetězec MyVar = "Hello" End Sub
Ve výše uvedeném příkladu jsme proměnnou deklarovali jako „String“ a pro tento řetězec jsme přiřadili hodnotu jako „Hello“.
Toto je přímočarý případ, ale je také možné deklarovat proměnné, aniž byste jim proměnné přiřadili, takže v takových případech nám pomáhá funkce VarType.
Kód:
Sub VarType_Example () Dim MyVar MyVar = "Dobrý den" End Sub
Ve výše uvedeném kódu jsme nepřiřadili žádný datový typ, ale hned jsme přiřadili hodnotu jako „Hello“, takže pomocí funkce VarType můžeme najít datový typ proměnné.
Otevřete MSGBOX v kódování VBA ve výše uvedeném kódu.
Poté otevřete funkci VarType.
Nyní zadejte název proměnné jako argument funkce VARTYPE.
Kód:
Sub VarType_Example () Dim MyVar MyVar = "Dobrý den" MsgBox VarType (MyVar) End Sub
Nyní spusťte kód a podívejte se, co dostaneme do okna se zprávou.
Výsledek jsme dostali jako 8, protože VBA má určité kódy pro každý druh variabilního datového typu, takže níže je uveden podrobný seznam.
| Hodnota | Konstantní | Popis | ||
| 0 | vbEmpty | Proměnná ještě není inicializována | ||
| 1 | vbNull | Přiřazena neplatná data | ||
| 2 | vbInteger | Hodnota proměnné je datový typ „Integer“ | ||
| 3 | vbLong | Hodnota proměnné je datový typ „Long“ | ||
| 4 | vbSingle | Hodnota proměnné je datový typ „Single“ | ||
| 5 | vbDouble | Hodnota proměnné je datový typ „Double“ | ||
| 6 | vbMěna | Hodnota proměnné je datový typ „Měna“ | ||
| 7 | vbDate | Hodnota proměnné je datový typ „Datum“ | ||
| 8 | vbString | Hodnota proměnné je datový typ „String“ | ||
| 9 | vbObject | Hodnota proměnné je datový typ „Objekt“ | ||
| 10 | vbError | Hodnota proměnné je chybová hodnota | ||
| 11 | vbBoolean | Proměnná hodnota je datový typ „Boolean“ | ||
| 12 | vbVariant | Hodnota proměnné je datový typ „Variant“ (používá se pouze u polí variant) | ||
| 13 | vbDataObject | Hodnota proměnné je Data Access Object | ||
| 14 | vbDecimal | Hodnota proměnné je datový typ „Decimal“ | ||
| 17 | vbByte | Hodnota proměnné je datový typ „Byte“ | ||
| 20 | vbLongLong | Hodnota proměnné je datový typ „LONG LONG“ (platí pouze pro 64bitové platformy) | ||
| 36 | vbUserDefinedType | Hodnota proměnné je datový typ „Definováno uživatelem“ | ||
| 8192 | vbArray | Hodnota proměnné je Array |
Dobře, náš kód nyní přeladil datový typ proměnné na 8, tj. Název proměnné „MyVar“ obsahuje datový typ „String“.
Příklad č. 2
Nyní se podívejte na níže uvedený kód.
Kód:
Sub VarType_Example2 () Dim MyVar Set MyVar = ThisWorkbook MsgBox VarType (MyVar) End Sub
Spustíme tento kód a uvidíme, jaký bude výsledek.
Výsledkem je 9 tj. Proměnná, která obsahuje datový typ „Object“. Ano, je to správné, protože pro proměnnou „MyVar“ jsme nastavili odkaz na sešit „This Workbook“.
Příklad č. 3
Nyní se podívejte na níže uvedený kód.
Kód:
Sub VarType_Example3 () Dim MyVar MyVar = 32500 MsgBox VarType (MyVar) End Sub
Výsledek se vrátí jako 2.
Protože číslo 32500, které je přiřazeno proměnné, je hodnota „Integer“.
Nyní změním hodnotu na 40000 a uvidím výsledek.
Kód:
Sub VarType_Example4 () Dim MyVar MyVar = 40000 MsgBox VarType (MyVar) End Sub
Výsledkem bude výsledek 3.
Protože hodnota celého čísla končí na 32767, bude se s čímkoli výše považovat za datový typ VBA LONG.
Nyní toto číslo uzavřu do uvozovek.
Kód:
Sub VarType_Example5 () Dim MyVar MyVar = "40000" MsgBox VarType (MyVar) End Sub
Spusťte kód a podívejte se na výsledek.
Výsledek jsme dostali jako 8, tj. Datový typ String.
Důvodem je to, že vše, co je součástí závorky, bude považováno za proměnnou řetězce.
Věci k zapamatování
- VARTYPE znamená „Variabilní typ“.
- Datový typ je reprezentován jedinečnými čísly, takže v tabulce zjistěte, které číslo představuje který proměnný datový typ.
