Раунд VBA
Кругла функція VBA округлює числа до певної кількості цифр.
Синтаксис круглої функції VBA
Синтаксис круглої функції VBA такий:
Круглий (вираз, [десяткові місця]) де:
- Вираз - число для округлення.
- Десяткові_місця (Необов’язково) - Ціле число, яке вказує кількість десяткових знаків для округлення. Значення має бути більшим або рівним 0 (> = 0). Якщо поле порожнє, використовується значення за замовчуванням 0, що означає, що функція округляється до найближчого цілого числа.
Отже, давайте розглянемо приклад, щоб ви могли побачити, як працює функція VBA Round, округлюючи до 1 знака після коми:
12345 | Підраунд1 ()Msgbox Round (7.25, 1)End Sub |
Отриманий MessageBox:
Кругла змінна VBA
У наведеному вище прикладі ми вводимо округлене число безпосередньо у функцію, проте зазвичай замість цього потрібно округлити змінну. Нижче наведено приклад використання замість цього змінної:
Примітка: Ми використовуємо тип змінної Double для зберігання десяткових значень.
123456789 | Sub RoundUsingVariable ()Зменшити одиничний рахунок як подвійнийодиничний рахунок = 7,25MsgBox "The value is" & Round (unitcount, 1)End Sub |
Результат такий:
Результати округлення VBA
Фактичний номер | Кількість десяткових місць | Результат |
---|---|---|
7.25 | 0 | 7 |
7.25 | 1 | 7.2 |
7.25 | 2 | 7.25 |
-7.25 | 1 | -7.2 |
-7.25 | 2 | -7.25 |
Втомилися від пошуку прикладів коду VBA? Спробуйте AutoMacro!
Значення круглої комірки VBA
Ви також можете округлити значення комірки безпосередньо у VBA:
123 | Sub RoundCell ()Діапазон ("A1"). Значення = кругле (Діапазон ("A1"). Значення, 2)End Sub |
Функція VBA RoundUp
Припустимо, ви хочете округлити число, використовуючи VBA. Немає вбудованої еквівалентної функції VBA RoundUp, натомість ви можете викликати функцію Excel RoundUp Worksheet з коду VBA:
1 | roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 3) |
Функції робочого аркуша Excel можна використовувати у VBA за допомогою Робочий лист Функція об'єкт. Єдиними функціями робочого аркуша, які ви не можете викликати, є ті, які вже мають вбудований еквівалент VBA.
Нагадування про синтаксис функції RoundUp на робочому аркуші Excel:
ROUNDUP (число, цифри) де:
- Номер - число, яке потрібно округлити.
- Цифри - кількість цифр, які потрібно округлити.
Отже, давайте розглянемо приклад, щоб ви могли побачити, як отримати доступ до функції аркуша RoundUp у вашому коді VBA:
12345678910111213 | Доокруглення ()Зменшити одиничний рахунок як подвійнийРозмити як подвійнеодиничний рахунок = 7,075711roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 4)MsgBox "Значення" & roundupUnitcountEnd Sub |
Результат такий:
Округлення до найближчого цілого номера
Ви можете округлити до найближчого цілого числа, вказавши 0 як кількість знаків після коми:
12345 | Sub RoundUpWhole ()MsgBox Application.WorksheetFunction.RoundUp (7.1, 0)End Sub |
Досягнутий результат:
Програмування VBA | Генератор коду працює для вас!
Результати функції RoundUp
Фактичний номер | Цифри | Результат |
---|---|---|
7.075711 | 0 | 8 |
7.075711 | 1 | 7.1 |
7.075711 | 2 | 7.08 |
7.075711 | 3 | 7.076 |
7.075711 | -1 | 10 |
7.075711 | -2 | 100 |
7.075711 | -3 | 1000 |
Функція VBA RoundDown
Припустимо, ви хочете округлити число вниз, використовуючи VBA. Також немає вбудованої еквівалентної функції VBA RoundDown, але знову ж таки, вам потрібно буде викликати функцію Excel RoundDown Worksheet з вашого коду VBA.
Нагадування про синтаксис функції RoundDown робочого аркуша Excel:
ROUNDDOWN (число, цифри) де:
• Число - число, яке ви хотіли б округлити.
• Цифри - кількість цифр, які потрібно округлити.
Отже, давайте розглянемо приклад, щоб ви могли побачити, як отримати доступ до функції RoundDown Worksheet у вашому коді VBA:
12345678910111213 | Sub RoundDown ()Зменшити одиницю як подвійнуЗменшити округлістьодиничний рахунок = 5,225193rounddownUnitcount = Application.WorksheetFunction.RoundDown (unitcount, 4)MsgBox "Значення" & rounddownUnitcountEnd Sub |
Результат такий:
RoundDown до найближчого цілого номера
Ви можете округлити до найближчого цілого числа, вказавши 0 як кількість знаків після коми:
12345 | Sub RoundDownWhole ()Додаток MsgBox.WorksheetFunction.RoundDown (7.8, 0)End Sub |
Результат такий:
Результати функції RoundDown
Фактичний номер | Цифри | Результат |
---|---|---|
5.225193 | 0 | 5 |
5.225193 | 1 | 5.2 |
5.225193 | 2 | 5.22 |
5.225193 | 3 | 5.225 |
5.225193 | -1 | 0 |
5.225193 | -2 | 0 |
5.225193 | -3 | 0 |
Програмування VBA | Генератор коду працює для вас!
Інші функції округлення VBA
Стеля VBA - Округлення до визначеного значення
VBA не має еквівалента функції Ceiling.Math, тому, якщо ви хочете округлити число до найближчого цілого числа або до найближчого заданого кратного значення, то ви можете викликати функцію робочого аркуша Excel Ceiling.Math зі свого коду VBA.
Нагадування про синтаксис стелі робочого аркуша Excel. Математична функція:
CEILING.MATH (Номер, [Значення], [Режим]) де:
- Число - число, яке потрібно округлити.
- Значущість (Необов’язково) - Кратне число, до якого потрібно округлити номер.
- Режим (Необов’язково) - Контролює округлення від'ємних чисел до нуля або від нього.
Отже, давайте розглянемо приклад, щоб ви могли побачити, як отримати доступ до функції Ceiling.Math Worksheet у вашому коді VBA:
12345678910111213 | Sub RoundUpToSignintage ()Зменшити одиничний рахунок як подвійнийНескладний підвісодиничний рахунок = 4.1221roofmathUnitcount = Application.WorksheetFunction.Ceiling_Math (unitcount, 5)MsgBox "Значення" & uppermathUnitcountEnd Sub |
Результат такий:
Обхід VBA до визначених значущих результатів
Фактичний номер | Значущість | Режим | Результат |
---|---|---|---|
4.1221 | 5 | ||
4.1221 | 3 | 6 | |
4.1221 | 50 | 50 | |
-4.1221 | 3 | -3 | |
-4.1221 | 3 | -1 | -6 |
Поверх VBA - Округлено до визначеного значення
VBA також не має еквівалента функції Floor.Math. Однак, знову ж таки, якщо ви хочете округлити число до найближчого цілого чи до найближчого заданого кратного значення, то ви можете викликати функцію робочого аркуша Excel Floor.Math з VBA.
Нагадування про синтаксис підлоги робочого листа Excel. Математична функція:
FLOOR.MATH (Номер, [Значення], [Режим]) де:
• Число - число, яке потрібно округлити.
• Значущість (Необов’язково) - Кратне число, до якого потрібно округлити номер.
• Режим (Необов’язково) - Контролює округлення від'ємних чисел до нуля або від нього.
Отже, давайте розглянемо приклад, щоб ви могли побачити, як отримати доступ до функції Floor.Math Worksheet у вашому коді VBA:
1234567891011 | Sub RoundDownToSignintage ()Зменшити одиницю як подвійнуПриглушена підлогаодиничний рахунок = 4,555555559floormathUnitcount = Application.WorksheetFunction.Floor_Math (unitcount, 2)MsgBox "Значення" & floormathUnitcountEnd Sub |
Результат такий:
Результати VBA RoundDown до визначеного значення
Фактичний номер | Значущість | Режим | Результат |
---|---|---|---|
4.55555559 | 4 | ||
4.55555559 | 3 | 3 | |
4.55555559 | 50 | 0 | |
-4.55555559 | 3 | -6 | |
-4.55555559 | 3 | -1 | -3 |