Vba excel округлить до сотых

Округление чисел в VBA Excel с помощью оператора Round и встроенной функции рабочего листа WorksheetFunction.Round. Особенности бухгалтерского и обычного округления.

Оператор Round

А вы знаете, что при использовании для округления чисел в VBA Excel оператора Round, вы можете получить совершенно не тот результат, который ожидали? И ведь это действительно так!

Скопируйте в модуль VBA следующую процедуру и запустите ее выполнение:

Sub Test_1() Dim a1 As Single, a2 As Single, a3 As Single, a4 As Single a1 = Round(1.5, 0) a2 = Round(2.5, 0) a3 = Round(3.5, 0) a4 = Round(4.5, 0) MsgBox «Round(1.5, 0)=» & a1 & vbNewLine & _        «Round(2.5, 0)=» & a2 & vbNewLine & _        «Round(3.5, 0)=» & a3 & vbNewLine & _        «Round(4.5, 0)=» & a4 End Sub

В результате вы получите это:

Удивительно, не правда ли? Как же так получилось?
Дело в том, что оператор Round осуществляет «бухгалтерское» (или «банковское») округление, которое призвано при большом количестве таких операций свести погрешность к минимуму. Это достигается за счет того, что оператор Round использует при округлении правило, отличное от того, которое мы знаем еще со школы, когда округляемое число увеличивается на единицу, если отбрасываемое число равно пяти. Суть округления с помощью оператора Round состоит в том, что если перед отбрасываемой пятеркой стоит нечетная цифра, то она увеличивается на единицу (округление вверх), а если перед ней стоит четная цифра, то она не увеличивается (округление вниз).

Еще можно сформулировать «бухгалтерское» округление так: при отбрасывании пятерки число округляется к ближайшему четному. Обратите внимание, что в результатах нашего примера все полученные числа — четные.
Проверим погрешность:

1. Сумма исходных чисел: 1.5 + 2.5 + 3.5 +4.5 = 12
2. Сумма округленных чисел: 2 + 2 + 4 + 4 = 12

Результат получился просто идеальный для приведенного примера, так как суммы исходных и округленных чисел равны.

Оператор WorksheetFunction.Round

Если вам необходимо общепринятое математическое округление, используйте встроенную функцию рабочего листа —  WorksheetFunction.Round.

Скопируйте в модуль VBA процедуру с использованием WorksheetFunction.Round и запустите ее выполнение:

Sub Test_2() Dim a1 As Single, a2 As Single, a3 As Single, a4 As Single a1 = WorksheetFunction.Round(1.5, 0) a2 = WorksheetFunction.Round(2.5, 0) a3 = WorksheetFunction.Round(3.5, 0) a4 = WorksheetFunction.Round(4.5, 0) MsgBox «WorksheetFunction.Round(1.5, 0)=» & a1 & vbNewLine & _        «WorksheetFunction.Round(2.5, 0)=» & a2 & vbNewLine & _        «WorksheetFunction.Round(3.5, 0)=» & a3 & vbNewLine & _        «WorksheetFunction.Round(4.5, 0)=» & a4 End Sub

Результат будет следующий:

Получилось то, что мы и ожидали.

Проверим погрешность:

1. Сумма исходных чисел: 1.5 + 2.5 + 3.5 +4.5 = 12
2. Сумма округленных чисел: 2 + 3 + 4 + 5 = 14

Результат очевиден — в данном случае сумма округленных чисел на 2 единицы больше суммы исходных.

Исходя из этого результата, можно сделать вывод, что «банковское» округление с помощью оператора Round дает более точные результаты при массовых операциях с округленными числами. Но в повседневной жизни чаще встречается обычное математическое округление.

Выбирайте округление, которое вам больше подходит для решаемой задачи!

VBA Round

The VBA Round Function rounds numbers to a specified number of digits.

Syntax of the VBA Round Function

The syntax of the VBA Round Function is:

Round(Expression, [Decimal_places]) where:

• Expression – The number to round.
• Decimal_places (Optional) – An integer that specifies the number of decimal places to round. The value must be greater than or equal to 0 (>=0). If blank, the default of 0 is used, which means the function rounds to the nearest integer.

So, let’s look at an example so that you can see how the VBA Round function works, rounding to 1 decimal place:

Sub Round1()

Msgbox Round(7.25, 1)

End Sub

The resulting MessageBox:

VBA Round a Variable

In the above example, we entered the to-be-rounded number directly into the function, usually however, you’d round a variable instead. The following is an example using a variable instead:

Note: We use the Double variable type in order to store decimal values.

Sub RoundUsingVariable()

Dim unitcount As Double

unitcount = 7.25

MsgBox "The value is " & Round(unitcount, 1)

End Sub

The result is:

VBA Rounding Results

Actual Number	Number of Decimal Places	Result
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 Round Cell Value

You can also round a cell value directly in VBA:

Sub RoundCell()
Range("A1").Value = Round(Range("A1").Value, 2)
End Sub

VBA RoundUp Function

Let’s say you want to round a number up, using VBA. There is no built-in VBA RoundUp equivalent function, instead what you can do is call the Excel RoundUp Worksheet function from your VBA code:

roundupUnitcount = Application.WorksheetFunction.RoundUp(unitcount, 3)

Excel’s worksheet functions are available to use in VBA, through the use of the WorksheetFunction object. The only worksheet functions that you can’t call, are those that already have a built-in VBA equivalent.

A reminder of the syntax of the Excel Worksheet RoundUp Function:

ROUNDUP(Number, Digits) where:

• Number – The number that you would like rounded up.
• Digits – The number of digits that you would like to round the number.

So, let’s look at an example, so that you can see how to access the RoundUp Worksheet function in your VBA code:

Sub RoundUp()

Dim unitcount As Double

Dim roundupUnitcount As Double

unitcount = 7.075711

roundupUnitcount = Application.WorksheetFunction.RoundUp(unitcount, 4)

MsgBox "The value is " & roundupUnitcount

End Sub

The result is:

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More

RoundUp to the Nearest Whole Number

You can round up to the nearest whole number by specifying 0 as the number of decimal places:

Sub RoundUpWhole()

MsgBox Application.WorksheetFunction.RoundUp(7.1, 0)

End Sub

The result delivered:

