Овај чланак ће демонстрирати употребу функције ВарТипе у ВБА.
ВарТипе значи Вариабле Типе. Функцији ВарТипе можемо доставити име променљиве и она ће вратити цео број који приказује врсту података ускладиштених у тој променљивој према листи ВБА константи.
Коришћење варијабле варијанте за проналажење типа ВарТипе
Променљиву можемо прогласити променљивом Вариант. То ће нам омогућити да у њега смештамо све врсте дозвољених података. Затим можемо попунити ову променљиву и користити функцију ВарТипе да видимо која врста података се налази у променљивој.
На пример:
| 12345 | Под ТестВарТипе ()Дим МиВариабле Ас ВариантМиВариабле = "Здраво свете"МсгБок "Тип променљиве је" & ВарТипе (МиВариабле)Енд Суб |
Ово ће вратити следеће поље за поруку:
Вредност 8 се стога враћа. Ово у Екцел константи која дефинише тип података који се чувају у променљивој.
Ова константна вредност одговара доњој табели:
| Цонстант | Вредност | Опис |
|---|---|---|
| вбЕмпти | 0 | Празно (неиницијализовано) |
| вбНулл | 1 | Нулл (нема важећих података) |
| вбИнтегер | 2 | Интегер |
| вбЛонг | 3 | Лонг интегер |
| вбСингле | 4 | Број са покретном зарезом једне прецизности |
| вбДоубле | 5 | Двоструко прецизан број са покретним зарезом |
| вбЦурренци | 6 | Вредност валуте |
| вбДате | 7 | Вредност датума |
| вбСтринг | 8 | Низ |
| вбОбјецт | 9 | Објецт |
| вбЕррор | 10 | Вредност грешке |
| вбБоолеан | 11 | Логичка вредност |
| вбВариант | 12 | Варијанта (користи се само са низовима варијанти) |
| вбДатаОбјецт | 13 | Објекат за приступ подацима |
| вбДецимал | 14 | Децимална вредност |
| вбБите | 17 | Вредност бајта |
| вбЛонгЛонг | 20 | ЛонгЛонг цео број (важи само за 64-битне платформе) |
| вбУсерДефинедТипе | 36 | Варијанте које садрже кориснички дефинисане типове |
| вбАрраи | 8192 | Низ (увек се додаје другој константи када се врати помоћу ове функције) |
Можемо покушати са другим примером:
| 12345 | Под ТестВарТипе ()Дим МиВариабле Ас ВариантМоја променљива = 32760МсгБок "Тип променљиве је" & ВарТипе (МиВариабле)Енд Суб |
Овог пута оквир за поруку ће вратити 2 јер је тип података који се чувају у променљивој Интегер.
Међутим, ако променимо вредност на 32780, тада ће вредност бити 3 - Лонг Интегер као Интегер тип података има максималну вредност од 32767; након чега је Лонг Интегер.
Ако бисмо још једном изменили код:
| 12345 | Под ТестВарТипе ()Дим МиВариабле Ас ВариантМоја променљива = 32760,52МсгБок "Тип променљиве је" & ВарТипе (МиВариабле)Енд Суб |
Сада бисмо добили вредност 5 која се враћа - тип података је Доубле због децималних места.
Ако бисмо вредност у променљивој ставили под наводнике, поново би се вратило 8 јер се свака вредност која се налази у наводницима складишти као вредност низа.
| 12345 | Под ТестВарТипе ()Дим МиВариабле Ас ВариантМиВариабле = "32760.52"МсгБок "Тип променљиве је" & ВарТипе (МиВариабле)Енд Суб |
