Авторство зображення: mavoimages/iStock/Getty Images
Вивчення того, як використовувати функцію "Roundup" Excel з її вбудованою мовою програмування VBA або Visual Basic для додатків, допоможе вам запустити будь-яку функцію Excel із VBA. Ця навичка корисна, оскільки Excel має багато функцій, яких у VBA немає, і які, можливо, доведеться застосувати з програми VBA. Зауважте, що функція VBA, яка дозволяє використовувати функцію «Roundup», не попереджатиме вас про неправильний синтаксис або аргумент, як це було б при використанні стандартного інтерфейсу робочого аркуша.
Мета
Функція Excel "Roundup" округляє число в більшу сторону до вказаної вами цифри. Наприклад, запуск "Roundup (2.2, 0)" повідомляє Excel, що потрібно округлити число 2,2 до наступного цілого. "0" у другому аргументі повідомляє Excel, що вам не потрібні цифри після десяткової коми, що еквівалентно тому, що ви хочете отримати цілу відповідь.
Відео дня
Функція VBA Round
VBA не має вбудованої функції "Roundup". Найближча функція, яку він має, — це функція «Округлення», яка округляє вгору або вниз залежно від того, чи є кінцева цифра числа, яке ви округляєте, більше чи менше 5. Наприклад, якщо ввести «Округ (2.2, 0)» у вікні «Негайне» VBA, то буде отримано 2 замість 3, до якого округлилася б функція Excel «Округлення».
Властивість «Формула».
Хоча VBA не має власної функції "Roundup", він може використовувати функцію "Roundup" Excel. Щоб доручити VBA це зробити, установіть властивість «Формула» віртуального об’єкта «Діапазон» на функцію «Roundup». Наступний приклад показує, як це зробити. Відкрийте середовище розробки VBA, одночасно натиснувши «Alt» і «F11» з Excel. Клацніть мишею у вікні «Негайне», потім введіть таку заяву: «Діапазон ("A1").Формула = "=Округлення (2.2, 0)"." Поверніться до Excel за допомогою щойно описаної клавіші "Alt-F11".. Ви побачите результат «3» у клітинці A1, що вказує на те, що ваша заява успішно застосувала функцію «Roundup» Excel.
Інтерактивний приклад
Ви можете створити інтерактивну програму VBA, яка приймає від користувача аргументи для функції «Roundup» і відображає результат цієї функції. Після відкриття середовища розробки VBA вставте у вікно таку програму:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Введіть число, яке ви хочете округлити")) a2 = CInt (InputBox("Введіть кількість десяткових знаків, до якого ви хочете округлити число, яке ви щойно ввели.")) s = "=Округлення(" & a1 & "," & a2 & ")" Range("A1").Formula = s Range("A1") .Calculate MsgBox (діапазон("A1").Value) End Суб
Запустіть програму, клацнувши один із її операторів, а потім клацнувши команду «Виконати» в меню «Виконати». Коли Excel запропонує вам ввести аргументи функції, введіть їх і натисніть «Enter». Ваша програма відобразить результат функції "Roundup" для введених вами аргументів.
