Как округлить диапазон чисел до ближайшего чётного значения в Excel?
Что такое округление до чётного в Excel? Округление до чётного, также известное как банковское округление, напоминает обычное округление, за исключением ситуаций, когда округляемое число оканчивается на 5. В таких случаях, если цифра перед 5 нечётная — число округляется вверх, а если чётная — вниз.
Например, 23,345 при округлении до чётного на уровне сотых будет 23,34 и 12,335 при округлении до чётного на уровне сотых будет 12,34.
В этой статье я покажу, как выполнить банковское округление в Excel.
Округление чисел до чётного с помощью пользовательской функции
Округление чисел до чётного с помощью кода VBA
Округление чисел до чётного с помощью Kutools для Excel
Округление чисел до чётного с помощью пользовательской функции
Вы можете воспользоваться следующей пользовательской функцией, чтобы округлять числа до ближайшего чётного значения в Excel. Выполните указанные ниже действия:
1. Выделите числа, которые нужно округлить до ближайшего чётного.
2. Затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
3. Нажмите Вставка > Модуль и вставьте следующий макрос в окно модуля.
Function BankersRound(num, precision)
BankersRound = Round(num, precision)
End Function
4. Сохраните код и введите формулу = bankersround(a1,2) в соседнюю пустую ячейку. См. снимок экрана:
5. Нажмите клавишу Enter. Затем выделите ячейку B1 и перетащите маркер заполнения на диапазон, к которому нужно применить эту формулу. См. снимок экрана:
Округление чисел до чётного с помощью кода VBA
Если вы не хотите использовать пользовательскую функцию, вам поможет и следующий код VBA. Выполните следующие действия:
1. Выделите диапазон, который нужно округлить до ближайшего чётного числа.
2. Затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
3. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.
Sub RoundToEven()
'Update 20131107
Dim rng As Range
Dim WorkRng As Range
Dim intNumberOfDecimal As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
intNumberOfDecimal = Application.InputBox("NumberOfDecimal", xTitleId, Type:=1)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
rng.Value = Round(rng.Value, intNumberOfDecimal)
Next
End Sub4. Затем нажмите клавишу F5, чтобы запустить этот код. Во всплывающем окне укажите, до скольких десятичных знаков нужно округлить число. См. снимок экрана:
5. Затем нажмите кнопку OK, и все выделенные числа будут округлены до ближайшего чётного. См. снимки экрана:
 |  |  |
Округление чисел до чётного с помощью Kutools для Excel
Если пользовательская функция или код VBA кажутся вам слишком сложными, я предлагаю более простой способ решения этой задачи. С помощью Округление без использования формул из Kutools для Excel вы сможете быстро округлить диапазон чисел до чётного.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Получить сейчас.
После установки Kutools для Excel выполните следующие действия:
1. Выделите диапазон, который требуется округлить до чётного.
2. Нажмите Kutools > Округление.
3. В диалоговом окне Округление без использования формул введите нужное количество десятичных знаков, выберите Округлить до чётного в разделе Параметр, и результат сразу отобразится в Области предварительного просмотра. См. снимок экрана:
4. Затем нажмите кнопку OK или Применить, и все числа будут округлены до ближайшего чётного значения с точностью до двух десятичных знаков.
Нажмите «Округлить до чётного», чтобы подробнее узнать об этой функции.
См. также:
Округление / округление вверх / округление вниз диапазона чисел в ячейках Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек