В этом руководстве будет показано, как использовать функцию CInt VBA для преобразования выражения в целочисленный тип данных.
Функция CInt
VBA CInt преобразовать выражение в целое число
Функцию VBA CInt можно использовать для преобразования выражений в целочисленный тип данных внутри кода VBA. Полученное число округляется до целого числа.
| 123456 | Sub CIntExample_1 ()MsgBox CInt (12.34) 'Результат: 12MsgBox CInt (12.345) 'Результат: 12MsgBox CInt (-124) 'Результат: -124MsgBox CInt (-12.34) 'Результат: -12Конец подписки |
VBA CInt Rounding
Функция VBA CInt округляет десятичную часть числового типа или числового выражения. Однако не во всех случаях округление выполняется правильно. Когда десятичная часть равна 0,5, функция VBA CInt возвращает ближайшее четное целое число.
| 12345678910111213141516 | Sub CIntExample_2 ()MsgBox CInt (0,34)'Результат: 0MsgBox CInt (0,99)Результат: 1MsgBox CInt (-124,95)Результат: -125MsgBox CInt (1.5)Результат: 2MsgBox CInt (2.5)Результат: 2Конец подписки |
Мы можем добавить относительно небольшое десятичное число к нашему ожидаемому десятичному значению, чтобы изменить поведение функции VBA Cint на ожидаемое.
| 1234567891011 | Sub CIntExample_3 ()MsgBox CInt (2.5)Результат: 2MsgBox CInt (2,5 + 0,001)Результат: 3MsgBox CInt (14,5)Результат: 14MsgBox CInt (14,5 + 0,001)Результат: 15Конец подписки |
Программирование на VBA | Генератор кода действительно работает для вас!
VBA CInt преобразование строк в целые числа
Функцию VBA CInt можно использовать для преобразования строк в целые числа, если символы в строке имеют значение как числа.
| 123456789101112131415161718 | Sub CIntExample_4 ()Dim StrEx как строкаStrEx = "112"MsgBox CInt (StrEx)Результат: 112StrEx = "112,3"MsgBox CInt (StrEx)Результат: 112 -> 112,3 округлено.StrEx = "11,2"MsgBox CInt (StrEx)'Результат: 112 ->, игнорируетсяStrEx = "112 долларов"MsgBox CInt (StrEx)'Результат: 112 -> $ игнорируетсяКонец подписки |
Ошибка выполнения VBA CInt 13 Несоответствие типов
Использование функции VBA Cint со строками, содержащими нечисловые символы или символы, не имеющие значения в числовом контексте, приведет к ошибке времени выполнения ’13’: Несоответствие типов.
| 1234567 | Sub CIntExample_5 ()'Приведенный ниже код приведет к сообщению об ОШИБКЕCInt не может обрабатывать нечисловые символыDim StrEx как строкаStrEx = "Ab13"MsgBox CInt (StrEx)Конец подписки |
Ошибка времени выполнения VBA CInt 6, переполнение
Использование функции VBA Cint со строками, значение которых меньше или больше ожидаемого целого числа, приведет к ошибке времени выполнения ’6’: переполнение. Целочисленный тип данных в Excel имеет ожидаемое значение от -32768 до 32767.
| 1234567 | Sub CIntExample_6 ()'Приведенный ниже код приведет к сообщению об ОШИБКЕ'CInt не может обрабатывать нечисловые символыDim StrEx как строкаStrEx = "1234567"MsgBox CInt (StrEx)Конец подписки |
Устали искать примеры кода VBA? Попробуйте AutoMacro!
Региональные настройки VBA CInt
Функция VBA CInt имеет другое поведение, преобразуя строки с запятой или точкой. Он использует региональные настройки операционной системы для десятичного разделителя и разделителя цифр.
| 12345678910111213141516 | Sub CIntExample_7 ()Dim StrEx как строкаStrEx = "1,9"MsgBox CInt (StrEx)‘Если в региональных настройках в качестве разделителя группировки указаноРезультат: 19‘Если в региональных настройках в качестве десятичного разделителя указаноРезультат: 2 (2, потому что 1,9 округляется)StrEx = "1.9"MsgBox CInt (StrEx)‘Если в региональных настройках есть. как разделитель группировки, тогдаРезультат: 19‘Если в региональных настройках есть. как десятичный разделитель, тогдаРезультат: 2 (2, потому что 1,9 округляется)Конец подписки |
Программирование на VBA | Генератор кода действительно работает для вас!
VBA CInt преобразование логических значений в целые числа
Функция VBA Cint может преобразовывать логические переменные в целые числа. Если вычисленное выражение истинно, результирующее целое число равно -1, а если вычисленное выражение ложно, результирующее целое число равно 0.
| 12345678910 | Sub CIntExample_8 ()Dim BoolEx как логическоеBoolEx = TrueMsgBox CInt (BoolEx) 'Результат: -1MsgBox CInt (2 = 2) 'Результат: -1BoolEx = ЛожьMsgBox CInt (BoolEx) 'Результат: 0MsgBox CInt (1 = 2) 'Результат: 0Конец подписки |
VBA CInt преобразование дат в целые числа
Функция VBA Cint может преобразовывать переменную даты в целое число. Возвращаемое значение - это внутреннее число, используемое Excel для округления даты хранения. Если это число выходит за пределы ожидаемых целочисленных ограничений для VBA, мы получаем ошибку времени выполнения '6': переполнение.
| 123456789 | Sub CIntExample_9 ()Dim DateEx как датаDateEx = # 2/3/1940 #MsgBox CInt (DateEx)Результат: 14644DateEx = # 8/7/1964 #MsgBox CInt (DateEx)Результат: 23596Конец подписки |
