Однако Round может вернуть не совсем ожидаемый результат, т.к. функция применяет финансовое округление. По правилам данного округления если за последней к округлению цифрой стоит 5, то округляемую цифру увеличивают в том случае, если она нечетная и уменьшают, если четная.
Математическое же округление всегда округляет цифру в большую сторону, если за ней идет цифра 5 и выше, и отбрасывает остаток если 4 и меньше.
Т.е. если мы выполним такую строку кода
MsgBox Round(2.505, 2)
MsgBox Round(2.505, 2)
то результатом будет 2,5 , хотя предполагалось получить 2,51 . Поэтому порой для округления лучше использовать Format :
MsgBox Format(2.505, «#,##0.00»)
MsgBox Format(2.505, «#,##0.00»)
но в этом случае мы получим не число в чистом виде, а текст. И если нужно именно число, то придется производить дополнительные преобразования:
MsgBox CDbl(Format(2.505, «#,##0.00»))
MsgBox CDbl(Format(2.505, «#,##0.00»))
Так же, для математического округления, можно использовать и такой вариант:
Функции в VBA — (Серия VBA 19 — Часть 1: Теоретический базис)
MsgBox Application.Round(2.505, 2)
MsgBox Application.Round(2.505, 2)
Dim lRundNum As Long, lMinNum As Long, lMaxNum As Long lMinNum = 1: lMaxNum = 100 Randomize lRundNum = Int(lMinNum + (Rnd() * lMaxNum)) MsgBox lRundNum
Источник: www.excel-vba.ru
Exceltip
Блог о программе Microsoft Excel: приемы, хитрости, секреты, трюки
VBA циклы — For Next и For Each в Excel
Опубликовано 21.01.2014 Автор Ренат Лотфуллин
Цикл For Loop в VBA – один из самых популярных циклов в Excel. Данный цикл имеет две формы – For Next и For Each In Next. Данные операторы используются для последовательного перемещения по списку элементов или чисел. Для завершения цикла мы можем в любой момент использовать команду выхода. Давайте подробнее рассмотрим каждый из этих циклов.
VBA цикл For Next
Цикл For Next имеет следующий синтаксис:
For счетчик = начало_счетчика To конец_счетчика
‘Какое-то действие
Next счетчик
То что мы делаем здесь, по существу, это создаем цикл, который использует переменную счетчик как хранитель времени. Устанавливаем его значение равным начало_счетчика, и увеличиваем (или уменьшаем) на 1 во время каждого витка. Цикл будет выполняться до тех пор, пока значение счетчик не станет равным конец_счетчика. Когда оба эти значения совпадут, цикл выполнится последний раз и остановится.
Sub пример_цикла1()
For счетчик = 1 to 10
j = счетчик
Next счетчик
msgbox «Значение счетчика на последнем витке равно » Значение счетчика на последнем витке равно » Значение j = » Последнее значение переменной счетчик будет равным 1.
Пишем игру «Жизнь» на VBA в Excel
Вообще-то 0
Лажа какая-то, статья как делать не стоит!
НИкогда не пишите Goto.
Доброго дня Вам.
Не сможете ли мне помочь, с циклами …
Я записал макрекордером макрос, который одну строку в таблице «Условно Форматирует».Строка по формуле по значению окрашивается в синий цвет …
но мне нужно чтобы по этой формуле все остальные строчки таблицы так же окрашивались бы по VBA
По-другому вопрос звучит так: как впихнуть макрос который сам записался с помощью
макрорекордером …в цикл чтобы остальные строчки по условному форматированию тоже окрасились
Range(«I13:AO13»).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
«=$A$5>=$I$13:$AO$13»
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 16764006
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range(«O15»).Select
End Sub
Источник: exceltip.ru
Арифметические операции в VBA: сложение, вычитание, умножение, деление и возведение в степень
Подробно рассмотрим то, как VBA выполняет такие арифметические операции, как сложение, вычитание, умножение, деление и возведение в степень, а также особые операции, такие как целочисленное деление и деление по модулю. Ниже, в таблице, представлены знаки операций, используемые при написании арифметических VBA-выражений.
Выражение — это значение либо группа значений, выражающая отдельное значение. Результат выражения — одно значение определенного типа данных. Знаки (обозначения) операций используются для действий над определенными значениями в выражениях. Для присваивания результата выражения переменной используется оператор присваивания (=), который сохраняет любое значение, представленное выражением справа от оператора присваивания в ячейке памяти, на которую ссылается переменная слева от этого оператора.
Во всех операциях приведенных ниже, оба операнда должны быть численными выражениями или строками, которые VBA может преобразовать в число.
Сложение
Знак (+) используется для выполнения операции сложения. Слагаемые должны быть численными выражениями, строками, которые VBA может преобразовать в числа либо датами, с которыми также возможны арифметические действия.
Sub Slozhenie() ‘Пример арифметического выражения со знаком «+» Dim A1, A2, A3 As Integer ‘объявление переменных A1=1 ‘присваивание значения 1 переменной А1 A2=2 ‘присваивание значения 2 переменной А2 A3=A1+A2 ‘присваивание результата сложения переменной А3 MsgBox A3 ‘вывод А3 в диалоговом окне End Sub
Тип данных результата выражения сложения обычно тот же, что и наиболее точный тип в этом выражении за некоторыми исключениями. Все исключения из этого правила наглядно представлены в примерах.
Вычитание
Знак (-) используется для выполнения операции вычитания, а также для обозначения отрицательных чисел (когда ставится перед переменной или выражением и означает тоже самое, что и умножение на -1). Знак минуса, который помещают перед числом для обозначения того, что число отрицательное, называют унарным минусом.
Для определения типа данных результата выражения вычитания VBA следует тем же правилам, что и для выражений, использующих знак операции сложения, но имеются два дополнительные правила.
Правило 1. Если в выражении вычитания один из операндов является типом Date, то и результат выражения будет иметь тип Date.
Правило 2. Если в выражении вычитания оба операнда являются типом Date, то результат выражения будет иметь тип Double.
Sub Vychitanie() ‘Пример арифметического выражения со знаком «-» Dim D1, D2 As Date ‘объявление переменных D1=Now ‘присваивание значения текущей даты переменной D1 D2=Now-5 ‘присваивание значения даты переменной D2 MsgBox TypeName(D2), vbOKOnly, «Now-5» MsgBox TypeName(D1-D2), vbOKOnly, «D1-D2» End Sub
Умножение
Знак (*) используется для выполнения операции умножения, результатом этой операции является произведение операндов. Для определения типа данных результата выражения умножения VBA использует те же правила, что и для выражений, использующих сложение. В выражениях умножения все переменные Variant, содержащие значения типа Date, преобразуются в численные значения.
‘Пример арифметических выражений со знаком «*» 4*10 ‘умножение 4 на 10 MyVar*2 ‘умножение MyVar на 2 MyVar*OtherVar ‘умножение MyVar на OtherVar
Деление
Знак (/) используется для выполнения операции деления, этот знак называют знаком деления действительных чисел. В выражениях деления один операнд делится на другой, а результатом деления является частное.
‘Пример арифметических выражений со знаком «/» 10/4 ‘деление 10 на 4 MyVar/2 ‘деление MyVar на 2 MyVar/OtherVar ‘деление MyVar на OtherVar
Если любой операнд в выражении деления имеет значение Null, то результатом выражения также будет Null. Тип данных в выражениях деления действительных чисел обычно Double, но есть и исключение.
Если в выражении деления оба операнда имеют тип Integer или Single, то результат выражения деления имеет тип Single. Если результат переполняет диапазон для типа Single, то VBA преобразует его в тип Double.
Целочисленное деление
Знак () используется для выполнения операции целочисленного деления, при котором результатом деления всегда является целое число без дробной части. VBA не округляет частное целочисленного деления, а просто укорачивает его до целого числа, отбрасывая дробную часть.
Тип данных результата выражения целочисленного деления — либо Integer, либо Long. VBA использует наименьший тип данных, который соответствует результату выражения.
‘Пример арифметических выражений со знаком «» 104 ‘деление 10 на 4; возвращает значение 2 MyVar2 ‘деление MyVar на 2 MyVarOtherVar ‘деление MyVar на OtherVar
Деление по модулю
Знак (Mod) используется для выполнения операции деления по модулю. При делении по модулю выражение возвращает только остаток от деления как целое.
‘Пример арифметических выражений со знаком «Mod» 8 Mod 2 ‘возвращает значение 0; 5.1 Mod 3 ‘возвращает значение 2; 6 Mod MyVar ‘если MyVar содержит 3, возвращает 0
Доступное для понимания объяснение этой математической операции приведено на одном из форумов программистов. Приведу цитату оттуда: «представь, что есть полная 50л канистра и 3л банка. И ты начинаешь вычерпывать из канистры банкой воду (набирать можно только полную банку). 48л вычерпал, осталось 2 литра. Это и есть остаток от деления 50 на 3 по модулю.» Другими словами 50 Mod 3 возвращает 2.
Тип данных результата выражения деления по модулю — это Integer или Long. VBA использует наименьший тип, который подходит для результата выражения.
Возведение в степень
Знак (^) используется для выполнения операции возведения в степень числа или выражения. Показатель степени показывает, сколько раз число или выражение должно быть умножено на само себя.
‘Пример арифметического выражения со знаком «^» 3 ^ 3 ‘это то же, что и 3*3*3, возвращает значение 27
Источник: macros-vba.ru