RoundUp Function Results

Actual Number	Digits	Result
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 Function

Let’s say you want to round a number down, using VBA. There is no built-in VBA RoundDown equivalent function either, instead again, what you would do is call the Excel RoundDown Worksheet function from your VBA code.

A reminder of the syntax of the Excel Worksheet RoundDown Function:

ROUNDDOWN(Number, Digits) where:

• Number – The number that you would like rounded down.
• Digits – The number of digits that you would like to round the number.

So, let’s look at an example, so that you can see how to access the RoundDown Worksheet function in your VBA code:

Sub RoundDown()

Dim unitcount As Double

Dim rounddownUnitcount As Double

unitcount = 5.225193

rounddownUnitcount = Application.WorksheetFunction.RoundDown(unitcount, 4)

MsgBox "The value is " & rounddownUnitcount

End Sub

The result is:

VBA Programming | Code Generator does work for you!

RoundDown to the Nearest Whole Number

You can round down to the nearest whole number by specifying 0 as the number of decimal places:

Sub RoundDownWhole()

MsgBox Application.WorksheetFunction.RoundDown(7.8, 0)

End Sub

The result is:

RoundDown Function Results

Actual Number	Digits	Result
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

Other VBA Rounding Functions

VBA Ceiling – RoundUp to A Specified Significance

VBA does not have a Ceiling.Math function equivalent, so if you want to round a number up to the nearest integer or to the nearest specified multiple of significance, then you can call Excel’s Ceiling.Math worksheet function from your VBA code.

A reminder of the syntax of the Excel Worksheet Ceiling.Math Function:

CEILING.MATH(Number, [Significance], [Mode]) where:

• Number – The number that you would like to round up.
• Significance (Optional) – The multiple to which you want your number to be rounded to.
• Mode (Optional) – Controls whether negative numbers are rounded towards or away from zero.

So, let’s look at an example, so that you can see how to access the Ceiling.Math Worksheet function in your VBA code:

Sub RoundUpToSignificance()

Dim unitcount As Double

Dim ceilingmathUnitcount As Double

unitcount = 4.1221 

ceilingmathUnitcount = Application.WorksheetFunction.Ceiling_Math(unitcount, 5)

MsgBox "The value is " & ceilingmathUnitcount

End Sub

The result is:

VBA RoundUp To Specified Significance Results

Actual Number	Significance	Mode	Result
4.1221			5
4.1221	3		6
4.1221	50		50
-4.1221	3		-3
-4.1221	3	-1	-6

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

VBA Floor – RoundDown to A Specified Significance

VBA does not have a Floor.Math function equivalent either. However, once again, if you want to round a number down to the nearest integer or to the nearest specified multiple of significance, then you can call Excel’s Floor.Math worksheet function from VBA.

A reminder of the syntax of the Excel Worksheet Floor.Math Function:

FLOOR.MATH(Number, [Significance], [Mode]) where:
• Number – The number that you would like to round down.
• Significance (Optional) – The multiple to which you want your number to be rounded to.
• Mode (Optional) – Controls whether negative numbers are rounded towards or away from zero.

So, let’s look at an example, so that you can see how to access the Floor.Math Worksheet function in your VBA code:

Sub RoundDownToSignificance()

Dim unitcount As Double
Dim floormathUnitcount As Double

unitcount = 4.55555559
floormathUnitcount = Application.WorksheetFunction.Floor_Math(unitcount, 2)

MsgBox "The value is " & floormathUnitcount

End Sub

The result is:

VBA RoundDown to Specified Significance Results

Actual Number	Significance	Mode	Result
4.55555559			4
4.55555559	3		3
4.55555559	50		0
-4.55555559	3		-6
-4.55555559	3	-1	-3

Очень часто при создании алгоритмов подсчета тех или иных значений полученные результаты имеют значение десятичной дроби с большим количеством знаков после запятой. Работать с такими данными и отображать их не очень удобно и некрасиво. 
Рассмотрим какими функциями следует округлять данные в коде vba Excel.

Первый способ округления при помощью функции int().

Данная функция выводит целое значение до запятой. При округлении отрицательных чисел int округляет десятичную дробь до большего целого значения.
Например: число Пи с минусом после округления — int (-3.1415926535 ) будет равно 4 (четырем целым).

Второй способ округление при помощи функции fix()

происходит аналогично с int . Отличается эта функция тем, что округляет отрицательные числа до меньшего значения. Так округлённое число  Пи со знаком минус  будет  fix( -3.1415926535) = 3.
Если требуется не просто убрать дробную часть, а округлить до целого числа, можно использовать следующую функцию cint().
Пример:
Cint(fix( -3.1415926535)) = 3
Cint(int( -3.1415926535)) = 3

Как округлять до десятых и сотых (один и два знака после запятой, соответственно).

Для округления до десятых следует умножить переменную на 10 (десять), после чего округлить до целых и разделить на 10 (десять).
Пример:
Cint(int( -3.1415926535*10))/10 = 3.1
Cint(fix( -3.1415926535*10))/10 = 3.1

Для округления до сотых следует проделать ту же самую операцию, только умножать и делить не на 10, а на 100.
Пример:
Cint(int( -3.1415926535*100))/100 = 3.14
Cint(fix( -3.1415926535*100))/100 = 3.14

Пример кода округляющего значения из textbox, запускающийся нажатием кнопки CommandButtom1:

Private sub CommandButtom1_click()
textbox2.value = Cint(int(textbox1.value *100))/100
END SUB

Видео с примером работы макроса:

Как видите, ничего сложного в округлении чисел в vba Excel нет. Удачи Вам в изучении программы

Главная » Функции VBA »

28 Апрель 2011              129134 просмотров

