Тип подвійної змінної
VBA Подвійний тип даних використовується для зберігання чисел, що вимагають знаків після коми. Він може зберігати від -1.79769313486231E308 до -4.94065645841247E -324 для від'ємних значень і від 4.94065645841247E -324 до 1,79769313486232E308 для позитивних значень.
Для оголошення подвійної змінної використовуйте оператор Dim (скорочення від Dimension):
| 1 | Dim dblA як Double |
Тоді, щоб призначити змінній значення, просто використовуйте знак рівності:
| 1 | dlbA = 3658,25 |
Введення цього в процедуру виглядає так:
| 12345678 | Sub dblExample ()'оголосити подвійну зміннуDim dblA як Double'заповнити подвійну зміннуdblA = 3658,25'показати вікно повідомленьMsgBox dblAEnd Sub |
Якщо ви запустите код вище, відобразиться таке вікно повідомлення.
Єдиний тип даних
Тип даних Single - це лише скорочена версія типу даних Double. З огляду на цей факт, він може вплинути на округлення при використанні в процедурі, оскільки єдиний тип даних буде округлятися до 4 знаків після коми, тоді як тип подвійних даних буде округлятися до 12 знаків після коми. Якщо вам не потрібен тип даних Double, ви можете використовувати тип даних Single
Внутрішні або довгі типи даних
Якщо вам не потрібен десятковий знак, ви можете використовувати тип даних Int або тип даних Long.
| 1 | Dim intA як Integer |
| 1 | Dim lngB as Long |
Оголошення подвійної змінної на модульному або глобальному рівні
У попередніх прикладах ми оголошували подвійну змінну в рамках процедури. Змінні, оголошені процедурою, можна використовувати лише в рамках цієї процедури.
Замість цього ви можете оголосити подвійні змінні на модульному або глобальному рівні.
Рівень модуля
Рівень модуля змінні оголошуються у верхній частині модулів коду за допомогою Dim заяву.
Ці змінні можна використовувати з будь -якою процедурою в цьому модулі коду.
Глобальний рівень
Глобальний рівень змінні також оголошуються у верхній частині модулів коду. Однак замість використання Dim висловлювання, використовуйте Громадські , щоб вказати, що подвійна змінна доступна для використання у вашому проекті VBA.
| 1 | Загальнодоступний DblA як подвійний |
Якщо б ви оголосили подвійну змінну на рівні модуля, а потім спробували використати її в іншому модулі, виникла б помилка.
Однак, якби ви використовували ключове слово Public для оголошення подвійної змінної, помилка не відбулася б і процедура працювала б ідеально.
Форматувати подвійне збереження як рядок
Може бути час, коли ви хочете відформатувати подвійний тип даних у рядку - наприклад, вам може знадобитися відобразити символ валюти та округлити число до 2 знаків після коми.
Для цього використовуйте функцію Формат.
Наступна процедура
| 1234567891011 | Sub TestDoubleToCurrencyString ()'оголосити рядкову зміннуЗатемнити strMoney As String'оголосити double і заповнити значенняDim dblValue As DoubledblValue = 44055.256'перетворити подвійне в рядок із символом валюти з 2 знаками після комиstrMoney = Формат (dblValue, "$#, ## 0.00")'переглянути результатMsgBox strMoneyEnd Sub |
поверне цей результат:
Подібним чином ви можете відобразити номер як відформатований номер телефону.
Ця процедура:
| 1234567891011 | Sub TestDoubleToPhone ()'оголосити рядкову зміннуDim strPhone як струнна'оголосити double і заповнити значенняDim dblValue As DoubledblValue = 555968541'перетворити подвійне в рядок із символом валютиstrPhone = Формат (dblValue, "(000) -000 0000")'переглянути результатMsgBox strPhoneEnd Sub |
поверне цей результат:
