VBA кръг
Функцията VBA Round закръглява числата до определен брой цифри.
Синтаксис на кръглата функция VBA
Синтаксисът на кръглата функция VBA е:
Кръгъл (израз, [десетични_места]), където:
- Изражение - числото за закръгляване.
- Десетични_места (По избор) - Цяло число, което определя броя на десетичните знаци за закръгляване. Стойността трябва да бъде по -голяма или равна на 0 (> = 0). Ако е празно, се използва по подразбиране 0, което означава, че функцията се закръглява до най -близкото цяло число.
Така че, нека да разгледаме един пример, за да видите как работи функцията VBA Round, закръглявайки до 1 десетичен знак:
| 12345 | Подкръг1 ()Msgbox Round (7.25, 1)End Sub |
Полученият MessageBox:
VBA Кръгла променлива
В горния пример въведохме числото, което трябва да бъде закръглено директно във функцията, обикновено вместо това бихте закръглили променлива. Следва пример за използване на променлива вместо това:
Забележка: Използваме двоен тип променлива, за да съхраняваме десетични стойности.
| 123456789 | Sub RoundUsingVariable ()Затъмнете единичния брой като двоенединичен брой = 7,25MsgBox "Стойността е" & Round (брой на единица, 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 Worksheet във вашия код на VBA:
| 12345678910111213 | Sub RoundUp ()Затъмнете единичния брой като двоенDim roundup Unitcount As Doubleединичен брой = 7.075711roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 4)MsgBox "Стойността е" & roundupUnitcountEnd Sub |
Резултатът е:
Закръглете до най -близкото цяло число
Можете да закръглите до най -близкото цяло число, като посочите 0 като брой десетични знаци:
| 12345 | Sub RoundUpWhole ()Приложение MsgBox.WorksheetFunction.RoundUp (7.1, 0)End Sub |
Полученият резултат:
VBA програмиране | Code Generator работи за вас!
Резултати от функцията 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 ()Затъмнете единичния брой като двоенЗакръглете надолу Unitcount As Doubleединичен брой = 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 програмиране | Code Generator работи за вас!
Други VBA функции за закръгляване
VBA таван - Закръглете до определено значение
VBA няма еквивалент на функция Ceiling.Math, така че ако искате да закръглите число до най -близкото цяло число или до най -близкото определено кратно по значение, тогава можете да извикате функцията за работен лист на Excel Ceiling.Math от вашия код на VBA.
Напомняне за синтаксиса на тавана на работния лист на Excel. Математическа функция:
CEILING.MATH (Номер, [Значение], [Режим]), където:
- Номер - числото, което искате да закръглите.
- Значение (По избор) - Кратното, до което искате номерът ви да бъде закръглен.
- Режим (По избор) - Контролира дали отрицателните числа се закръгляват към или от нулата.
Така че, нека да разгледаме един пример, за да можете да видите как да получите достъп до функцията Ceiling.Math Worksheet във вашия код на VBA:
| 12345678910111213 | Sub RoundUpToSignintage ()Затъмнете единичния брой като двоенЗатъмняване на тавана Uniccount As Doubleединичен брой = 4.1221uppermathUnitcount = Application.WorksheetFunction.Ceiling_Math (unitcount, 5)MsgBox "Стойността е" & таверматUnitcountEnd Sub |
Резултатът е:
VBA RoundUp до резултати със специфична значимост
| Действителен номер | Значение | Режим | Резултат |
|---|---|---|---|
| 4.1221 | 5 | ||
| 4.1221 | 3 | 6 | |
| 4.1221 | 50 | 50 | |
| -4.1221 | 3 | -3 | |
| -4.1221 | 3 | -1 | -6 |
VBA Floor - Закръглено надолу до определено значение
VBA също няма еквивалент на Floor.Math функция. Още веднъж, ако искате да закръглите число до най -близкото цяло число или до най -близкото определено кратно по значение, тогава можете да извикате функцията на работния лист Floor.Math на Excel от VBA.
Напомняне за синтаксиса на етажа на работния лист на Excel. Математическа функция:
FLOOR.MATH (Номер, [Значение], [Режим]), където:
• Номер - числото, което искате да закръглите надолу.
• Значение (По избор) - Кратното, до което искате номерът ви да бъде закръглен.
• Режим (По избор) - Контролира дали отрицателните числа са закръглени към нула или далеч от нея.
Така че, нека да разгледаме един пример, за да можете да видите как да получите достъп до функцията Floor.Math Worksheet във вашия код на VBA:
| 1234567891011 | Sub RoundDownToSignintage ()Затъмнете единичния брой като двоенDimmath floormathUnitcount As Doubleединичен брой = 4.55555559floormathUnitcount = 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 |