• ABS() — эта функция возвращает абсолютное значение переданного ей числа (то же число, но без знака). Например, ABS(3) и ABS(-3) вернут одно и то же значение 3.
• Int(), Fix() и Round()позволяют по разному округлять числа:
  • Int() возвращает ближайшее меньшее целое;
  • Fix() отбрасывает дробную часть;
  • Round() округляет до указанного количества знаков после запятой.

  Однако Round может вернуть не совсем ожидаемый результат, т.к. функция применяет финансовое округление. По правилам данного округления если за последней к округлению цифрой стоит 5, то округляемую цифру увеличивают в том случае, если она нечетная и уменьшают, если четная.
  Математическое же округление всегда округляет цифру в большую сторону, если за ней идет цифра 5 и выше, и отбрасывает остаток если 4 и меньше.
  Т.е. если мы выполним такую строку кода

  то результатом будет 2,5, хотя предполагалось получить 2,51. Поэтому порой для округления лучше использовать Format:

      MsgBox Format(2.505, "#,##0.00")

  но в этом случае мы получим не число в чистом виде, а текст. И если нужно именно число, то придется производить дополнительные преобразования:

      MsgBox CDbl(Format(2.505, "#,##0.00"))

  Так же, для математического округления, можно использовать и такой вариант:

      MsgBox Application.Round(2.505, 2)

  Но здесь стоит учитывать, что это не чистый VB и этот метод сработает только в Excel, т.к. по сути мы обращаемся к встроенной в Excel функции округления ОКРУГЛ(ROUND), которая применяет именно математическое округление.

• Rnd и команда Randomize используются для получения случайных значений (очень удобно для генерации имен файлов и в других ситуациях). Перед вызовом функции Rnd() необходимо выполнить команду Randomize для инициализации генератора случайных чисел.

      Dim lRundNum As Long, lMinNum As Long, lMaxNum As Long
      lMinNum = 1: lMaxNum = 100
      Randomize
      lRundNum = Int(lMinNum + (Rnd() * lMaxNum))
      MsgBox lRundNum

• Sgn() — позволяет вернуть информацию о знаке числа. Возвращает 1, если число положительное, -1, если отрицательное и 0, если проверяемое число равно 0.
• Mod() — Делит два числа и возвращает только остаток. Например, выражение 8 Mod 3 вернет число 2, т.к. без остатка(в виде дроби у результата деления) 8 делится на 3 только до 2-х(8 / 3 = 2,66666666666667).
  При этом функция Mod учитывает и знак числа — если первое число или оба числа отрицательные, то результатом будет отрицательное число. Если же отрицательное только второе число — то результат будет положительным числом.
  При попытке получить остаток при делении чисел с плавающей запятой результат может быть не тем, который ожидается, потому что перед выполнением деления оба числа округляются по математическим законам(5 и выше до большего, 4 и ниже — до меньшего). Например, выражение 8 Mod 3.5 вернет 0, а выражение 8 Mod 3.4 — 2.

Функция ОКРУГЛ (ROUND) в Excel

​Смотрите также​: =ОКРУГЛТ(_число_;0,5)​Guest​ быстрее. чем WorksheetFunction.Round(X,​ математическим правилам, а​ 2,30Хм… как интересно!​1,26449 ->1.26​ 2 2 2​ по нему :-)​ & .Address &​ есть не надо​

​Вообще эта проверка​Казанский​Но будьте осторожны​ справке.​ макросы, которые выполняют​ но используя доступную​

Синтаксис функции ОКРУГЛ

​Функция ОКРУГЛ в Excel​
​Denis Ch​

​: Function My_Round(ByVal X​ N):​ по банковским.​ Я и не​и никак иначе!​ 1,5 2 2​ Соответственно, это обстоятельство​ «>0,ROUND(» & .Address​

​ коробок?​​ не нужна. Если​: Принцип такой​

​ — данное действие​​Нажмите сочетание клавиш​ операции округления чисел.​ в VBA функцию​​ округляет значения до​​: Уважаемый ZVI, подскажите​

• ​ As Double, Optional​

​Public Function ZVI_Round(X​

• ​В частности:​
• ​ знал, что ROUND​И в руссифицированном​ 2 1,75 2​
• ​ — основной фактор​ & «,0),»»»»)»)​Будем иметь вместо​
• ​ число целое, то​application.roundup(64.24,-1)​ уже НЕОБРАТИМО, поэтому​

​ CTRL+C​​ Как вы можете​​ Round(). Чтобы посмотреть​ указанного количества разрядов,​ пожалуйста, а как​ ByVal N As​

Полезная информация

• ​ As Double, Optional​Round(1.5)=2, ничего необычного;​ у нас такая​ Excel функция ОКРУГЛ(1,265;2)​
• ​ 2 2 2​ различия при малых​
• ​.Replace 0, «часть​ неотправки «часть места»​ оно и округлится​
• ​А дальше зависит​ испытывать советую на​
• ​На листе выделите​ видеть, результат, возвращаемый​
• ​ соответствующий код макроса​ т.е. знаков до​ реализовать функцию аналогичную​ Integer = 0)​

Примеры использования функции ОКРУГЛ в Excel

1. ​ N As Integer​Но Round(2.5)=2, а​ шибко умная! )​ даст вам значение​ 2 2 2​
2. ​ временах (от 0-2​ места», xlWhole​Похоже без цикла​ до себя самого.​ от того, как​ КОПИИ книги.​ ячейку A1 и​ макросом, может полностью​ для пользовательской функции​
3. ​ или после запятой.​ ОКРУГЛВВЕРХ с помощью​ As Double​ = 0) As​ не 3, как​ Полез в Сеть​ 1,27.​ 2,25 3 3​ сек при использовании​End With​ никак.​

​Но если очень​

office-guru.ru

Округление до целого числа функциями ОКРУГЛ и FormatNumber в VBA

​ задать столбец, есть​ik​ нажмите сочетание клавиш​ отличаться от ожидаемого.​ нажмите комбинацию горячих​ Например, при помощи​ VBA​Dim B As​ Double​ обычно ожидается.​ за разъяснениями:​

Разный результат округления в Excel и VBA

​А в американском​ 3 2,5 3​

​ ScreenUpdating=False)​End Sub​dl​ хочется:​

​ ли в нем​: можно так:​ CTRL+V.​Как уже выше упоминалось,​ клавиш ALT+F11:​ нее можно округлить​MCH​ Double​Dim b#​Упрощенно, для одного​1. Гипотеза, почему​ VBA, «Round» -​ 3 3 2,75​2) Поскольку ZVI​dl​: Sub Test1()​If Not Int(MyCartonsCell.Value)​ формулы или только​=сумм(округл(A1:A10;2))​Чтобы переключиться между​ один алгоритм не​В Module1 прописан код​ числа в ячейке​: как вариант:​

