VBA кръг | Как да използвам Excel VBA Round Function?

Кръгла функция на Excel VBA

Кръглата функция във VBA е математическа функция, която, както самото име предполага, закръглява или закръглява дадено число до конкретния набор от десетични знаци, посочени от потребителя, тази функция използва логиката на кръг, дори което означава, че приема 5 като референция и всяко число с последна цифра след десетичната запетая е под 5, тогава е закръглено надолу и обратно.

Можете да закръглите число до двуцифрен десетичен, трицифрен десетичен или изобщо да няма десетичен знак. Например, ако имате числото 5.8697. Ако закръглите числото до двуцифрен десетичен знак, ще бъде 5,87, ако закръглите до три цифри, то ще се закръгли до 5,870, ако искате да закръглите до нула, тогава ще стане 6.-

В банковите числа всички десетични знаци, които са по-малки от 0,5, ще бъдат закръглени надолу до предишната целочислена стойност, а всички десетични знаци, които са по-големи или равни на 0,5, ще бъдат закръглени до следващата целочислена стойност.

Надявам се, че сте използвали функцията ROUND в работния лист. Във VBA също можем да използваме тази функция, но имаме разлика с тези функции. Ще видим разликата между тези две функции по-късно в тази статия.

Синтаксис

Погледнете синтаксиса на функцията Round.

Номер: Това е числото, което се опитваме да закръглим.

[Брой цифри след десетичната запетая ]: Колко цифри имате нужда след десетичната стойност.

Примери

Можете да изтеглите този шаблон на VBA за кръгла функция Excel тук - VBA шаблон за кръгла функция за Excel

Да приемем, че имате числото 4,534 и искате да закръглите до две цифри.

Следвайте стъпките по-долу.

Стъпка 1: Декларирайте променливата като Variant.

Код:

 Sub Round_Example1 () Dim K Като вариант Край Sub 

Стъпка 2: За тази променлива „ k “ задайте стойността чрез функцията ROUND.

Код:

 Sub Round_Example1 () Dim K Като вариант K = Round (End Sub 

Стъпка 3: Числото не е нищо друго освен това, което е числото, което се опитваме да закръглим, в този случай числото е 4,534

Код:

 Sub Round_Example1 () Dim K As Variant K = Round (4.534, End Sub 

Стъпка 4: Колко цифри трябва да закръглим, в този случай трябва да закръглим до 2 цифри .

Код:

 Sub Round_Example1 () Dim K As Variant K = Round (4.534, 2) End Sub 

Стъпка 5: Сега покажете стойността на променливата „k“ в полето за съобщения VBA.

Код:

 Sub Round_Example1 () Dim K As Variant K = Round (4.534, 2) MsgBox K End Sub 

Изпълнете този код и вижте какво получаваме.

Получихме резултата като 4.53, когато закръглихме до 2 цифри.

Сега ще сменя номера от 4,534 на 4,535 . Вижте какво се случва сега.

Код:

 Sub Round_Example1 () Dim K As Variant K = Round (4.535, 2) MsgBox K End Sub 

Сега стартирайте кода и вижте какъв е резултатът.

Получихме резултата като 4,54 с един десетичен знак по-висок от предишната стойност от 4,53. Това е така, защото в този пример сме предоставили числото като 4,535, така че след числото 3 следващото число е 5, така че се закръглява до следващото число, така че 3 става 4.

Сега ще дам числото като 2.452678 и ще се опитам да закръгля до 3 цифри.

Код:

 Sub Round_Example2 () Dim K As Variant K = Round (2.452678, 3) MsgBox K End Sub 

Изпълнете този код, за да видите резултата.

Резултатът е 2.453 .

2.45 2678 Тук числата след втория знак след десетичната запетая са 2678. След номер 2 следващото число е 6, което е по-голямо или равно на 5, така че се закръглява до следващото десетично число.

Сега ще използвам същото число, за да закръгля до нула и да видя какво ще стане.

Код:

 Sub Round_Example3 () Dim K As Variant K = Round (2.452678, 0) MsgBox K End Sub 

Изпълнете кода и вижте какво получаваме.

Тъй като използвах рунда до нула, получихме резултата като 2.

Причината, поради която получихме резултата като 2, защото тук десетичното първо число е 4, което е по-малко от 0,5, така че е закръглено надолу.

Разлика между функцията Excel и VBA ROUND

Има главно 2 разлики.

# 1 - Синтаксис на двете функции:

Ако погледнете синтаксиса на двете функции, тук имаме разлика.

Кръгъл синтаксис на Excel: кръгъл (брой, брой цифри след десетичната запетая)

Синтаксис на VBA Round: Round (Number, [Number of Digits After Decimal])

В Excel и двата аргумента са задължителни, но във VBA вторият аргумент не е задължителен.

Във VBA, ако игнорирате втория аргумент, той приема аргумента по подразбиране като нула, така че ще получим цялото число.

# 2 - Резултати:

Резултатът, даден от тези две функции, е различен. По-долу са дадени няколко примера