Очень часто при создании алгоритмов подсчета тех или иных значений полученные результаты имеют значение десятичной дроби с большим количеством знаков после запятой. Работать с такими данными и отображать их не очень удобно и некрасиво. Рассмотрим какими функциями следует округлять данные в коде vba Excel.
Первый способ округления при помощью функции int().
Данная функция выводит целое значение до запятой. При округлении отрицательных чисел int округляет десятичную дробь до большего целого значения. Например: число Пи с минусом после округления — int (-3.1415926535 ) будет равно 4 (четырем целым).
Второй способ округление при помощи функции fix()
происходит аналогично с int . Отличается эта функция тем, что округляет отрицательные числа до меньшего значения. Так округлённое число Пи со знаком минус будет fix( −3.1415926535) = 3. Если требуется не просто убрать дробную часть, а округлить до целого числа, можно использовать следующую функцию cint(). Пример: Cint(fix( −3.1415926535)) = 3 Cint(int( −3.1415926535)) = 3
Как округлять до десятых и сотых (один и два знака после запятой, соответственно).
Для округления до десятых следует умножить переменную на 10 (десять), после чего округлить до целых и разделить на 10 (десять). Пример: Cint(int( −3.1415926535*10))/10 = 3.1 Cint(fix( −3.1415926535*10))/10 = 3.1
Пример кода округляющего значения из textbox, запускающийся нажатием кнопки CommandButtom1:
Private sub CommandButtom1_click() textbox2.value = Cint(int(textbox1.value *100))/100 END SUB
Видео с примером работы макроса:
Как видите, ничего сложного в округлении чисел в vba Excel нет. Удачи Вам в изучении программы