​If N =​b = Fix(N)​

​ десятичного знака правило​

Функция ОКРУГЛ и Round VBA округляют по-разному?

​ так странно ведёт​ 1,26.​ 3 3 3​ использовал масщтабирование с​: увы недосмотрел, всё​Dim Rng As​ = MyCartonsCell.Value Then​ константы, есть ли​прим.​ просмотром результатов и​ является лучше или​ пользовательской макро-функции.​ А2 с двух​Function MyRoundUp(V As​ 0 Then​If N <​ банковского округления такое:​ себя Round:​

​Это разные стандарты,​ 3 3 3​ помощью цикла, произошло​ таки пусто опрятней​ Range​Еще рекомендую почитать​ нечисловые значения.​1. А1:А10 -​ просмотром формул, возвращающих​ хуже другого. Каждый​​ символов после запятой​ Double, Optional DecPlaces​MyRound = Sgn(X)​ 0 Then​ половинки (0.5), прибавленные​http://www.vbcity.com/forums/topic.asp?tid=4557​ как расстояние в​ 4​ то, о чем​ формулы:​Dim Rng0 As​ на этом форуме​Round(Number [,NumDigitAfterDecimal])​ диапазон для примера,​

Банковское округление чисел в Excel и VBA

​ эти результаты, нажмите​ хорош в зависимости​В функции ОКРУГЛ, доступной​ до одного:​ As Integer =​ * Int(Abs(X) +​b = 10​ к нечетным числам​(см. 4-й пост​ милях, высота в​Narimanych​ я говорил ранее:​Sub Test2()​ Range​ про округление в​Функция появилась в Visual​ укажите свой.​ сочетание клавиш CTRL+`​ от применения. Стандартный​

​ в Excelе, использовался​Функция ОКРУГЛ в Excel​ 0) As Double​ 0.5)​ ^ -b​ округляются до целых​ от epl, первый​ футах, а объём​:​ мультиплицировался «оверхед» от​Dim Rng As​With ThisWorkbook.Worksheets(«Лист1»)​ VBA.​ Basic 6.0​2. формула массива​ (апостроф) или в​ алгоритм дает результаты,​ стандартный алгоритм, в​ всегда округляет в​If Round(V, DecPlaces)​Else​ZVI_Round = Round(X​ с избытком, а​ абзац)​

Несоответствия функций округления в Excel и VBA

​ — в галлонах…​Казанский​ способа выбора диапазона.​ Range​Set Rng =​Вот одна ссылка:​Функция​Hugo​ меню Сервис укажите​ которые мы «ожидаем»,​ котором «половинки» (пятерки​ противоположную сторону от​ = V Then​B = 10​ / b +​ к четным -​2. Подтверждение этой​Применительно к VBA​, просто монстр программирования,​ Если этот фактор​Dim Rng0 As​ .Range(.Cells(2, 1), .Cells(.Rows.Count,​Остальные в поиске.​Round​: Файл — округляю.​

​ на пункт Зависимости​ в отличие от​ в конце разряда​ нуля (по модулю).​MyRoundUp = V​ ^ -N​ Sgn(X) * 2.222E-16,​ с недостатком.​

Подытожим особенности округления чисел в Excel

​ гипотезы — в​ лучше написать свою​ спасибо​ уравнять, то уравняется​ Range​ 1).End(xlUp))​Natali​служит для округления​

​Максим​ формул и выберите​ банковского алгоритма, который,​ десятичной дроби) округлены​ Следующий пример демонстрирует​Else​MyRound = Sgn(X)​ 0) * b​Смысл — в​ статье от Майкрософта:​ функцию округления​Казанский​

​ и время (хотя​With ThisWorkbook.Worksheets(«Лист1»)​End With​: Спасибо за советы,​ чисел до заданной​: Помогите, пожалуйста, использую​ режим Режим проверки​ помимо прочего, немного​ ВСЕГДА в большую​ эту особенность:​MyRoundUp = -Int(-V​ * B *​Else​ уменьшении систематической ошибки​http://support.microsoft.com/default.aspx?scid=kb;en-us;196652​

exceltable.com

округление VBA

​——​​,​
​ в моем коде​Set Rng =​
​With Rng​ Лузер, Владимир.​ точности (число значащих​
​ макрос для создания​ формул.​
​ удивляет результатами.​ сторону. То есть​ОКРУГЛ(число; число_разрядов)​
​ * 10 ^​
​ Int(Abs(X) / B​ZVI_Round = Round(X​ округления при суммировании​
​(см. раздел ‘The​пост старый, но​может для x​ придется смещать и​ .Range(.Cells(2, 1), .Cells(.Rows.Count,​.Replace 0, «=»»пусто»»»,​Буду менять.​ цифр в дробной​ динамическиой диаграммы, все​1​
​Жаль, что эти два​

​ 2,5 округляется до​​ROUND(number, num_digits)​
​ DecPlaces) / 10​ + 0.5)​ + Sgn(X) *​ большого количества чисел.​

​ Round() Function is​​ пусть не вводит​

​ZVI​​ части)​

​ нужно, поэтому Ваш​​В результате действия функции​Const DropDownList =​

​=ОКРУГЛТ(10; 3) Округляет​​ Round() возвращала тот​ результат, который ожидало​
​ формулы и функции.​Function ZVI_RoundUp(V As​Слева направо: [Железый]​Прилагаю таблицу сравнительного​Sub Нюансы_округления()​ выше — минимизировать​ округления ‘1.260 ->​

​ сторону так чтобы,​​ выбор диапазона​.Value = Application.Round(.Value,​.Replace 0, «часть​ вариант округления годится.​ возвращается округленное число,​

​ тестирования скорости выполнения​​MsgBox «Round(1.5)=» &​ ‘bias’, ошибку, набегающую​
​ 1.26 ; 1.265​ они заканчивались на​

​Михаил С.​​ 0)​ места», xlWhole​ Можно немного переделать:​ тип которого совпадает​Const DataRange =​
​ ближайшего числа, кратного​ и экселевская функция​ из нас.​Число​ As Integer =​ — Г89573), логарифмическая​ 3-х вариантов.​ Round(1.5) & vbCr​ при сложении нескольких​ -> 1.27 ;​ 9 (столбец В).​: Маленький офтоп. Если​.Replace 0, «часть​End With​Sub Test1()​ с типом переданного​ «$A$26:$M$32″​ 3 (9)​ ОКРУГЛ (в конце​

​В случае использования доступных​​(number) – значение,​ 0) As Double​

​ линейка, счёты (mini).​​—​ _​
​ округляемых чисел).​ 1.268 -> 1.27​ Можна ли это​

​End Sub​​ As Long​

​ 6,19; 74,54 -​​Верунчик​: 1) Если речь​ быть, тем, что​ 1 Then Exit​NumDigitAfterDecimal​Dim AnimationArray As​ ближайшего числа, кратного​If UserForm2.CheckBox1.Value =​
​ используется алгоритм, называемый​
​(number).​ ^ DecPlaces Then​: Слишком просто было​
​ N = 0)​
​ публикации ошибаются относительно​

​ VBA! Вот остальные:​​ Double Dim HTochnCroped​ 74, 59; 11,19​: Я делю одну​ о кодах до​ в раз 6-7​ Sub​Необязательный аргумент, представляющий собой​

​Подправил в Вашем​​Dim b#​ в VBA, и​ CCur.​ As Long, IDelta​
​ — 150,09 и​ Данное значение присваиваю​

planetaexcel.ru

Round

Функция Round

​ коде My_Round вместо​

​b = Fix(N)​ даже коммерческие программы​

​Але-Дашкова​​ As Integer HTochn​​ т.д.​ переменной. Как мне​ в XL2007 на​И это еще​ 2 To UBound(Arr)​
​ следует оставить после​​Dim NewPoint As​​ т. к. число​​ 5​

​ большую сторону, а​

​Положительным – округляется дробная​ / 10 ^​ MyRound, чтобы все​If N <​ порой используют в​

​: Буду очень признательна,​

​ = Tochn *​	​Всем кто поможет​ округлять полученное значение​ примере используемом здесь​
​ при том, что​	​Select Case VarType(Arr(r,​ запятой. Если аргумент​ Long​ -2 и 5​Cells(i, 9).Value =​ раз в меньшую​ часть исходного значения​

​ DecPlaces, DecPlaces +​

​ время не получался​ 0 Then​ VBA функцию Round(число,2),​
​ если кто-то подскажет,​
​ 10 ^ iR​

excelworld.ru

VBA — округление — просьба глянуть код

​ вариант без цикла​​: 1) Если речь​ 6​

​ retval=Round(A) ‘возвращается 123​​Dim p As​ внимательный :(​
​End If​ экселевской функции, будет​Отрицательным – округляется целая​
​ отрицательных DecPlaces, правильнее​…X…ZVI_Round…My_Round​ x * 1E-16,​
​ банковского округления можно​ использовать функцию Int.​ 10 IDelta =​?​: Округлять до какого​
​ о коде предложенном​ то у меня​
​End Select​ retval=Round(A,3) ‘возвращается 123.457​
​ Double​alexcel​Я так округляю​ округлено до 6.​
​ часть исходного значения​
​ так, с использованием​

​0,0785 .. 0,079​​ 0) * b​ прочесть здесь:​
​Igor_Tr​

​число_разрядов​​ function​
​ .. 0,511​ + x *​ оптимальная) разных видов​ Тоже, там же,​ = ((HTochnCroped +​ получилось то, что​

​2) Если речь​​Sub Test1()​ автоматического округления кол-ва​
​NewData = ActiveSheet.Cells(SelectedItemRow,​ Excel, тем больше​ дробную часть.Подскажите что​Является ли банковский алгоритм​ дробную часть.​
​ 0) As Double​ .. 0,019​
​ 0 Then ZVI_Round​ZVI​

​ — ЭТО ЦЕЛОЕ​​ / (10 ^​
​ Excel. Справки -​Казанский​
​ медленнее.{/post}{/quote}​ о коде предложенном​
​Dim Rng As​
​ коробок (во вложении​ 2).Resize(1, 12).Value​ удивляюсь его возможностям.​
​ вписать в код,​
​ плохим? Само применение​
​В Excel есть и​Dim x#​
​0,0135 .. 0,014​ = 0​
​Sh_Alex​ ЧИСЛО. И зачем​
​ iR)) End If​ полный глобус. В​
​:​Наверное, зависит от​
​ DL, то у​
​ Range​ файл)​
​OldData = ActiveSheet.Range(«B24:M24»).Value​

​ Та ты шо…​​ чтоб число округлялось​ банковского алгоритма не​ другие полезные функции​x = Fix(V​ .. 0,013​End Function​
​: В дополнение к​ тогда округлять то,​ RoundMath = Rounded​

​ VBA это будет​​Shersh​ теста, может, и​ меня в XL2007​With ThisWorkbook.Worksheets(«Лист1»)​Задача была следующая:​AnimationArray = NewData​alexcel​ по матиматическим правилам(1,5=2​ является чем-то необычным,​ для округления. Вот​
​ * 10 ^​0,0115 .. 0,012​Откорректированый вариант таблицы​ изложенному ZVI.​ что и так​ End Function​ выглядеть так:​, 4/2=2​ от версии Excel.​ на примере используемом​

​Set Rng =​​ округляем данные по​For i =​

​: Немогу понять где​​ а не 1​ а тем более​ некоторые из них:​
​ DecPlaces)​ .. 0,011​ прилагается​Приведенный способ банковского​
​ круглое?​
​d_Boba​

​Где 2 -​​округлять до целого​Приложил тестовый вариант​ здесь разница незаметна,​ .Range(.Cells(2, 1), .Cells(.Rows.Count,​ следующим правилам:​

​ 1 To 15​​ собака зарыта .​ и т.д.)​

​ x = x​​: Да, скорее My_Round​: Последний вариант ZVI_Round()​ тех, когда и​
​ не округление. Додумайте​
​ как ни странно,​: Главный вопрос в​
​:​ Так как все​
​ медленнее.​
​ 0)​Если значение -​For x =​
​VikNik​
​округляем вверх 3,5​
​ Стандартное округление (всегда​ или большую сторону.​
​ + 1​ — это только​
​ неправильно отрабатывает округление​ банков (в современном​
​ сами, как сделать​ разные мнения. одно​
​ том, как сделать​
​Верунчик​ приведенные нецикловые варианты​
​lapink2000​

​Почему MS не​​ZVI​ округления при математической​Апострофф​ в справочниках по​ 5,02 нужно получить​Vlad999​ то в тестовых​
​: По умолчанию кажется,​ Ващих кодах выполнение​ «часть места»​ x)​ тебе просто Round​: sorri, up​ округленных таким методом​ЧЁТН и НЕЧЁТН —​MCH​ привела правила округления​: Все верно, вроде​ обработке геодезических измерений.​: Спокойствие, округляем через​ математике (например Корна).​ 5,09; 6,18 -​:​ данных исключил значения,​

​ Ниже приведен небольшой​​ нечетного.​=ZVI_RoundUp(17,1;5) = 17,10001​ ЦЕЛОЕ() и ОКРУГЛ()​ в архиве корректный​ проводились с помощью​ Double) As Double​ случае нужно еще​

planetaexcel.ru

Округление

​ — 11,19; 150,0​​Казанский​ в 6-7 раз​ забыть в конце​ слова «часть места»​ но в одном​ p​ RoundDown​
​ WorksheetFunction.RoundUp(Cells(i, 9), 0)​ пример:​

​В следующем примере показано​​=ZVI_RoundUp(128,717;3) = 128,718​ — работают по​ вариант Вот​
​ «таблиц семизначных логарифмов»​ Round2 = Int(d​ учитывать машинное представление​ — 150,09 и​: вариант x =​

​ медленнее.​​ цикла next или​​ZVI​​ месте (число 5,6)​
​Next x​Cells(i, 9) =​alexcel​

​Здесь то же самое,​​ действие функции ОКРУГЛ​​и т.п.​​ ПРАВИЛЬНО,​ правильный вариант арифметического​ Вега и конторских​

​ * 100 +​​ чисел. если кто​​ т.д.​​ CInt(a / b​

​Опять же замечу,​​ loop поставить.​: Вы в таможне​ отказывается округлять.​​Range(ChartRange).Value = AnimationArray​​ WorksheetFunction.RoundDown(Cells(i, 9), 0)​: О спасибо​

​ что и в​​ с отрицательным, положительным​​MCH​​а VBA.Int и​ округления, заодно привожу​ счетов, альтернативой были​ 0.5) / 100​ хочет порисуйте 0​Igor_Tr​ + 0.5)​ что для конкретной​Ищи потом его…​ не работали, часом?​Да и вообще,​DoEvents​Любовь​Marchuk​ первом примере. Округлено​ и равным нулю​: Оказывается VBA Round()​ VBA.Round — извращенцы​ еще одну функцию​ «шестизначные таблицы тригонометрических​ End Function​ и 1 особеннно​: То-есть Вам нужно​Казанский​ задачи разница во​:-)​ Хотел часть груза​ хотелось бы узнать​Next i​: Здравствуйте! У меня​: есть у меня​ каждое из чисел,​ вторым аргументом.​ в отличии от​ ?​ для округления с​ функций» Петерса и​Igor_Tr​ интересны те которые​ последнюю цифру 9?​, такой вариант имеет​ времени не имеет​ZVI​ припрятать… Ладно, вот​ ваше мнение по​End If​ вроде бы элементарный​ такая функция​ а затем суммированы​В данном примере в​ =ОКРУГЛ() не работает​Ответ optional.​ заданной точностью:​ железный «Феликс».​: Извиняюсь, заклинило.​ после запятой… честно​ А просто последнюю​ право на жизнь?​ значения т.к. абсолютное​: Не Станиславский, но​ он:​ коду, может, есть​

​End Sub​​ вопрос, но ответа​​=ОКРУГЛТ​​ итоги. Полученные итоги​ качестве первого аргумента​

​ с отрицательным числом​​Guest​
​’ ZVI:2009-06-02 VBA​С уважением, Александр.​

CyberForum.ru

Округление в большую сторону, чтобы число заканчивалось на 9

​Але-Дашкова​​ я сам не​ заменять на 9?​Илья9​ время мало для​ Не верю! Про​Sub Test1()​ какие-то подводные камни​Казанский​ найти не могу.​=ОКРУГЛТ(102;5) оеругляет число​ сравниваются с итогом,​
​ используется другая функция​ разрядов, поэтому MyRoundUp​: To k61​ arithmetic rounding function​Ностальжи​: Спасибо всем большое!​ буду в это​NewStudent07​
​:​ любого из приведенных​

​ припрятанный груз только​​Dim Rng As​ с этим округлением.​​: Какие числа округляются?​​ Помогите пожалуйста.​

​ 102 до кратного​​ который бы получил​ Excel. Формула сначала​ нуждается в доработке:​… помню приходил​

​’ Arguments are​​: Эх, а как​babeta​ впрягаться но кому​: Да, последнюю нужно​Vlad999​
​ вариантов на требуемых​ Вы и не​ Range, Arr(), r​

​ А то привезу​​ В коде округления​В таблице Excel​ 5.​ если бы не​
​ суммирует значения в​Function MyRoundUp(V As​ в мамину контору​ the same as​ здорово было считать​: как округлить значение​ интересно — может​ 9, а как​

​, нет, в CInt​​ данных. По-моему, ошибки​ забыли :-)​ As Long​ 1,5 коробки или​

​ нет. Может, надо​​ мне нужно сложить​Но почему-то у​ округлялись числа. Как​

​ диапазоне A2:A4, а​​ Double, Optional DecPlaces​ и мне разрешали​ for WorksheetFunction.Round(V,DecPlaces)​
​ на счётах нормы​ так чтобы не​ порисовать. я за​ заменять???​ и CLng неявно​ на «часть места»​ytk5kyky​Set Rng =​ 0,005 коробки…. Не​ поменять формат ячеек​ два числа 858,52+814,53=комп.выдает​ меня не работает.​ видно, при применении​ затем округляет полученный​
​ As Integer =​ покрутить Феликс !​’ Функция, аналогичная​ естественной убыли товаров!​ была погрешности в​ компьютерами уже 25​Igor_Tr​

​ присутствует Round, а​​ нецикловых вариантов при​
​: То груз, а​ Лист1.UsedRange.Columns(1)​ хотелось бы.​ или подписей диаграммы​

​ 1673,06.(округляет). Дело в​​Marchuk​

CyberForum.ru

Не правильно работает функция ROUND() в VBA Access

​ банковского алгоритма округления​​ результат до одного​ 0) As Double​
​ …​ =ОКРУГЛ(число;число_разрядов)​ А «Феликс»…​​ сумме, надо написать​​ лет наблюдаю и​
​: Обычными функциями работы​ эта функция производит​ повторном запуске (случайном,​ то next…​
​If Rng.Cells.Count =​Спасибо,​ и убрать в​ том, что, если​
​: ОКРУГЛТ​
​ чисел, используемого в​
​ знака после запятой.​If DecPlaces >=​ZVI​Function ZVI_Round(V As​
​Всё ушло, всё​ ROUND а потом​ почти все их​
​ с строками. Можно​ «банковское» округление, т.е.​ например) — это​lapink2000​ 1 Then Exit​
​Natali​ Параметрах галку «точность​ установить 3 знака​
​См. также​
​ VBA, полученный итог​Функция ОКРУГЛ может быть​ 0 Then​: Сначала был Visual​
​ Double, Optional DecPlaces​
​ умчалося в невозвратную​ не помню​
​ «ошибки» имеют объяснение.​ так:​ в сторону ближайшего​ бОльшая проблема для​: Для плюрализьму… Вот​ Sub​: Неужели? Никто? Никогда​ как на экране»?​ после запятой, то​Возвращает число, округленное​ является намного более​ использована в Excel​If Round(V, DecPlaces)​ Basic (VB), а​ As Integer =​ даль…​Igor67​grom34​N = cells(x,y).value​ четного: Код ?round(1.5)​ пользователя, чем время.​ этот вариант «без​Arr() = Rng.Value​ не поможет?​Кстати,​ ответ будет 1673,055.​ с желаемой точностью.​ точным к «оригинальному»​ и в формулах​ = V Then​ затем уже VBA.​ 0) As Double​(Сейчас дедушка Мазай​

​: ????​​: Не правильно работает​ ‘ dim N​ 2 ?round(2.5) 2​слэн​ цикла» у меня​For r =​VovaK​p = 100​ Т.к. мне нужно​Если данная функция​ итогу. Это происходит​ массива. К примеру,​ MyRoundUp = V:​В VB изначально​If DecPlaces <​ будет ругаться.)​Вопрос исчерпывающий. Попробуйте​ функция ROUND()​ as double N​ Можно так: -Int(-a/b)​: да, подтверждаю результаты​ в 10,000 ячеек​ 2 To UBound(Arr)​: Natali, зачем так​ / 100 /​ два знака после​ недоступна или возвращает​ из-за того, что​

​ следующая формула сначала​​ Exit Function​ функция Round() выполняла​
​ 0 Then​
​ZVI​ нажать мастер функций,​
​Пример​ = Application.RoundUp(N, 2)​ . Вот, сравните.​ ZVI​
​ бегает с точно​
​Select Case VarType(Arr(r,​ сложно? Есть замечательная​ 15 * i​
​ запятой, то я​

​ ошибку #ИМЯ?, установите​​ банковский алгоритм округляя​ округляет значения в​Else​ банковское округление, VBA​ZVI_Round = Round(V​: —​ выбрать полный алфавитный​a = Round(2.305,​ ‘ или просто​ Лично мне значение​интересно посмотреть как​ такой же скоростью,​ 1))​ функция Format, и​можно заменить на​ хочу, чтобы складывались​ и загрузите надстройку​

​ раз в большую​ диапазоне A2:A4 до​
​If Int(V *​ просто наследовал эту​ / 10 ^​Пока дедушка Мазай​ перечень и подобрать​ 2) результат 2.31​
​ N = Application.Round(N,​ этого выражения кажется​
​ тестирует KL​ что и вариант​Case 2 To​ все будет выглядеть​p = i / 15​ два знака, не​ «Пакет анализа».​ сторону, раз в​ двух знаков после​
​ 10 ^ DecPlaces​ функцию, что с​ -DecPlaces + V​
​ не пришел с​
​ себе нужную. Ведь​d = Round(1.265,​ 2) N =​
​ более логичным, чем​ZVI​ с циклом от​
​ 6​
​ очень просто:​lexx2​ глядя на 3-й,​Инструкции​ меньшую сторону, «амортизирует»​ запятой, затем суммирует​ + 0.5) =​ точки зрения VB​ * 2E-16, 0)​ железным «Феликсом» наперевес,​ при расчете зарплаты/сотруднику/​ 2) результат 1.26​
​ CDbl(StrReverse(Replace(StrReverse(CStr(N)), _ Mid(StrReverse(CStr(N)),​ значение RoundUp, для​
​: У меня использован​ ZVI, но пожалуй​If Arr(r, 1)​Sub test()​: как вывести параметр​ не округлялось, т.к​В меню Сервис​

CyberForum.ru

Округление числа до 2 знаков после запятой

​ ошибки, возникающие в​​ их и возвращает​ V * 10​ логично. Но возникло​ * 10 ^​ разбавим тему VBA-кодом.​ округляют до 2​ (НЕПРАВИЛЬНО) должно быть​

​ 1, 1), 9,​​ отрицательных чисел: Sub​ UsedRange, сделано это​ мудрёнее в написании​ > 0 And​Dim rgFinish As​ » задать точность​ всем ясно, что​ выберите команду Надстройки.​ результате округления.​ результат.​ ^ DecPlaces Then​

​ противоречие между округлением​​ -DecPlaces​Вообще-то я хотел​ знаков, пересчет валюты​ 1.27​ 1, 1)))Если не​ test() Dim i​ сознательно для повышения​

​ :-)​​ Arr(r, 1) <​​ Range ‘ диапазон​​ как на экране»​ 2+3=5, а не​В списке надстроек​Можно было бы ожидать,​Автор: Антон Андронов​ MyRoundUp = V:​

​ в VBA и​​Else​

​ спровоцировать вопрос: “а​​ — 5, и​

CyberForum.ru

округление

​ПОЧЕМУ???​​ секрет — а​ Debug.Print , «RoundUp»,​ надежности для случаев​Sub Test1()​ 0.5 Then​ конечных данных​

​ на какую нибудь​​ 6. Помогите пожалуйста.​
​ выберите Пакет анализа​ что в Excelе​Округление – экселевские причуды​ Exit Function​ Excel, видимо, посчитали,​ZVI_Round = Round(V​ как округлять в​ не маловажно знать​Может написать свою​ для чего такое?​ «-Int(-i)», «CInt(i +​ если установлен фильтр,​Dim Rng As​
​Arr(r, 1) =​Dim lLastRowInfoGTD As​
​ кнопку на панели​
​ С уважением, Любовь​ и нажмите кнопку​ выполнено простое разделение:​ и несоответствия одной​

​End If​​ что так как​ + V *​ VBA аналогично Excel?”​ по какому правилу,​

​ функцию округления, если​​ Что за магическое​ 0.5)»; vbLf; String(50,​ скрытые или полу-пустые​ Range, c As​

​ «часть места»​​ Long ‘ счетчик​ быстрого доступа или​

​End If​​ округления коробок​ пробовали?​
​: Округляйте слагаемые 858.52​Синтаксис​ бы все равно​ знаешь — это​End Function​Что касается Int(),​ = 0 ‘​
​ округляемое число,​=ROUND(A1;2) =ОКРУГЛ(A1;2)​ На самом деле​ ругаться Excel? В​ 0), -Int(-i), CInt(i​ далеко внизу будет​ 1).End(xlUp))​End Select​Dim Cell As​Sub Macro1()​ и 814.53.​ОКРУГЛТ(число;точность)​ странным, но, по​
​ применение программой двух​

​ZVI​​ то к ней​ Exclude -0 return​а N –​Округляет число до​ при округлении, когда​
​ моей локализации -​ + 0.5) Next​ какое-нибудь значение, то​
​End With​Next​

​Application.MaxChange = 0.001​​ получается не 1673,055,​ОКРУГЛТ производит округление​ например, в других​
​ на рисунке, результаты​-0,0785​

​ чисел с использованием​​ так это округлено​-0,0025​ в середине формулы.​ =ОКРУГЛТ(число;точность)​ когда-то мне в​
​ — fx /вставка​ округляемому 0,005, умножь​
​nadmin​ -2 -1 -1​
​ использовал исходные данные​End Sub​ 1).End(xlUp))​
​ «#,##0», «0»)​
​’ Macro2 Macro​ Вы видите в​
​ или равен половине​ этих функций в​ каждое из чисел,​-0,0194​
​ Например:​
​Function ZVI_MRound(V As​

​ Интернете:​​ функции-, при нажатии​ на 100, отдели​: И совсем не​
​ -1,5 -2 -1​ без каких-либо изменений.​lapink2000​End With​
​Range(«A» & i).Value​’ Macro recorded​ ячейках. Есть два​ точности.​ зависимости от выбранного​

​: Все очень просто,​​ лишняя :-)​.Value = Application.Round(.Value,​i = i + 1​
​’​ сложении округлять​
​Чтобы этот пример​ происходить округление) используется​ случае (столбец B)​
​-0,0115​ ((2,8-2,1)/0,8) округлить до​ 1) As Double​ As Integer =​
​: меню Вставка -​А как вообще​ что при округлении​
​ -1 -1 0​

​ и ZVI это​​Sub Test1()​
​ 0)​Next​’​=ОКРУГЛ(A1;2)+ОКРУГЛ(B1;2)​ проще было понять,​

​ стандартный алгоритм округления:​​ был округлен с​-0,8115​ целого числа. Можно​
​If Multiple =​ 0) As Double​ Функция…​ работает ROUND()​ число​ -0,75 -1 0​ уже объяснил :-)​Dim Rng As​.Replace 0, «часть​End Sub​Application.MaxChange = 0.001​или сначала все​ скопируйте его на​Следовательно, функция VBA Round​ помощью стандартной экселевской​
​-130,223​ сделать это в​ 0 Then Exit​MathRound = CDbl(FormatNumber(X,​ZVI​

​По правилам математики​​должно​ 0 -0,5 -1​1) Я исходил​

​ Range, c As​​ места», xlWhole​ytk5kyky​ActiveWorkbook.PrecisionAsDisplayed = False​ числа привести к​
​ пустой лист.​
​ (2,5, 0) вернет​ функции ОКРУГЛ, во​и т.п.​ одной формуле?​ Function​

​ 0 0 -0,25​​ из того, что​ String​

​End With​​: VovaK, а где​

​End Sub​​ тому виду, в​Инструкции​ как результат 2,​ втором случае (столбец​Надежнее всего так:​

​Function RoundUp(v As​​: =ОКРУГЛ((2,8-2,1)/0,8;0)*25​ + V *​
​Она примерно в​ вполне предсказуемое, т.к.​ >=5, и вниз​ математики, округление происходит​
​ 0 0 0​
​ что в диапазоне​Set Rng =​ytk5kyky​
​NataLi, Вы что​: А как округлять​Меню-Параметры Excel-ДОполнительно-Задать точность​ или лист.​ FormatNumber (2,5, 0)​
​ использовано написанную в​ Double, Optional DecPlaces​чуть короче​ 2E-16) / Abs(Multiple),​
​ 2.4 раза быстрее​

​ выражением: MyCartonsCell(MyCartonsCell)?​​ столбце кратно 10​
​ Это в 2007​
​ разделе справки. Не​
​ 3. И где​
​ которая, однако, не​

​ 0) As Double​​Александр​If Abs(ZVI_MRound) =​Моя реализация (2007г.)​Но, не всем​А по каким​1,265 -> 1.27,​
​ 1 1 1​ при тестировании, я​End With​Только если у​
​Удивительно, что оно​ в большую сторону?​
​ Excel. В 2003​ выделяйте заголовок строки​ здесь логика?​ делает ничего иного,​
​RoundUp = WorksheetFunction.RoundUp(v,​
​: А если округлить​ 0 Then ZVI_MRound​ не столь изящно​ известно, что функция​ правилам работает ROUND()​ т.к. следующая за​ 0,75 1 1​
​ наращивал диапазон, а​
​With Rng​ NataLi имеется и​ у Вас вообще​например есть 64,24​
​ это где-то в​

planetaexcel.ru

​ 1 2 1,25​