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