Как да закръгля диапазон от числа дори в Excel?
Какво е кръгло до дори в Excel? Закръглете до четно число, наричано още банкерско закръгляване, по същество е точно като нормалното закръгляване, освен когато числото, което трябва да се закръгли, е число 5. Ако цифрата преди 5 е нечетна, трябва да закръглите нагоре и ако цифрата преди 5 е дори, трябва да закръглите надолу.
Например, 23.345 закръглено до дори на процентила ще бъде 23.34. и 12.335 закръглено до дори на процентила ще бъде 12.34.
В тази статия ще говоря за това как да направя закръгляването на банкерите в Excel.
Закръглете числата до дори с дефинирана от потребителя функция
Кръгли числа до дори с VBA код
Закръглете числата до дори с Kutools за Excel
Закръглете числата до дори с дефинирана от потребителя функция
Можете да използвате следната дефинирана функция, за да закръглите числа до дори в Excel. Моля, направете следното:
1. Изберете числата, които искате да закръглите до четни.
2. След това задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
3. Щракнете Поставете > Модулии поставете следния макрос в прозореца на модула.
Функция BankersRound(брой, точност)
BankersRound = кръг (брой, точност)
краен Function
4. Запазете кода и въведете формулата = bankersround(a1,2) в съседната празна клетка. Вижте екранна снимка:
5. След това натиснете Въведете ключ. И изберете клетка B1, след което плъзнете манипулатора за запълване до диапазона, който искате да съдържа тази формула. Вижте екранна снимка:
Кръгли числа до дори с VBA код
Ако не искате да използвате дефинираната функция, следният VBA код също може да ви помогне. Направете следното:
1. Изберете диапазона, който искате да закръглите до четен.
2. След това задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
3. Щракнете Поставете > Модулии поставете следния код в МодулиWindow.
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 Sub
4. След това натиснете F5 за да изпълните този код, в полето за подкана въведете броя десетични знаци, които искате да закръглите. Вижте екранна снимка:
5, След това кликнете OK, всички избрани числа са закръглени до четно. Вижте екранни снимки:
Закръглете числата до дори с Kutools за Excel
Нито дефинираната от потребителя функция, нито кодът на VBA може да ви се стори толкова сложен, мога да ви представя лесен начин за решаването му. с Кръг без формула of Kutools за Excel, можете бързо да закръглите диапазон от числа до четно.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.
След като инсталирате Kutools за Excel, можете да направите следното:
1. Маркирайте диапазона, който искате да закръглите до четен.
2. Щракнете Kutools > Кръгъл, вижте екранна снимка:
3. В Кръг без формула диалогов прозорец, въведете десетичния знак, от който се нуждаете, и след това изберете Закръглете до Четно под Опцияи можете да прегледате резултата от Панел за визуализация. Вижте екранна снимка:
4, След това кликнете OK or Добавете Обява, всички числа ще бъдат закръглени до четен знак след десетичната запетая.
Кликнете върху Round to Even, за да научите повече за тази функция.
Свързана статия:
Закръглете/закръглете нагоре/надолу диапазон от номера на клетки в Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!