Тип двойной переменной
VBA Двойной тип данных используется для хранения чисел, требующих десятичных знаков. Он может хранить от -1,79769313486231E308 до -4,94065645841247E-324 для отрицательных значений и от 4,94065645841247E-324 до 1,79769313486232E308 для положительных значений.
Чтобы объявить переменную Double, вы используете оператор Dim (сокращение от Dimension):
| 1 | Dim dblA как двойной |
Затем, чтобы присвоить значение переменной, просто используйте знак равенства:
| 1 | dlbA = 3658,25 |
Ввод этого в процедуру выглядит так:
| 12345678 | Sub dblExample ()'объявить двойную переменнуюDim dblA как двойной'заполнить двойную переменнуюdblA = 3658,25'показать окно сообщенияMsgBox dblAКонец подписки |
Если вы запустите приведенный выше код, появится следующее окно сообщения.
Единый тип данных
Тип данных Single - это просто сокращенная версия типа данных Double. Из-за этого он может влиять на округление при использовании в процедуре, поскольку одиночный тип данных будет округляться до 4 десятичных знаков, а тип данных Double будет округляться до 12 десятичных знаков. Если вам не нужен тип данных Double, вы можете использовать тип данных Single
Типы данных Int или Long
Если десятичный разряд не нужен, можно использовать либо тип данных Int, либо тип данных Long.
| 1 | Dim intA как целое число |
| 1 | Dim lngB как Long |
Объявить двойную переменную на модульном или глобальном уровне
В предыдущих примерах мы объявили переменную Double внутри процедуры. Переменные, объявленные с помощью процедуры, могут использоваться только внутри этой процедуры.
Вместо этого вы можете объявить переменные Double на модульном или глобальном уровне.
Уровень модуля
Уровень модуля переменные объявляются в верхней части модулей кода с Тусклый утверждение.
Эти переменные можно использовать с любой процедурой в этом модуле кода.
Глобальный уровень
Глобальный уровень переменные также объявляются в верхней части модулей кода. Однако вместо использования Тусклый заявление, используйте Общественные , чтобы указать, что переменная Double доступна для использования во всем вашем проекте VBA.
| 1 | Public DblA как Double |
Если вы объявите переменную double на уровне модуля, а затем попытаетесь использовать ее в другом модуле, возникнет ошибка.
Однако, если вы использовали ключевое слово Public для объявления переменной double, ошибки не возникнет, и процедура будет работать безупречно.
Форматирование с двойным хранением в виде строки
Может быть, в какой-то момент вы захотите преобразовать двойной тип данных в строку - например, вы можете отобразить символ валюты и округлить число до двух десятичных знаков.
Для этого вы используете функцию форматирования.
Следующая процедура
| 1234567891011 | Sub TestDoubleToCurrencyString ()'объявить строковую переменнуюDim strMoney как строка'объявить двойное и заполнить значениеDim dblValue As DoubledblValue = 44055.256'преобразовать двойное число в строку с символом валюты с двумя десятичными знакамиstrMoney = Format (dblValue, "$ #, ## 0.00")'посмотреть результатMsgBox strMoneyКонец подписки |
вернет этот результат:
Точно так же вы можете отобразить номер как отформатированный номер телефона.
Эта процедура:
| 1234567891011 | Sub TestDoubleToPhone ()'объявить строковую переменнуюDim strPhone As String'объявить двойное и заполнить значениеDim dblValue As DoubledblValue = 555968541'конвертируем двойное число в строку с символом валютыstrPhone = Format (dblValue, "(000) -000 0000")'посмотреть результатMsgBox strPhoneКонец подписки |
вернет этот результат:
