Тип однієї змінної
VBA Неодружений тип даних використовується для зберігання чисел, що вимагають знаків після коми. Він може зберігати від -3,4028235E+38 до -1,401298E -45 для негативних значень і від 1,401298E -45 до 3,4028235E+38 для позитивних значень.
Щоб оголосити єдину змінну, ви використовуєте оператор Dim (скорочення від Dimension):
1 | Dim sngA як Single |
Тоді, щоб призначити змінній значення, просто використовуйте знак рівності:
1 | sngA = 3658,25 |
Введення цього в процедуру виглядає так:
12345678 | Sub sngExample ()'оголосити подвійну зміннуDim sngA як Single'заповнити подвійну зміннуsngA = 3658,25'показати вікно повідомленьMsgBox sngAEnd Sub |
Якщо ви запустите код вище, відобразиться таке вікно повідомлення.
Подвійний тип даних
Тип даних Double - це лише довша версія Неодружений тип даних. Завдяки цьому факту він може впливати на округлення при використанні в процедурі як Неодружений тип даних округлятиметься до 4 знаків після коми, тоді як Подвійний Тип даних буде округлятися до 12 знаків після коми. Якщо вам потрібно більше 4 знаків після коми, ви можете використовувати тип даних Double.
Внутрішні або довгі типи даних
Якщо вам не потрібен десятковий знак, ви можете використовувати тип даних Int або тип даних Long.
1 | Dim intA як Integer |
1 | Dim lngB as Long |
Програмування VBA | Генератор коду працює для вас!
Оголошення однієї змінної на модульному або глобальному рівні
У попередніх прикладах ми оголошували Неодружений змінна в процедурі. Змінні, оголошені процедурою, можна використовувати лише в рамках цієї процедури.
Замість цього ви можете оголосити окремі змінні на модульному або глобальному рівні.
Рівень модуля
Рівень модуля змінні оголошуються у верхній частині модулів коду за допомогою Dim заяву.
Ці змінні можна використовувати з будь -якою процедурою в цьому модулі коду.
Глобальний рівень
Глобальний рівень змінні також оголошуються у верхній частині модулів коду. Однак замість використання Dim висловлювання, використовуйте Громадські заяву про те, що Неодружений Змінна доступна для використання у вашому проекті VBA.
1 | Публічна SngA як одиночна |
Якби ви оголосили Неодружений змінної на рівні модуля, а потім спробуйте використати її в іншому модулі, може виникнути помилка.
Однак, якщо б ви використовували ключове слово Public для оголошення Неодружений змінної, помилка не відбудеться, і процедура працюватиме ідеально.
Втомилися від пошуку прикладів коду VBA? Спробуйте AutoMacro!
Форматувати єдине збереження як рядок
Може бути час, коли ви хочете відформатувати один тип даних у рядок - наприклад, вам може знадобитися відобразити символ валюти та округлити число до 2 знаків після коми.
Для цього використовуйте функцію Формат.
Наступна процедура
1234567891011 | Sub TestSingleToCurrencyString ()'оголосити рядкову зміннуЗатемнити strMoney As String'оголосити єдине та заповнити значенняDim sngValue As SinglesngValue = 44055.256'перетворити сингл у рядок із символом валюти з 2 знаками після комиstrMoney = Формат (sngValue, "$#, ## 0.00")'переглянути результатMsgBox strMoneyEnd Sub |
поверне цей результат:
Подібним чином ви можете відобразити номер як відформатований номер телефону.
Ця процедура:
1234567891011 | ПідтестSingleToPhone ()'оголосити рядкову зміннуDim strPhone як струнна'оголосити єдине та заповнити значенняDim sglValue Як єдинийsglValue = 555968541'перетворити сингл у рядок із символом валютиstrPhone = Формат (sglValue, "(000) -000 0000")'переглянути результатMsgBox strPhoneEnd Sub |
поверне цей результат: