У цій статті буде продемонстровано використання функції VarType у VBA.
VarType означає тип змінної. Ми можемо надати назву змінної функції VarType, і вона поверне ціле число, яке зображує тип даних, що зберігаються в цій змінній відповідно до списку констант VBA.
Використання змінної варіанта для пошуку типу VarType
Ми можемо оголосити змінну як змінну Variant. Це дозволить нам зберігати в ньому будь -які дозволені дані. Потім ми можемо заповнити цю змінну та скористатися функцією VarType, щоб побачити, який тип даних міститься у змінній.
Наприклад:
| 12345 | Sub TestVarType ()Затемнити MyVariable як варіантMyVariable = "Привіт, світ"MsgBox "Тип змінної" & VarType (MyVariable)End Sub |
Це поверне наступне вікно повідомлення:
Тому повертається значення 8. Це в константі Excel, яка визначає тип даних, які зберігаються у змінній.
Це постійне значення відповідає таблиці нижче:
| Постійна | Цінність | Опис |
|---|---|---|
| vbEmpty | 0 | Порожній (неініціалізований) |
| vbNull | 1 | Нуль (немає дійсних даних) |
| vbInteger | 2 | Ціле число |
| vbLong | 3 | Довге ціле число |
| vbОдиничний | 4 | Одноточне число з плаваючою комою |
| vbДвомісний | 5 | Число з плаваючою крапкою подвійної точності |
| vbCurrency | 6 | Валютна вартість |
| vbDate | 7 | Значення дати |
| vbString | 8 | Рядок |
| vbObject | 9 | Об'єкт |
| vbError | 10 | Значення помилки |
| vbBoolean | 11 | Булеве значення |
| vbVariant | 12 | Варіант (використовується тільки з масивами варіантів) |
| vbDataObject | 13 | Об'єкт доступу до даних |
| vbDecimal | 14 | Десяткове значення |
| vbByte | 17 | Значення байта |
| vbLongLong | 20 | Ціле число LongLong (діє лише на 64-розрядних платформах) |
| vbUserDefinedType | 36 | Варіанти, які містять типи, визначені користувачем |
| vbArray | 8192 | Масив (завжди додається до іншої константи, коли повертається цією функцією) |
Ми можемо спробувати інший приклад:
| 12345 | Sub TestVarType ()Затемнити MyVariable як варіантMyVariable = 32760MsgBox "Тип змінної" & VarType (MyVariable)End Sub |
Цього разу вікно повідомлення поверне 2, оскільки тип даних, що зберігаються у змінній, - Ціле число.
Однак, якщо ми змінимо значення на 32780, то повернеться значення 3 - Long Integer, оскільки цілочисельний тип даних має максимальне значення 32767; після чого це довге ціле число.
Якби ми знову змінили кодекс:
| 12345 | Sub TestVarType ()Затемнити MyVariable як варіантMyVariable = 32760,52MsgBox "Тип змінної" & VarType (MyVariable)End Sub |
Тепер ми отримали б значення 5, яке повертається - тип даних подвійний через десяткові знаки.
Якщо б ми поставили значення у змінній у лапках, тоді знову буде повернуто 8, оскільки будь -яке значення, що міститься в лапках, зберігається у вигляді рядкового значення.
| 12345 | Sub TestVarType ()Затемнити MyVariable як варіантMyVariable = "32760,52"MsgBox "Тип змінної" & VarType (MyVariable)End Sub |
