Excel цикл по таблице

Содержание

  • 1 Оператор цикла «For» в Visual Basic
    • 1.1 Цикл «For … Next»
    • 1.2 Цикл «For Each»
    • 1.3 Оператор прерывания цикла «Exit For»
  • 2 Цикл «Do While» в Visual Basic
  • 3 Цикл «Do Until» в Visual Basic

Пару недель назад передо мной встала проблема разработки электронной таблицы, просчитывающую диапазоны рабочего времени в зависимости от рабочего графика и производственного календаря. С первого взгляда задача нетрудная, но в ходе проектирования я понял, что избежать использования циклов не удастся. Особую специфику здесь придавало условие заказчика, что готовый продукт должен быть именно

Excel

таблицей БЕЗ макросов и дополнительных модулей (функций пользователя).

Стандартный набор функций Excel не поддерживает ничего похожего на циклы, однако выход нашелся – использование циклических ссылок и итераций.

Первый шаг, чтобы начать работать с циклическими ссылками – это разрешить итеративные вычисления в Excel. В версии Microsoft Office XP это делается в разделе меню «Сервис – Параметры»:

как сделать цикл в excel

В открывшемся окне активируем соответствующий флажок:

как сделать цикл в excel

Так же обратите внимание на поле «Предельное число итераций» — оно определяет, сколько раз будет проходить вычисление по всем циклическим ссылкам, если вы сами не поставите ограничение.

!Информация: В Excel 2007 включение итеративных вычислений производится в пункте меню «Файл – Параметры Excel» в разделе «Формулы».

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

Впишите в ячейку А1 формулу:

Если значение предельного числа итераций равно 100, то результатом вычислений в ячейке А1 будет равно 100. Теперь изменим формулу:

как сделать цикл в excel

Как видите число итераций мы ограничили числом в ячейке А2, а именно 10. Чтобы проиллюстрировать, как происходят итерации, добавим формулу в ячейку B2:

как сделать цикл в excel

Как видите, каждый этап итерации (новое значение А1) добавляется к ячейке B1 до тех пор пока происходят итерации.

!Замечание: Возможно, результат в B2 будет не таким – для того, чтобы исправить это сделайте следующее: после ввода формулы в ячейку B1 перейдите в ячейку A1, установите курсор в поле редактирования формулы и нажмите Enter – произойдет пересчет итераций. Для корректной работы итераций необходимо задать ряд дополнительных условий, ограничивающих их количество и задающее условие сброса текущего значения поля в исходное значение. Пересчет всех ячеек с циклическими ссылками происходит каждый раз при изменении ячеек, от которых они зависят.

!Дополнительные ссылки:

Встречаются ситуации, когда от программы VBA требуется совершить несколько раз подряд один и тот же набор действий (то есть повторить несколько раз один и тот же блок кода). Это может быть сделано при помощи циклов VBA.

К циклам VBA относятся:

  • Цикл For
  • Цикл Do While
  • Цикл Do Until

Далее мы подробно рассмотрим каждый из этих циклов.

Оператор цикла «For» в Visual Basic

Структура оператора цикла For в Visual Basic может быть организована в одной из двух форм: как цикл For … Next или как цикл For Each.

Цикл «For … Next»

Цикл For … Next использует переменную, которая последовательно принимает значения из заданного диапазона. С каждой сменой значения переменной выполняются действия, заключённые в теле цикла. Это легко понять из простого примера:

For i = 1 To 10     Total = Total + iArray(i)  Next i

В этом простом цикле For … Next используется переменная i, которая последовательно принимает значения 1, 2, 3, … 10, и для каждого из этих значений выполняется код VBA, находящийся внутри цикла. Таким образом, данный цикл суммирует элементы массива iArray в переменной Total.

В приведённом выше примере шаг приращения цикла не указан, поэтому для пошагового увеличения переменной i от 1 до 10 по умолчанию используется приращение . Однако, в некоторых случаях требуется использовать другие значения приращения для цикла. Это можно сделать при помощи ключевого слова Step, как показано в следующем простом примере.

For d = 0 To 10 Step 0.1     dTotal = dTotal + d  Next d

Так как в приведённом выше примере задан шаг приращения равный 0.1, то переменная dTotal для каждого повторения цикла принимает значения 0.0, 0.1, 0.2, 0.3, … 9.9, 10.0.

Для определения шага цикла в VBA можно использовать отрицательную величину, например, вот так:

For i = 10 To 1 Step -1     iArray(i) = i  Next i

Здесь шаг приращения равен -1, поэтому переменная i с каждым повторением цикла принимает значения 10, 9, 8, … 1.

Цикл «For Each»

Цикл For Each похож на цикл For … Next, но вместо того, чтобы перебирать последовательность значений для переменной-счётчика, цикл For Each выполняет набор действий для каждого объекта из указанной группы объектов. В следующем примере при помощи цикла For Each выполняется перечисление всех листов в текущей рабочей книге Excel:

Dim wSheet As Worksheet    For Each wSheet in Worksheets     MsgBox "Найден лист: " & wSheet.Name  Next wSheet

Оператор прерывания цикла «Exit For»

Оператор Exit For применяется для прерывания цикла. Как только в коде встречается этот оператор, программа завершает выполнение цикла и переходит к выполнению операторов, находящихся в коде сразу после данного цикла. Это можно использовать, например, для поиска определённого значения в массиве. Для этого при помощи цикла просматривается каждый элемент массива. Как только искомый элемент найден, просматривать остальные нет необходимости – цикл прерывается.

Применение оператора Exit For продемонстрировано в следующем примере. Здесь цикл перебирает 100 записей массива и сравнивает каждую со значением переменной dVal. Если совпадение найдено, то цикл прерывается:

For i = 1 To 100     If dValues(i) = dVal Then        IndexVal = i        Exit For     End If  Next i

Цикл «Do While» в Visual Basic

Цикл Do While выполняет блок кода до тех пор, пока выполняется заданное условие. Далее приведён пример процедуры Sub, в которой при помощи цикла Do While выводятся последовательно числа Фибоначчи не превышающие 1000:

'Процедура Sub выводит числа Фибоначчи, не превышающие 1000  Sub Fibonacci()     Dim i As Integer 'счётчик для обозначения позиции элемента в последовательности     Dim iFib As Integer 'хранит текущее значение последовательности     Dim iFib_Next As Integer 'хранит следующее значение последовательности     Dim iStep As Integer 'хранит размер следующего приращения       'инициализируем переменные i и iFib_Next     i = 1     iFib_Next = 0     'цикл Do While будет выполняться до тех пор, пока значение     'текущего числа Фибоначчи не превысит 1000       Do While iFib_Next < 1000        If i = 1 Then           'особый случай для первого элемента последовательности           iStep = 1           iFib = 0        Else           'сохраняем размер следующего приращения перед тем, как перезаписать           'текущее значение последовательности           iStep = iFib           iFib = iFib_Next        End If          'выводим текущее число Фибоначчи в столбце A активного рабочего листа        'в строке с индексом i        Cells(i, 1).Value = iFib        'вычисляем следующее число Фибоначчи и увеличиваем индекс позиции элемента на 1        iFib_Next = iFib + iStep        i = i + 1     Loop    End Sub

В приведённом примере условие iFib_Next < 1000 проверяется в начале цикла. Поэтому если бы первое значение iFib_Next было бы больше 1000, то цикл бы не выполнялся ни разу.

Другой способ реализовать цикл Do While – поместить условие не в начале, а в конце цикла. В этом случае цикл будет выполнен хотя бы раз, не зависимо от того, выполняется ли условие.

Схематично такой цикл Do While с проверяемым условием в конце будет выглядеть вот так:

Do  ...  Loop While iFib_Next < 1000

Цикл «Do Until» в Visual Basic

Цикл Do Until очень похож на цикл Do While: блок кода в теле цикла выполняется раз за разом до тех пор, пока заданное условие выполняется (результат условного выражения равен True). В следующей процедуре Sub при помощи цикла Do Until извлекаются значения из всех ячеек столбца A рабочего листа до тех пор, пока в столбце не встретится пустая ячейка:

iRow = 1  Do Until IsEmpty(Cells(iRow, 1))     'Значение текущей ячейки сохраняется в массиве dCellValues     dCellValues(iRow) = Cells(iRow, 1).Value     iRow = iRow + 1  Loop

В приведённом выше примере условие IsEmpty(Cells(iRow, 1)) находится в начале конструкции Do Until, следовательно цикл будет выполнен хотя бы один раз, если первая взятая ячейка не пуста.

Однако, как было показано в примерах цикла Do While, в некоторых ситуациях нужно, чтобы цикл был выполнен хотя бы один раз, не зависимо от первоначального результата условного выражения. В таком случае условное выражение нужно поместить в конце цикла, вот так:

Do  ...  Loop Until IsEmpty(Cells(iRow, 1))

Урок подготовлен для Вас командой сайта office-guru.ru
Источник: /> Перевел: Антон Андронов

Правила перепечаткиЕще больше уроков по Microsoft Excel

Оцените качество статьи. Нам важно ваше мнение:

Добрый день!
Неделю пытаюсь разобраться с макросами в Excel — выходит признаюсь честно плохо…
Решение задачи так и не нашла. Надеюсь вы сумеете мне подсказать куда конкретнее направить свою активность.

Задача передо мной стоит такая:

ячейка A1 содержит значение, которое я с помощью формул разбиваю на диапазон ячеек (задействовано 276 ячеек) целыми числами. Но при разбивке образуется дельта округления. Так вот мне необходимо эту дельту целыми числами доразнести в уже заполненные формулами ячейки например по порядку.
Например если дельта = 117, а диапазон 276, то в первые 117 ячеек прибавляем по 1, а остальные не трогаем.

Подскажите, пожалуйста, возможно ли вообще это описать для Excel?

Источник

Цикл For… Next в VBA Excel, его синтаксис и описание отдельных компонентов. Примеры использования цикла For… Next.

Цикл For… Next в VBA Excel предназначен для выполнения группы операторов необходимое количество раз, заданное управляющей переменной цикла — счетчиком. При выполнении цикла значение счетчика после каждой итерации увеличивается или уменьшается на число, указанное выражением оператора Step, или, по умолчанию, на единицу. Когда необходимо применить цикл к элементам, количество которых и индексация в группе (диапазон, массив, коллекция) неизвестны, следует использовать цикл For Each… Next.

For counter = start To end [ Step step ]

    [ statements ]

    [ Exit For ]

    [ statements ]

Next [ counter ]

For счетчик = начало To конец [ Step шаг ]

    [ операторы ]

    [ Exit For ]

    [ операторы ]

Next [ счетчик ]

В квадратных скобках указаны необязательные атрибуты цикла For… Next.

Компоненты цикла For… Next

Компонент Описание
counter Обязательный атрибут. Числовая переменная, выполняющая роль счетчика, которую еще называют управляющей переменной цикла.
start Обязательный атрибут. Числовое выражение, задающее начальное значение счетчика.
end Обязательный атрибут. Числовое выражение, задающее конечное значение счетчика.
Step* Необязательный атрибут. Оператор, указывающий, что будет задан шаг цикла.
step Необязательный атрибут. Числовое выражение, задающее шаг цикла. Может быть как положительным, так и отрицательным.
statements Необязательный** атрибут. Операторы вашего кода.
Exit For Необязательный атрибут. Оператор выхода из цикла до его окончания.
Next [ counter ] Здесь counter — необязательный атрибут. Это то же самое имя управляющей переменной цикла, которое можно здесь не указывать.

*Если атрибут Step отсутствует, цикл For… Next выполняется с шагом по умолчанию, равному 1.

**Если не использовать в цикле свой код, смысл применения цикла теряется.

Примеры циклов For… Next

Вы можете скопировать примеры циклов в свой модуль VBA, последовательно запускать их на выполнение и смотреть результаты.

Простейший цикл

Заполняем десять первых ячеек первого столбца активного листа Excel цифрами от 1 до 10:

Sub test1()

Dim i As Long

  For i = 1 To 10

    Cells(i, 1) = i

  Next

End Sub

Простейший цикл с шагом

В предыдущий цикл добавлен оператор Step со значением 3, а результаты записываем во второй столбец:

Sub test2()

Dim i As Long

  For i = 1 To 10 Step 3

    Cells(i, 2) = i

  Next

End Sub

Цикл с отрицательными аргументами

Этот цикл заполняет десять первых ячеек третьего столбца в обратной последовательности:

Sub test3()

Dim i As Long

  For i = 0 To —9 Step —1

    Cells(i + 10, 3) = i + 10

  Next

End Sub

Увеличиваем размер шага до -3 и записываем результаты в четвертый столбец активного листа Excel:

Sub test4()

Dim i As Long

  For i = 0 To —9 Step —3

    Cells(i + 10, 4) = i + 10

  Next

End Sub

Вложенный цикл

Внешний цикл последовательно задает индексы первых десяти строк активного листа, а вложенный цикл складывает числа в первых четырех ячейках строки с текущем индексом и записывает сумму в ячейку пятого столбца. Перед запуском вложенного цикла с накопительным сложением, пятую ячейку соответствующей строки обнуляем, чтобы в случае нахождения в ней какого-либо числа, оно не прибавилось к итоговой сумме.

Sub test5()

Dim i1 As Long, i2 As Long

  For i1 = 1 To 10

‘Пятой ячейке в строке i1 присваиваем 0

    Cells(i1, 5) = 0

      For i2 = 1 To 4

        Cells(i1, 5) = Cells(i1, 5) + Cells(i1, i2)

      Next

  Next

End Sub

Выход из цикла

В шестой столбец активного листа запишем названия десяти животных, конечно же, с помощью цикла For… Next:

Sub test6()

Dim i As Long

  For i = 1 To 10

    Cells(i, 6) = Choose(i, «Медведь», «Слон», «Жираф», «Антилопа», _

    «Крокодил», «Зебра», «Тигр», «Ящерица», «Лев», «Бегемот»)

  Next

End Sub

Следующий цикл будет искать в шестом столбце крокодила, который съел галоши. В ячейку седьмого столбца цикл, пока не встретит крокодила, будет записывать строку «Здесь был цикл», а когда обнаружит крокодила, запишет «Он съел галоши» и прекратит работу, выполнив команду Exit For. Это будет видно по ячейкам рядом с названиями животных ниже крокодила, в которых не будет текста «Здесь был цикл».

Sub test7()

Dim i As Long

  For i = 1 To 10

    If Cells(i, 6) = «Крокодил» Then

      Cells(i, 7) = «Он съел галоши»

      Exit For

        Else

      Cells(i, 7) = «Здесь был цикл»

    End If

  Next

End Sub

Результат работы циклов For… Next из примеров:

Результат работы циклов For... Next из примеров

Результат работы циклов For… Next

Такие данные на активном листе Excel вы получите, если последовательно запустите на выполнение в редакторе VBA все семь подпрограмм из примеров, демонстрирующих работу циклов For… Next.

Цикл с дробными аргументами

Атрибуты start, end и step могут быть представлены числом, переменной или числовым выражением:

For i = 1 To 20 Step 2

For i = a To b Step c

For i = a — 3 To 2b + 1 Step c/2  

В результате вычисления значения переменной вне цикла или выражения внутри его может получиться дробный результат. VBA Excel округлит его до целого числа, используя бухгалтерское округление:

‘Значения атрибутов до округления

For i = 1.5 To 10.5 Step 2.51

‘Округленные значения атрибутов

For i = 2 To 10 Step 3  

Старайтесь не допускать попадания в тело цикла For… Next неокругленных значений аргументов, чтобы не получить непредсказуемые результаты его выполнения. Если без дробных чисел не обойтись, а необходимо использовать обычное округление, применяйте в коде VBA функцию рабочего листа WorksheetFunction.Round для округления числа перед использованием его в цикле For… Next.

Источник

Циклы в VBA

​Смотрите также​nilem​А остальные не​ другая структура файла​1 | товар2​ включая необязательное ключевое​ i = 1;​ в Excel​Yurasha​ Y |​ будет через макрос,​ буде очень благодарен!​

​ напр AZ1 )​

  • ​при помощи цикла​
  • ​ Do While iFib_Next​
  • ​ этот оператор, программа​

​1​Встречаются ситуации, когда от​: ВПР() с кнопочкой​

Оператор цикла «For» в Visual Basic

​ «опускаются» до уровня​​ можно было бы​​ |​ слово Step. При​ i < 100;​Полосатый жираф алик​: Спасибо большое, Светлый!!!​​|3 | C​​ но, можно и​​Спасибо!​​В1=ЕСЛИ (A1<>C1;ТДАТА ();B1)​

Цикл «For … Next»

​Do Until​​ < 1000 If​​ завершает выполнение цикла​. Однако, в некоторых​ программы VBA требуется​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Макрос1()​ форумы Excel.​ ВПР использовать с​1 | ………..​ включении ключевого слова​ i++) sheet.Cells[1, i]​

​: Да, ну! И​Все супер, работает!​ | $| c|​ через формулу. В​Guest​

​С1=ЕСЛИ (B1;A1)​​извлекаются значения из​​ i = 1​​ и переходит к​​ случаях требуется использовать​ совершить несколько раз​With Range(«A2:A» &​Внести ясность может​ незакрепленным диапазоном.​ |​ Step необходимо задавать​ = i; app.Visible​ без VBA можно​ Сейчас я попробую​​ Z |​​ них, к сожалению,​​: =ПРОСМОТР(9E+307;$D4:W4)​​Столбец «В» -​

​ всех ячеек столбца​ Then ‘особый случай​ выполнению операторов, находящихся​ другие значения приращения​ подряд один и​​ Cells(Rows.Count, 1).End(xlUp).Row).Offset(, 2)​​ только автор вопроса​Balbasochka​2 | Подгруппа​​ значение для изменения​​ = true; }​ обойтись. В А1​ разобрать принцип действия​|4 | D​ не силен, опыт​Guest​​ имеет формат «Дата»​​A​ для первого элемента​

​ в коде сразу​ для цикла. Это​ тот же набор​.FormulaR1C1 = «=VLOOKUP(TRIM(RC[-2]),’таблица​Гость​

​: Ух-ты, ух-ты! А​ B |​ переменной «i».​​ }​​ пишем начальное значение.​​ этих формул. «Универсальная»​​ | $| d|​ нулевой. Похожие темы​: .​Общий недостаток для​рабочего листа до​

​ последовательности iStep =​ после данного цикла.​ можно сделать при​ действий (то есть​

​ 2′!R2C1:R200C2,2,0)»​: Добрый день!​ у Вас работает!​1 | товар1​Пример №1:​

​piloterist​​ В В1 -​​ решила эту задачу​​ $ |​​ читал на этом​alexfa88​ всех всех циклических​ тех пор, пока​

Цикл «For Each»

​ 1 iFib =​​ Это можно использовать,​​ помощи ключевого слова​​ повторить несколько раз​​.Value = .Value​расчет правильный в​Сейчас попробую.​ |​​В нижеуказанном примере,​​: C# a=sheet.cells[5,10];присвоит переменной​ формулу (зависимость от​ на все 100​|5 | E​ форуме, есть очень​: Спасибо! все отлично​​ формул:​​ в столбце не​ 0 Else ‘сохраняем​ например, для поиска​

​Step​ один и тот​End With​ Вашей таблице, мне​Боже…какая она красивая​1 | товар5​

Оператор прерывания цикла «Exit For»

​ на активном листе,​​ «a» значение находящиеся​​ А1) -(это минус)​ процентов.​ | $| $|​ похожие решения, но​ работает!​должны быть включены​ встретится пустая ячейка:​ размер следующего приращения​ определённого значения в​, как показано в​ же блок кода).​End Sub​ бы сделать это​ и простая! Как​ |​ по ячейкам А1:А10​ в пятой строке​ А1. Для большей​Спасибо еще раз!​ $ |​

​ доработать их не​​не знал про​​ итерации.​iRow = 1​ перед тем, как​ массиве. Для этого​ следующем простом примере.​ Это может быть​​BOOM​​ по кнопочке, макросом.​ же мозг так​

​1 | …….. |​ проставляется значение от​ 10-ого столбца?​ точности результат можно​ Удачи!!! =)​———————​ могу, вседствие малоопытности.​

Цикл «Do While» в Visual Basic

​ эту функцию, ВПР,​​но иногда, при​​ Do Until IsEmpty(Cells(iRow,​ перезаписать ‘текущее значение​ при помощи цикла​For d =​ сделано при помощи​​: большое спасибо. Вот​​ На одном листе​ заточен? Короткие запросы…красотища!​​2 | Подгруппа​​ одного до десяти.​Вот код:​ умножить на 1000.​

​Светлый​Впоследствии я смогу​ Итак…​ ГПР, ИНДЕКС и​ запуске файла, интерация​ 1)) ‘Значение текущей​ последовательности iStep =​ просматривается каждый элемент​ 0 To 10​ циклов VBA.​ это то, что​ храниться таблица с​ А мой мозг​ С |​Sub example1 ()​C# excelapp =​ Стоя в В1​: Пожалуйста.​ удалить из итоговой​…Требуется подобрать текстовые​ ПОИСКПОЗ использую давно,а​ принимает значение по​ ячейки сохраняется в​ iFib iFib =​ массива. Как только​ Step 0.1 dTotal​К циклам VBA относятся:​ нужно)​ наименованиями и символами,​ куда-то пошел…в какие-то​1 | товар1​ Dim i As​ new Excel.Application(); excelapp.Visible​ выбираем — Меню​Но тему всё-таки​ ячейки результаты, содержащие​ сочетания содержимого ячеек,​ эту не знал​ умолчанию ( т.​ массиве dCellValues dCellValues(iRow)​ iFib_Next End If​ искомый элемент найден,​ = dTotal +​Цикл For​sergey_klip​ а на другой​ дебри…​ |​ Long For i​ = false; excelapp.DisplayAlerts​ — Сервис -​ надо переименовать. Вместо​ символы «$».​

​ но не все​​а в синтаксисе​​ е. выкл)​ = Cells(iRow, 1).Value​ ‘выводим текущее число​​ просматривать остальные нет​​ d Next d​Цикл Do While​: Привет всем. Ребят​ лист вставлялась основная​

​BOOM​​1 | товар2​​ = 1 To​ = true; excelappworkbooks​ Подбор параметра. Ячейка​ «макрос с циклом»​И сразу вопрос:​ возможные, а подчиняющиеся​ 9Е+307 — что​и тогда машина​ iRow = iRow​

​ Фибоначчи в столбце​​ необходимости – цикл​​Так как в приведённом​Цикл Do Until​ помогите. Подскажите как​

​ таблица без символов.Т.е.​: Добрый вечер, подскажите,​ |​

Цикл «Do Until» в Visual Basic

​ 10 ActiveSheet.Range(«A» &​​ = excelapp.Workbooks; excelappworkbook​​ уже высветится, результат​ написать «формулу».​​ можно ли создать​​ порядковому чередованию:​ означает?​ начинает ругаться и​ + 1 Loop​ A активного рабочего​ прерывается.​ выше примере задан​​Далее мы подробно рассмотрим​​ сообразить цикл в​​ пользователь получил таблицу​​ пожалуйста!​​1 | ……… |​​ i).Value = i​ = excelapp.Workbooks.Open(@»C:Fact» +​​ нужен 0, изменяя​​И почитайте правила.​ такой макрос, который​A1+B1+C1+D1​справку прочитал, но​

​ выскакивать сообщение о​В приведённом выше примере​ листа ‘в строке​Применение оператора​ шаг приращения равный​ каждый из этих​ теле которого с​ из 2000 строк​

​как можно вытащить​Надо получить:​​ Next i End​​ textBox3.Text + «Data.xls»,​ значение в А1​​Успехов!​​ не будет зависеть​Дано: 4 столбца​ все равно медленно​ циклических ссылках.​ условие​

​ с индексом i​Exit For​​0.1​​ циклов.​ каждой итерацией меняется​ или 20, скопировал​ данные из одной​Код уровня группы​ Sub​ Type.Missing, Type.Missing, Type.Missing,​ — ОК. Все.​DiSco​ от фиксированного числа​ с текстовыми значениями,​

​ пока что доходит​Прийдется вручную включать​

​IsEmpty(Cells(iRow, 1))​ Cells(i, 1).Value =​
​продемонстрировано в следующем​
​, то переменная​

​Структура оператора цикла​

office-guru.ru

Excel. Как в Excel сделать циклическую формулу? И будет ли «работать» формула?

​ не сколько переменных​​ ее на этот​
​ таблицы в другую,​ | Наименование |​Пример №2:​ Type.Missing, Type.Missing, Type.Missing,​
​Макс пушкарев​: Как создать цикл​ строк в столбце,​
​ количество строк во​Спасибо!​ итерации.​находится в начале​
​ iFib ‘вычисляем следующее​

​ примере. Здесь цикл​dTotal​
​For​ на величину «к»​

​ лист, нажал на​ если вторая таблица​
​ Подгруппа​В следующем примере​ Type.Missing, Type.Missing, Type.Missing,​: ну это делается​ перебирающий значения клеток?​ а будет запускать​
​ всех столбцах разное.​
​Guest​
​Demetry​ конструкции​

​ число Фибоначчи и​ перебирает 100 записей​для каждого повторения​
​в Visual Basic​ а заканчивается цикл​
​ кнопку и символа​ постоянно разная.​2 | Подгруппа​ скрываются первый и​ Type.Missing, Type.Missing, Type.Missing,​
​ через VBA скорее​ Например: A1,A2…A100?​ очередной цикл, когда​Пример:​
​: Если больше нравится​: Насчет формулы как-то​

​Do Until​​ увеличиваем индекс позиции​ массива и сравнивает​ цикла принимает значения​ может быть организована​
​ по выполнению условия​ поставились бы. Прикрепить​Т.е. Есть табл.1​
​ A |​ второй листы книги.​
​ Type.Missing, Type.Missing); excelsheets​ васего! Alt+F11​
​Что-то вроде:​
​ «наткнется» на пустую​
​______________​ ГПР, то:​ не уверен, а​, следовательно цикл будет​

можно ли задать цикл в одной формуле?

​ элемента на 1​​ каждую со значением​

​ 0.0, 0.1, 0.2,​
​ в одной из​ например e>=1​ файл я не​ с тремя столбцами:​1 | товар1​ Sub example2 ()​ = excelappworkbook.Worksheets; //Excel.Application​piloterist​Set myRange =​ ячейку?​| -|A1|B1|C1|D1|​=ГПР(9E+307;$D4:W4;1)​ функцию можно. Например,​ выполнен хотя бы​
​ iFib_Next = iFib​ переменной​ 0.3, … 9.9,​ двух форм: как​KuklP​ нашел где(((​ 1. наименование 2.​
​ | A​ Dim i As​ app = new​: Добрый день.​ ActiveSheet.Range(‘A1:A100’) For Each​В реальной задаче​|——————-​9E+307 — максимально​
​ такая:​ один раз, если​ + iStep i​dVal​
​ 10.0.​

​ цикл​​:​

​Serge_007​​ сумма 3. символ​

​1 | товар2​​ Long For i​ Microsoft.Office.Interop.Excel.Application(); //app.Workbooks.Add(Type.Missing); Excel.Worksheet​
​Подскажите пожалуйста как​ c In myRange.Cells​ в столбце A1​|1 | A​ возможное (ну или​
​Function CYCLE(m_start As​ первая взятая ячейка​ = i +​
​. Если совпадение найдено,​Для определения шага цикла​For … Next​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>if e>=1 then exit​

​: Правила надо читать,​​и есть массив,​ | A​
​ = 1 To​

​ sheet = (Excel.Worksheet)excelappworkbook.ActiveSheet;​ сделать цикл по​ ‘ … Next​ будет 64 значения,​
​ | 1| a|​ почти максимально) число​ Integer, m_end As​ не пуста.​ 1 Loop End​

​ то цикл прерывается:​​ в VBA можно​или как цикл​
​ for(do)​ там всё написано.​ где хранятся символа.​1 | ………..​ 2 Sheets(i).Visible =​ label24.Text = sheet.Cells[2,​ столбцам Excel файла.​ cНет, это не​ в B1=32, C1=64,​ X |​ в Excel.​ Integer)​Однако, как было показано​
​ Sub​For i =​ использовать отрицательную величину,​For Each​Только какое отношение​BOOM​ табл.2: 1. наименование​ | A​
​ False Next i​ 2].ToString();результат: System._ComObject​ Надо в первой​ подходит. Он просто​ D1=16.​|2 | B​

​не найдя данное​​For i =​

planetaexcel.ru

Построить формулу с циклом для перебора вариантов сочетаний. (Формулы/Formulas)

​ в примерах цикла​​В приведённом примере условие​
​ 1 To 100​ например, вот так:​.​
​ вопрос имеет к​: я сделал через​
​ 2. символ​2 | Подгруппа​ End Sub​mih0505​ строке отыскать столбец​ работает с выделеным​Знаю, что на​ | 2| b|​ число, или число​ m_start To m_end​Do While​iFib_Next < 1000​ If dValues(i) =​
​For i =​Цикл​ теме? Циклы имеются​ функцию ВПР​Вопрос, как можно​
​ B |​
​Пример №3:​: C# sheet.Cells[2, 2].Value.ToString();​ с нужным числом.​ диапазоном. А мне​
​ лист весь вывод​
​ Y |​
​ больше данного, формула​
​CYCLE = CYCLE​
​, в некоторых ситуациях​проверяется в начале​ dVal Then IndexVal​
​ 10 To 1​For … Next​ в большинстве программ,​
​0mega​ макросом проставить правильные​1 | товар1​
​Рассмотрим вариант цикла​Цикл​Вопрос становиться все​
​ нужно чтобы он​ не поместится, поэтому,​|3 | C​
​ возвращает значение из​
​ + i​ нужно, чтобы цикл​ цикла. Поэтому если​
​ = i Exit​
​ Step -1 iArray(i)​
​использует переменную, которая​
​ это не повод​
​:​
​ символа в таблицу​
​ | B​
​ с Step (шагом)​
​For…Next​
​ актуальнее! Неужели нельзя​
​ проверял условие в​
​ либо буду использовать​
​ | _| c|​
​ последней заполненной ячейки​
​Next​
​ был выполнен хотя​ бы первое значение​ For End If​ = i Next​ последовательно принимает значения​ постить в темы​Гость​
​ 1 из таблицы​
​1 | товар5​
​ через одну ячейку,​используется когда необходимо​ запустить цикл по​
​ каждой строке от​ в колонке A1​ Z |​
​alexfa88​End Function​ бы один раз,​
​iFib_Next​ Next i​ i​
​ из заданного диапазона.​ с циклами вопросы​,​
​ 2, если она​
​ | B​ в данном случае​ повторить действия заранее​ столбца Excel?​
​ 1 до 100.Ну​ каждый раз по​|4 | D​: есть правда один​суммирует в цикле​ не зависимо от​было бы больше​Цикл​Здесь шаг приращения равен​ С каждой сменой​
​ хоть как-то с​никак я могу​ не постоянна, имеет​1 | ……..​ будут заполнены ячейки​
​ заданное кол-во раз.​Петррр​ так какие проблемы,​ 2 значения (получится​ | _| d|​ нюанс:​ все целые в​ первоначального результата условного​ 1000, то цикл​Do While​-1​ значения переменной выполняются​ ними связанные.​ войти в тему​ разное кол-во наименований?​
​ | B​
​ через одну (А1,А3,А5,А7,А9).​Цикл​
​: Собственно, в чем​ вставь проверку условия​
​ как раз 65536),​
​ _ |​если в одном​ диапазоне от m_start​ выражения. В таком​
​ бы не выполнялся​выполняет блок кода​, поэтому переменная​ действия, заключённые в​

​savrix​​ …​0mega​2 | Подгруппа​
​ Sub example3 ()​For…Nex​ проблема?​
​ в том цикле,​
​ либо попрошу опять​
​|5 | E​
​ квартале лимит не​ до m_end включительно.​ случае условное выражение​ ни разу.​
​ до тех пор,​

​i​​ теле цикла. Это​
​: Доброго времени суток!!!​предложенный вариант выполняет​:​ С |​ Dim i As​t имеет следующий синтаксис:​piloterist​
​ который написал Comanche.​ же здесь помощи,​

​ | _| _|​​ устанавливался вовсе (такое​
​alexfa88​ нужно поместить в​Другой способ реализовать цикл​ пока выполняется заданное​
​с каждым повторением​
​ легко понять из​

excelworld.ru

Как создать цикл перебирающий значения клеток в Excel?

​ Господа, подскажите пожалуйста​​ эти требования .​BOOM​1 | товар1​

​ Long For i​
​For i = Start​: ну столбец же​ А если не​ чтобы реализовать переход​ _ |​ тоже может быть),​: Доброго времени суток!​ конце цикла, вот​Do While​ условие. Далее приведён​ цикла принимает значения​ простого примера:​ такой вопрос… Есть​Quote​, здравствуйте​ | С​ = 1 To​ To End [Step​ в Excel имеет​ подходит то опиши​ на другой лист​———————​ но при этом​
​Есть следующая задача:​ так:​
​– поместить условие​ пример процедуры​ 10, 9, 8,​For i =​ табличка, подобие ЗП,​(Гость)200?’200px’:»+(this.scrollHeight+5)+’px’);»>…пользователь получил таблицу​наличие настоящей таблицы​1 | товар2​ 10 Step 2​ StepSize]​ буквенное обозначение… как​

CyberForum.ru

Как сделать цикл в Excel

​ задачу, может какие​ с помощью такого​Хочу в итоговой​ лимит был в​существует ряд предприятий,​Do … Loop​ не в начале,​Sub​ … 1.​ 1 To 10​ и нужно что​ из 2000 строк​ в формате​
​ | С​ ActiveSheet.Range(«A» & i).Value​

​//операторы//​​ мне прогнать цикл​ другие варианты есть.Почти​ макроса (вычитал на​ колонке получить массив​ предыдущем квартале, то​ по которым в​ Until IsEmpty(Cells(iRow, 1))​ а в конце​, в которой при​Цикл​ Total = Total​ бы на отдельных​ или 20, скопировал​.xls​1 | ………​ = i Next​Next [i]​ с буквы А​

​ получилось, он пербирает​​ одном из форумов):​ данных:​ =ПРОСМОТР(9E+307;$D4:W4) вытянет просто​

Цикл по столбцам Excel Файла

​ начале квартала устанавливается​​Урок подготовлен для Вас​
​ цикла. В этом​ помощи цикла​For Each​ + iArray(i) Next​ листах формировались расчетные​ ее на этот​
​- существенно ускорит​ | С​ i End Sub​i​

​ например на 100​​ значения, Но у​200?’200px’:»+(this.scrollHeight+5)+’px’);»>set ws = activesheet​

​1 A1aX​​ самое последнее значение​ лимит задолженности, потом​ командой сайта office-guru.ru​ случае цикл будет​Do While​похож на цикл​ i​ листки, по каждому​ лист…​ вероятность правильного ответа​Я попробовала через​

​Balbasochka​​– численная переменная VBA​ столбцов вперед чтобы​

​ меня следубщая задача:​​If ws.cols.count =​2 A1aY​ из всего массива,​ в течение квартала​Источник: http://www.excelfunctions.net/VBA-Loops.html​ выполнен хотя бы​выводятся последовательно числа​For … Next​В этом простом цикле​

​ сотруднику, которые есть​​Во вторую таблицу​ .​=ЕСЛИ(И(A37=1;СМЕЩ(A37;-1;0;;1)=2);ПРАВСИМВ(СМЕЩ(A37;-1;1;1);1);ЕСЛИ(И(A37=1;СМЕЩ(A37;-2;0;;1)=2);ПРАВСИМВ(СМЕЩ(A37;-2;1;1);1);ЕСЛИ(И(A37=1;СМЕЩ(A37;-3;0;;1)=2);ПРАВСИМВ(СМЕЩ(A37;-3;1;1);1);ЕСЛИ(И(A37=1;СМЕЩ(A37;-4;0;;1)=2);ПРАВСИМВ(СМЕЩ(A37;-4;1;1);1);ЕСЛИ(И(A37=1;СМЕЩ(A37;-5;0;;1)=2);ПРАВСИМВ(СМЕЩ(A37;-5;1;1);1);ЕСЛИ(И(A37=1;СМЕЩ(A37;-6;0;;1)=2);ПРАВСИМВ(СМЕЩ(A37;-6;1;1);1);ЕСЛИ(И(A37=1;СМЕЩ(A37;-7;0;;1)=2);ПРАВСИМВ(СМЕЩ(A37;-7;1;1);1);»»)))))))​: Добрый день!​ (счетчик)​ найти столбцы, у​Есть клетка A1,​ 65… then​3 A1aZ​ а не то​ эти лимиты могут​Перевел: Антон Андронов​ раз, не зависимо​ Фибоначчи не превышающие​, но вместо того,​

​For … Next​​ в табличке. Записать​ можно вводить данные​P.S.​Но строк может​
​Помогите, пожалуйста, с​
​Start​ который в i-ой​ D1 и E1.​set ws =​4 A1bX​ что было именно​ пересматриваться, частота и​Автор: Антон Андронов​ от того, выполняется​ 1000:​ чтобы перебирать последовательность​используется переменная​ макрос с созданием​ с клавиатуры, а​если не угадал,​ быть очень много…​ формулой.​– численное выражение, определяет​

​ строке нужные мне​​Если значение A1​

CyberForum.ru

Цикл For…Next

​ activeworkbook.sheets.add​​5 A1bY​​ в конкретном квартале.​ периодичность пересмотров не​Ampersand​
​ ли условие.​​’Процедура Sub выводит​​ значений для переменной-счётчика,​
​i​ этого листка для​ можно через copy-paste.​
 ​ тогда файл в​
​ можно задать какой-то​
​Есть таблица с​ ​ начальное значение для​ данные.​
​ Как сделать?For i​ ​end if​…​В принципе это​
​ устанавливаются, т.е. могут​ ​: ЦИКЛИЧЕСКИЕ ФОРМУЛЫ​Схематично такой цикл​ числа Фибоначчи, не​
​ цикл​, которая последовательно принимает​ каждого сотрудника и​Quote​ студию​ цикл? Если ЛОЖЬ,​ определенной структурой.​ переменной​Петррр​ = 1 To​Буду благодарен если​12 A1dZ​ я уже начинаю​ пересматривать часто в​Чтобы формулы работали​Do While​ превышающие 1000 Sub​For Each​ значения 1, 2,​ прописать туда ссылки​(Гость)200?’200px’:»+(this.scrollHeight+5)+’px’);»>… нажал на​RAN​ то минус 1​Нужно определить для​
​End​
​: Можно и по​ 100 If Cells(i,​ поможете реализовать идею,​13 A2aX​ умничать и придираться,​
​ одном квартале, в​ в цикле -​с проверяемым условием​ Fibonacci() Dim i​выполняет набор действий​ 3, … 10,​ на нужные ячейки​ кнопку и символа​​:​
​ строка к предыдущему​ каждой позиции подгруппу,​– это также численное​ индексам обращаться.​ 1) < 10​ и объяснить принцип​…​ для решения данной​ другом квартале может​ должны быть включены​​ в конце будет​
​ As Integer ‘счётчик​ для каждого объекта​ и для каждого​ с общей таблицы​ поставились бы…​BOOM​ и т.д.​ в которую она​ выражение, определяет конечное​piloterist​ Then Cells(i, 4)​ действия конкретного макроса.​24 A2dZ​ проблемы можно вручную​

excelworld.ru

Цикл в формуле — проверка условий и подстановка значений (Формулы/Formulas)

​ обойтись вообще без​​ итерации.​
​ выглядеть вот так:​ для обозначения позиции​
​ из указанной группы​ из этих значений​
​ не проблема… НО​Символы займут нужное​или не​VBA совсем не​ входит. Код уровня​ значение для переменной.​: По каким индексам?​ = Cells(i, 1)​Прикрепил сам файл​25 B1aX​ изменить диапазон массива,​ пересмотров.​Ячейка выполняет действия​Do … Loop​
​ элемента в последовательности​
​ объектов. В следующем​ выполняется код VBA,​ делать это для​
​ место автоматически сразу​BOOM​
​ знаю. Помогите, пожалуйста!​ для наименования подгруппы​
​Цикл по счетчику​ Задача пройтись циклом​
​ Else Cells(i, 5)​ с задачей, а​
​…​ что не так​
​Каким образом можно​ со своими же​
​ While iFib_Next <​ Dim iFib As​
​ примере при помощи​
​ находящийся внутри цикла.​ каждого сотрудника долго((((…​
​ после ввода таблицы​отвечать на вопрос,​
​_Boroda_​ всегда один и​
​ выделяется ключевыми словами​
​ по первой строке​
​ = Cells(i, 1)​ то строки таблицы​…​
​ долго,​ на определенный срез​
​ значеними​ 1000​
​ Integer ‘хранит текущее​ цикла​
​ Таким образом, данный​ Так вот суть​
​А кнопочка-то зачем​ зависит от вас.​
​: Так пойдет?​ тот же, код​
​ For и Next.​ всех столбцов и​
​ End If Next​ съезжают…​
​120 E2dZ​но если в​
​ (например на последний​В ячейку D2​
​Цикл​ значение последовательности Dim​
​For Each​ цикл суммирует элементы​
​ вопроса… Подскажите, как​​ нужна ?​
​0mega​=ЕСЛИ(A20=2;ПСТР(B20;11;99);C19)​ уровня для номенклатуры​ После начального For​ отобрать столбцы прошедшие​ i​Светлый​
​Конец.​ формулу еще заложить​

​ день квартала) в​​ вволите значение и​
​Do Until​
​ iFib_Next As Integer​выполняется перечисление всех​
​ массива​

​ сделать цикл, что​​BOOM​принципиальный противник макросов,​Или так (если​ тоже всегда один​
​ указывается имя переменной,​ по условию. А​Задача есть 2 формулы​: Макросы (VBA) в​Для упрощения решения​
​ механизм просмотра массива​ одном столбце сразу​ ячейка A2 сама​очень похож на​ ‘хранит следующее значение​

​ листов в текущей​​iArray​ бы он проходил​
​: просто задачу такую​
​ так что его​ с пропусками)​ и тот-же. Количество​ данная переменная (i)​ потом у этих​ 1 в первую​ другом разделе. Или​

excelworld.ru

цикл (цикл)

​ могу предложить добавить​​ по определенному критерию,​ подтянуть все самые​
​ себя пересчитывает​ цикл​ последовательности Dim iStep​ рабочей книге Excel:​в переменной​
​ по всей табличке​ поставили . Т.к​ ответ либо не​Код=ЕСЛИ(A20=2;»»;ЕСЛИ(A19=2;ПСТР(B19;11;99);D19))​
​ строк в каждой​ будет счетчиком, после​ столбцов получить значение​ подставляется число X.​
​ переименуйте тему.​ в каждый исходный​ то это будет​ последние пересмотренные лимиты?​B2=ABS(B2-D2)​Do While​ As Integer ‘хранит​

​Dim wSheet As​​Total​​ и для каждого​​ пользователи не умеют​
​ удовлетворяет постановке задачи​Balbasochka​​ подгруппе неопределенное, количество​​ знака равенства идёт​ в определенной строке.​ В конце расчёта​
​А формульное решение​
​ столбец количество символов​ очень замечательно! :)​Прилагаю файл, в​

​В ячейку А1​​: блок кода в​​ размер следующего приращения​​ Worksheet For Each​​.​​ сотрудника создавал расчетный​ пользоваться офисом и​
​либо вы поставили​​: Не работает, возможно​ подгрупп тоже может​ начальное значение счетчика,​Петррр​
​ получаем число X​ Вашей задачи во​
​ для равного значения​kim​ нем же есть​sad

​ вводим любую информацию​​ теле цикла выполняется​ ‘инициализируем переменные i​ wSheet in Worksheets​В приведённом выше примере​
​ листок. Пример файла​ чтобы им меньше​ задачу неверно.​
​ я описала в​ отличаться.​

​ а после ключевого​​: C# using System;​
​ но другое. Теперь​ вложенном файле.​ строк в каждом​: =ЕСЛИОШИБКА(ПРОСМОТР(2;1/((X2=$D$2:$W$2)*($D4:$W4<>»»));$D4:W4);»»)​ предложение, какой именно​Автоматически в В1​ раз за разом​ и iFib_Next i​ MsgBox «Найден лист:​ шаг приращения цикла​ прилагаю. Заранее благодарен​ делать манипуляций, хотят​На форум иногда​ тексте не очень​Имеем:​ слова To -​ using Exel =​ надо подставить это​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СМЕЩ(A$1;ОТБР((СТРОКА()-1)/32/64/16);)&СМЕЩ(B$1;ОСТАТ(ОТБР((СТРОКА()-1)/64/16);32);)&СМЕЩ(C$1;ОСТАТ(ОТБР((СТРОКА()-1)/16);64);)&СМЕЩ(D$1;ОСТАТ(СТРОКА()-1;16);)​

​ столбце:​​Yurasha​ цикл нужно использовать,​

​ зафиксируется время​​ до тех пор,​ = 1 iFib_Next​

​ » & wSheet.Name​​ не указан, поэтому​​ за любую помощь.​​ одной кнопочкой.​
​ заглядывают экстрасенсы, но​ точно.​Код уровня группы​
​ конечное значение счетчика.​ Microsoft.Office.Interop.Excel; class Program​
​ число в начало​​И универсальная:​| | A1|B1|C1|D1|​: Здравствуйте!​ но, к сожалению​Интересное решение предложил​
​ пока заданное условие​ = 0 ‘цикл​ Next wSheet​ для пошагового увеличения​
​ Всем добра )​​я могу проставить​ не часто…​В ячейку C​
​ | Наименование |​ По умолчанию счётчик​ { static void​
​ и так до​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СМЕЩ(A$1;ОСТАТ(ОТБР((СТРОКА()-1)/СЧЁТЗ(B:B)/СЧЁТЗ(C:C)/СЧЁТЗ(D:D));СЧЁТЗ(A:A));)&СМЕЩ(B$1;ОСТАТ(ОТБР((СТРОКА()-1)/СЧЁТЗ(C:C)/СЧЁТЗ(D:D));СЧЁТЗ(B:B));)&СМЕЩ(C$1;ОСТАТ(ОТБР((СТРОКА()-1)/СЧЁТЗ(D:D));СЧЁТЗ(C:C));)&СМЕЩ(D$1;ОСТАТ(СТРОКА()-1;СЧЁТЗ(D:D));)​

​|——————-​​Я здесь новичок​ не догадываюсь, как​ Michael_S​ выполняется (результат условного​ Do While будет​Оператор​ переменной​
​Udik​ в цикле только​0mega​ нужно проставить значение​ Подгруппа​ работает с шагом​

​ Main(string[] args) {​​ тех пор пока​
​А эту формулу​
​|1 | A​ и это мой​
​ его реализовать в​Но этот способ​
​ выражения равен​
​ выполняться до тех​
​Exit For​

​i​​: Лучше вам новую​ значение, типа символа​: Все мало-мальски имеющие​

​ из столбца B​​2 | Подгруппа​ равным единице. Можно​ Exel.Application app =​ верхнее и нижнее​ можно протянуть по​ | 1| a|​ первый пост.​ одной формуле.​ требует дополнителный столбец​True​

​ пор, пока значение​​применяется для прерывания​​от 1 до​ тему открыть, типа​
​ или слова, а​ эти возможности сейчас​ и его надо​ A |​ задавать другое значение​ new Microsoft.Office.Interop.Excel.Application(); app.Workbooks.Add(Type.Missing);​ значения X не​ столбцам и получим​ X |​

​Помогите пожалуйста составить​​Пожалуйста, если есть​ (который можно закрыть​). В следующей процедуре​ ‘текущего числа Фибоначчи​ цикла. Как только​ 10 по умолчанию​добавление новых листов по​ вот как формулу​ участвуют на съемках​ найти снизу вверх.​1 | товар1​ (StepSize), на которое​ Exel.Worksheet sheet =​ совпадут.​ все 64*32*64*16 сочетаний:​|2 | B​ цикл.​ какие либо варианты​ или расположить на​Sub​ не превысит 1000​ в коде встречается​ используется приращение​ списку​ проставлять не знаю​ TV​Если была бы​ |​ будет изменяться «i»,​ (Exel.Worksheet)app.ActiveSheet; for (int​

​Как это сделать​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СМЕЩ($A$1;ОТБР(((СТРОКА()-1)+(СТОЛБЕЦ(A1)-1)*65536)/32/64/16);)&СМЕЩ($B$1;ОСТАТ(ОТБР(((СТРОКА()-1)+(СТОЛБЕЦ(A1)-1)*65536)/64/16);32);)&СМЕЩ($C$1;ОСТАТ(ОТБР(((СТРОКА()-1)+(СТОЛБЕЦ(A1)-1)*65536)/16);64);)&СМЕЩ($D$1;ОСТАТ(СТРОКА()-1;16);)​ | 2| b|​​Думаю, что правильнее​ — помогите пожалуйста,​

excelworld.ru

​ «далеких » адресах.​

Источник

A loop is an essential concept for any programming language, and VBA follows the same approach. You can use loops to repeat an action until a specified condition is reached, or move through objects in a group, e.g. all worksheets in a workbook. A loop is an essential concept for programming. In this guide, we’re going to show you how to create a VBA loop in Excel.

Download Workbook

VBA loops can be useful to automate tasks. For example, you may need to protect or unprotect every worksheet at once, iterate a calculation for a specific number of times, or loop cells and store their values into an array until you find an empty cell. The rest is up to your needs and imagination.

VBA has two main loop categories:

  • For…Next Loops
  • Do Loops

In generally, while For…Next loops are designed for specific amount of iterations, Do loops are good for iterating based on a condition. However, you can modify and configure both loop types by their individual keywords. Let’s see the loop types with examples.

For…Next VBA Loop

For…Next (also known as For) loops are where you start to create VBA loops in Excel. A For loop is a basic concept of a loop structure in all programming languages. A For…Next loop is good for if you want to iterate you code certain amount of times, and for when you need to use the counter. For example, if you want to check cells from A1 to A10, a counter clicks from 1 to 10 can work in that case. Let’s see its syntax and an example.

Syntax

For counter = start To end [ Step step ]
[ statements ]
[ Exit For ]
[ statements ]
Next [ counter ]

Part Description
counter Required. Numeric variable used as a loop counter. The variable can’t be a Boolean or an array element.
start Required. Initial value of counter.
end Required. Final value of counter.
step Optional. Amount counter is changed each time through the loop. If not specified, step defaults to one.
statements Optional. One or more statements between For and Next that are executed a specific number of times.

Example 1 – Basic Form

In the first example of For…Next loop, we attempt to write serial numbers into the cells in A1:A10. In this code, For…Next loop sets values from 1 to 10 into the variable i. After the variable gets its value, you can use it in the code. We used the variable to specify the row numbers and cell values. Finally, the Next row increases the variable’s row by 1, and cycle goes on until the variable is equal to 11.

Sub FillSerialNumbers()
    Dim i As Integer
    For i = 1 To 10
        ActiveSheet.Cells(i, 1) = i
    Next i
End Sub

How to create VBA loops in Excel - For Next

Example 2 – Step

By default, For…Next loop increases its counter variable by 1 for each loop. You can change this property by using the step argument. To specify a step argument, use the Step keyword after the end argument and enter a number. Step can be either a positive or negative.

The following code is a modified version of the first example. Step 2 argument is added to loop. In this loop, the variable i can only take «1, 3, 5, 7, 9» values.

Sub FillSerialNumbers_Step2()
    Dim i As Integer
    For i = 1 To 10 Step 2
        ActiveSheet.Cells(i, 1) = i
    Next i
End Sub

Remember to choose appropriate start and end arguments when you need to use a negative step value. For example, For I = 10 To 1 Step -1

Example 3 – Nested Loops

You can create loops within other loops. VBA executes all iterations in an inner loop, for each iteration of the outer loop. This type of structure can be helpful if you want add additional dimensions into your code. For example, while one loop is counting rows, other can count the columns. You need three loops to fill a three-dimensional data array.

The important point is using different counter variables for each loop. Otherwise, there will be leaps for the counter values. Let’s see an example for nested For…Next loops.

The following code contains 2 For…Next loops which is using variables named i and j. In the statement panel, i and j are used as row and column numbers respectively.

In the first run, i becomes 1 and j becomes 2. After code is executed in the j-loop, while i keeps its value (1), j becomes 3. This cycle goes on until j becomes 7. After this, i becomes 2 and j returns back to 2.

Sub FillSerialNumbers_Nested()
    Dim i As Integer, j As Integer
    For i = 1 To 10
        For j = 2 To 6
            ActiveSheet.Cells(i, j) = i * j
        Next j
    Next i
End Sub

Since j gets numbers between 2 and 6, only columns from B to F are filled.

Example 4 – Exit For

You may want to exit a loop when a certain condition is met. Let’s say we do not want to fill cells if i * j is more than 18. To achieve this, we can use Exit For statement.

The following code uses Exit For in the inner loop. Please note that, Exit For works for only the loop it’s in. Thus, when i * j > 18 condition is met, VBA continues to run the outer loop (i-loop).

Sub FillSerialNumbers_ExitFor()
    Dim i As Integer, j As Integer
    For i = 1 To 10
        For j = 2 To 6
            If i * j > 18 Then Exit For
            ActiveSheet.Cells(i, j) = i * j
        Next j
    Next i
End Sub

Example 5 — For Each

A For Each loop is a more specialized version of the For…Next loops. For Each loops can iterate for elements in a list. These elements can be values in an array, cells in a range, or worksheets in workbook. For Each loops doesn’t need a counter, each element is stored in a variable to be used in the code.

Let’s take another example. This time there isn’t a counter variable, but a range object c. For Each loop assigns each cell in the range «A1:C8» to element c, at each iteration. Also, since there is no counter value, we need to increase an integer by 1 in the code.

Sub FillSerialNumbers_ForEach()
    Dim c As Range, i As Integer
    i = 0
    For Each c In ActiveSheet.Range("A1:C8")
        i = i + 1
        c = i
    Next c
End Sub

How to create VBA loops in Excel - For Each

This is the last example for the For…Next loops of our how to create a VBA loop in Excel guide. Let’s now move on to the Do loops.

Do VBA Loop

A Do loop looks at whether a condition is met to continue cycling through, or stop a loop. Do loops are more flexible than For…Next loops. On the other hand, this flexibility comes with some complexities.

A Do loop starts with Do and finishes with Loop keywords. You can define a condition for one of these statements. If you specify a condition with Do, VBA looks at the condition first; otherwise, the code block in the loop is executed and the condition is evaluated at the end. This flexibility presents 2 syntaxes.

Also, Do loops can use While and Until keywords to specify the action when a condition is met. If you use the While keyword, the loop continues to work if condition is met. On the other hand, the Until keyword stops the loop.

Syntax

Do [{ While | Until } condition ]
[ statements ]
[ Exit Do ]
[ statements ]
Loop

Or, you can use this syntax:

Do
[ statements ]
[ Exit Do ]
[ statements ]
Loop [{ While | Until } condition ]

Part Description
condition Optional. Numeric expression or string expression that is True or False. If condition is Null, condition is treated as False.
statements One or more statements that are repeated while, or until, condition is True.

Example 1 – Do While

Do While loop iterates its statements as long as the specified conditions are valid. We can modify our first example to work with a Do loop.

In the following example, the Do loop works as many iterations as the variable i is equal or less than 10.

Sub FillSerialNumbers_DoWhile()
    Dim i As Integer
    i = 1
    Do While i <= 10
        ActiveSheet.Cells(i, 1) = i
        i = i + 1
    Loop
End Sub

Caution: If you use a loop like this, remember to add a code to change the value of the variable. Otherwise, the code will be stuck in an infinite loop because the variable i will always remain less than 10.

How to create VBA loops in Excel - Do Loop

Example 2 — Do Until

This time the loop continues «until» the condition is met. Once it does, the loop ends.

Sub FillSerialNumbers_DoUntil()
    Dim i As Integer
    i = 1
    Do Until i > 10
        ActiveSheet.Cells(i, 1) = i
        i = i + 1
    Loop
End Sub

Example 3 – Loop While

You can use conditions after Loop as well. In this scenario, you ensure that the statements are executed at least once before condition validation.

Loop While iterates the loop if the supplied condition is met.

Sub FillSerialNumbers_DoLoopWhile()
    Dim i As Integer
    i = 1
    Do
        ActiveSheet.Cells(i, 1) = i
        i = i + 1
    Loop While i <= 10
End Sub

Example 4 – Loop Until

Use Loop Until statement when you need to check the condition after the statements, and want to continue the loop «until» the condition is met.

Sub FillSerialNumbers_DoLoopUntil()
    Dim i As Integer
    i = 1
    Do
        ActiveSheet.Cells(i, 1) = i
        i = i + 1
    Loop Until i > 10
End Sub

That’s all! You can now create your own VBA loop to automate your Excel tasks in no time.

Источник

Содержание

  1. Циклический просмотр списка данных на листе с помощью макросов в Excel
  2. Аннотация
  3. Дополнительная информация
  4. Поиск списка с постоянным, известным числом строк
  5. Поиск динамического списка или списка с неизвестным количеством строк
  6. Поиск списка для конкретной записи
  7. VBA For Each примеры
  8. Сила циклов VBA
  9. Как работает цикл For Next?
  10. Два типа циклов For Next
  11. The For Each Next Loop: цикл по коллекции элементов
  12. В каком порядке работает цикл For Each?
  13. Предметы / объекты НЕ выбираются в цикле
  14. The Next Loop: циклы через набор чисел
  15. Обратный цикл
  16. Как остановить цикл раньше
  17. Переменная не требуется после ключевого слова Next
  18. Примеры макросов VBA для циклов
  19. Какую задачу хотите зациклить вы?

Циклический просмотр списка данных на листе с помощью макросов в Excel

Аннотация

При написании макроса Microsoft Visual Basic для приложений (VBA), возможно, придется выполнять циклический просмотр список данных на листе. Существует несколько методов выполнения этой задачи. Раздел “Дополнительная информация” этой статьи содержит сведения о методах, которые можно использовать для поиска в списках следующих типов:

  • Список, содержащий известное, постоянное количество строк.
  • Динамический список или список с неизвестным числом строк.
  • Список, содержащий определенную запись.

Дополнительная информация

Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Специалисты технической поддержки Майкрософт могут пояснить работу той или иной процедуры, но модификация примеров и их адаптация к задачам разработчика не предусмотрена. В следующих примерах кода предполагается, что в списке есть строка заголовка, которая начинается в ячейке A1, и данные, которые начинаются в ячейке A2.

Поиск списка с постоянным, известным числом строк

Этот код перемещает столбец А в конец списка:

Поиск динамического списка или списка с неизвестным количеством строк

Этот код перемещает столбец А в конец списка. (Этот код предполагает, что каждая ячейка в столбце А содержит запись до конца.)

Примечание Если в столбце A в данных есть пустые ячейки, измените этот код, чтобы он был указан в этом условии. Убедитесь, что пустые ячейки находятся на одинаковом расстоянии друг от друга. Например, если каждая другая ячейка в столбце А пуста (например, такая ситуация может возникнуть, если каждая запись «Record» использует две строки с отступом второй строки), этот цикл может быть изменен следующим образом:

Поиск списка для конкретной записи

Этот код перемещает столбец А в конец списка:

Источник

VBA For Each примеры

Итог: циклы For Next — одни из самых мощных методов VBA для автоматизации общих задач в Excel. В этой статье объясняется, как работает цикл, повторяющий действия над коллекцией элементов, что экономит нам массу времени.

Уровень мастерства: Средний

Сила циклов VBA

В Excel мы тратим много времени на повторяющиеся простые задачи. Например, как: форматирование нескольких диапазонов, отображение нескольких листов, копирование и вставка в несколько рабочих книг, применение фильтров к нескольким таблицам или сводным таблицам, замена значений, обновление формул и т.д.

Можете ли вы вспомнить несколько задач, в которых вам приходилось повторять один и тот же процесс снова и снова?

Эти задачи чрезвычайно трудоемкие и скучные!

К счастью, выход есть. Мы можем использовать циклы в наших макросах VBA, чтобы очень быстро повторять действия. Задачи, выполнение которых вручную может занять несколько часов, могут быть выполнены за несколько секунд с помощью цикла.

Цикл For Next — это наиболее распространенный тип цикла, который помогает нам выполнять эти повторяющиеся задания. В этой статье мы рассмотрим два типа For Next Loops.

Загрузите файл примера

Загрузите бесплатный файл Excel, содержащий примеры макросов с помощью цикла For Next.

For Next Loop VBA Macro Examples.xlsm (79.0 KB)

Скачать PDF версию статьи на английском для печати.

Как работает цикл For Next?

Цикл For Next позволяет нам просматривать коллекцию, элементами которой могут быть объекты или списки чисел.

  • Клетки в ассортименте.
  • Рабочие листы в рабочей тетради.
  • Открытые рабочие тетради на компьютере.
  • Сводные таблицы на листе.
  • Сводные поля в сводной таблице.
  • Формы на листе.
  • И любой другой объект, с которым вы взаимодействуете в Excel.

Задача цикла For Next Loop состоит в том, чтобы выполнять одинаковые действия (строки кода) для каждого элемента в коллекции.

В приведенном ниже примере содержится цикл For Next, который проходит по каждому листу в книге и отображает каждый лист. Цикл начинается с первого элемента в коллекции (первый лист в рабочей книге) и выполняет строку кода между строками For и Next для каждого элемента в коллекции (каждый лист в рабочей книге).

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

Следующий макрос отображает только те листы, которые имеют фразу «ABC Global Co.» в ячейке A1 каждого листа, и скрывает все остальные листы.

Два типа циклов For Next

Действительно, существуют два типа For Next Loops.

  1. For Each Next Loops циклически просматривает коллекцию элементов.
  2. For Next Loops цикл через набор чисел.

Давайте посмотрим, как работает каждый.

The For Each Next Loop: цикл по коллекции элементов

Как мы видели выше, цикл «The For Each Next Loop» позволяет нам перебирать коллекцию предметов или объектов. Это, наверное, самый распространенный цикл, который мы используем в Excel, потому что мы работаем с коллекциями объектов. Опять же, эти коллекции представляют собой ячейки в диапазоне, рабочие таблицы в рабочей книге, сводные таблицы в рабочей таблице и т.д.

Мы будем использовать пример написания цикла «For Each Next Loop», чтобы просмотреть все рабочие листы в рабочей книге.

Существует четыре основных шага для написания цикла For Each Next в VBA:

  1. Объявите переменную для объекта.
  2. Напишите для каждой строки переменную и коллекцию ссылок.
  3. Добавьте строку (и) кода для повтора для каждого элемента в коллекции.
  4. Напишите следующую строку, чтобы закрыть цикл.

Давайте рассмотрим каждый из этих шагов подробно.

Шаг 1 — объявить переменную для объекта

Сначала нам нужно объявить переменную, которая будет временно хранить ссылку на объект.

Строка Dim в верхней части макроса объявляет переменную, как объект. В этом случае объект является рабочим листом. Мы можем создать любое имя переменной, если захотим, если оно не совпадает с другой ссылкой в VBA. «Ws» — наиболее распространенное имя переменной для объекта листа, но вы можете изменить его.

Шаг 2 — Для каждой строки

Далее мы напишем оператор For Each. Это первая строка кода в цикле.

Первые два слова For Each. Затем мы вводим имя переменной, за которым следует слово In. Наконец, мы указываем, где располагается коллекция. В этом случае мы хотим просмотреть все рабочие листы в ActiveWorkbook. Итак, мы набираем ActiveWorkbook.Worksheets. Эта строка ссылается на все рабочие листы в ActiveWorkbook.

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

Просто помните, что рабочая книга, на которую вы ссылаетесь, должна быть открыта до запуска строки кода For Next. Конечно, мы можем использовать метод Workbooks.Open, чтобы открыть рабочую книгу.

Шаг 3 — Добавить код для повторения для каждой итерации

После строки «For Each» мы добавляем строку(и) кода, которая будет выполняться на каждом листе. В этом примере у нас есть только одна строка кода, которая показывает лист.

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

Это так же, как если бы мы установили переменную ws для определенного листа, используя следующую строку кода.

Однако нам НЕ нужна эта строка с циклом For Each Next. Цикл заботится о настройке переменной для нас для каждой итерации в цикле.

Для первой итерации в цикле ws установлен на Worksheets (1). На следующей итерации ws устанавливается в Worksheets (2). Это продолжается, пока цикл перебирает все листы в рабочей книге. Это очень мощно, потому что мы можем повторно использовать переменную для ссылки на лист в цикле несколько раз.

Шаг 4 — Next закрывает цикл

Последняя строка кода в цикле — Next.

Когда макрос попадает в эту строку кода, он делает две вещи:

  1. Во-первых, он изменяет ссылку на переменную на следующий элемент коллекции. В этом примере переменная ws изменяется для ссылки на следующий лист в рабочей книге.
  2. Во-вторых, он возвращается к выполнению строки кода непосредственно под строкой For Each. Затем он выполняет все строки кода между строками For Each и Next в порядке сверху вниз.

Когда будет достигнут последний элемент в коллекции (рабочий лист в рабочей книге), цикл останавливается, и макрос переходит к следующей строке кода ниже строки Next.

В каком порядке работает цикл For Each?

Цикл For Each Loop всегда начинается с первого элемента в коллекции и переходит к последнему элементу в том порядке, в котором они отображаются в Excel. Это основано на номере индекса предметов в коллекции. Вот несколько примеров порядка выполнения цикла для общих объектов.

  • Рабочие листы. Начинается с первой вкладки листа в рабочей книге и возвращается к последней в том порядке, в котором вкладки отображаются в рабочей книге.
  • Рабочие книги. Начинается с первой открытой книги и циклически повторяется в порядке открытия рабочих книг. Рабочим книгам присваивается порядковый номер по мере их открытия.
  • Клетки: циклы слева направо, затем вниз. Начинается с первой ячейки в диапазоне и возвращается к следующему столбцу в той же строке, затем переходит к следующей строке.
  • Таблицы и сводные таблицы. Начинается с первого объекта, созданного на листе, и циклически повторяется в порядке создания объектов. Этот же принцип действует и для других объектов, которые вы создаете на листах, таких как фигуры, диаграммы, слайсеры и т.д.

Предметы / объекты НЕ выбираются в цикле

Важно отметить, что когда мы перебираем коллекцию объектов, каждый объект НЕ выделяется в Excel.

Цикл создает ссылку на элемент/объект с помощью переменной. Переменная временно установлена на ссылку на объект. Объект НЕ выбран и НЕ обязательно становится активным объектом. Для выбора объекта мы можем использовать методы Select или Activate. Вы также должны убедиться, что объекты родительского объекта выбраны первыми. Ознакомьтесь с моей статьей об объектной модели Excel и иерархии объектов в VBA, чтобы узнать больше об этом.

The Next Loop: циклы через набор чисел

Также можно использовать цикл For Next Loop для просмотра набора чисел. Это может быть полезно, когда мы перебираем элементы управления пользовательской формы, массивы или если мы хотим перебрать коллекцию в обратном направлении.

Основная операция цикла For Next такая же, как и для цикла For Each. Разница заключается в формате строки For.

Шаг 1 — Объявление переменной для числа

Чтобы перебрать набор чисел, мы сначала должны объявить переменную для целого числа типа данных. Мы можем использовать Integer или Long integer.

Переменная называется счетчиком, потому что она увеличивается или уменьшается вверх/вниз для каждой итерации в цикле.

Дополнительное примечание к Long: тип данных Long (целое число) содержит большее число, чем Integer. Это занимает больше памяти, но для современного компьютера это не проблема. Мы можем использовать длинные переменные все время. Буква L выглядит как цифра 1 в VBA, поэтому я теперь использую i в качестве имени переменной, хотя я использую Long в качестве типа данных. Это все зависит от личных предпочтений, и вы можете назвать переменную как хотите.

Шаг 2 — Напишите строку For

Далее мы пишем строку For. Базовая конструкция — это ключевое слово For, за которым следует имя переменной (counter), затем знак равенства, начальное значение To end value.

Начальные и конечные значения могут быть указаны как числа, или мы можем использовать целочисленные / длинные переменные вместо них.

Эта строка кода возвращает количество листов в активной книге. Тем не менее, он не проходит по каждому листу. Цикл просто перебирает набор чисел. Мы должны создать ссылку на лист с переменной счетчика (i) в качестве номера индекса свойства Worksheets. Шаг 3 показывает эту ссылку.

Шаг 3 — Добавить код, который повторяется для каждой итерации

Остальная часть цикла работает так же, как цикл For Each. Мы можем добавить строки между строками For и Next, которые будут выполняться для каждой итерации цикла. Переменная counter может быть использована несколько раз в этих строках кода.

Шаг 4 — Строка Next закрывает цикл

Наконец, мы добавляем строку Next внизу.

Когда макрос запускается, он устанавливает переменную, равную первому числу в строке For. Когда макрос попадает в следующую строку, он добавляет 1 к значению переменной или увеличивает счет. Итак, я = 2 во второй итерации цикла. Он продолжает цикл, пока не будет достигнут последний номер в цикле.

По умолчанию 1 добавляется к счетчику переменных для каждой итерации в цикле. Это называется значением шага, и мы можем контролировать значение каждого шага в счетчике. Значение Step добавляется в конец строки For. Следующая строка добавит 2 к счетчику для каждой итерации в цикле.

Если вы хотите заштриховать все остальные строки на листе, вы можете использовать такой цикл.

Обратный цикл

Мы также можем использовать значение шага для обратной петли, указав отрицательное число.

Обратите внимание, что начальное значение теперь больше, а конечное значение меньше. Циклы начинаются с 100 (начальное значение) и вычитают 1 из переменной счетчика (шаг -1) для каждой итерации в цикле, пока не дойдут до 1 (конечное значение).

Ключевое слово Step не является обязательным. Если вы не укажете его, тогда VBA примет значение шага 1.

Цикл в обратном направлении — это хорошо, если вы удаляете элементы.

Я напишу отдельный пост об этом, но общая идея заключается в том, что когда мы перебираем коллекцию и удаляем элементы, размер коллекции уменьшается при удалении элементов. Цикл обычно выдает ошибку, как только достигает 10-го элемента, когда в коллекции теперь только 9 элементов. Цикл в обратном направлении предотвращает эту потенциальную ошибку.

Как остановить цикл раньше

Обычно цикл перебирает все элементы в коллекции, а затем переходит к следующей строке кода ниже следующей строки. Однако мы можем остановить цикл раньше с помощью оператора Exit For.

В следующем макросе оператор Exit For используется для выхода из цикла после того, как первый лист, начинающийся со слова «Отчет», будет найден скрытым.

Переменная ws сохраняет ссылку на рабочий лист после преждевременного выхода из цикла и может быть снова использована в коде под циклом.

Переменная не требуется после ключевого слова Next

Возможно, вы заметили, что я добавил переменную после ключевого слова Next в нижней части цикла в приведенных выше примерах.

Это НЕ обязательно, и вы можете не увидеть его в других примерах, которые вы найдете в Интернете. Однако мне нравится включать переменную после Next по двум причинам.

  1. Мы можем использовать его при отладке кода, чтобы увидеть значение переменной, наведя указатель мыши на переменную, когда код остановлен.
  2. Это облегчает понимание того, к какой строке For подключена следующая строка. Это особенно верно, когда у вас есть несколько циклов или вложенных циклов в ваших макросах.

Поэтому я рекомендую добавить переменную после ключевого слова Next в качестве лучшей практики. Немного дополнительной работы заранее сэкономит время и головную боль в будущем. Доверьтесь мне!

Примеры макросов VBA для циклов

Вот дополнительные статьи с макросами, в которых используется хотя бы один цикл For Next Loop.

Макрос метрики SUBTOTAL — создание сводной таблицы всех типов функций

Как добавить оглавление Галерея изображений в файлы Excel

Скрыть и отобразить (отфильтровать) столбцы с помощью слайсера или раскрывающегося меню фильтра

Как изменить размер панелей Excel для разных размеров экрана

Макрос VBA, чтобы скрыть все столбцы, которые содержат значение в ячейке

Как повторять задачи с помощью кода VBA — Looping — Отличная статья с большим количеством примеров от моего друга Криса Ньюмана из The Spreadsheet Guru.

Какую задачу хотите зациклить вы?

Я надеюсь, что эта статья поможет вам начать работу с циклами. Не забудьте скачать бесплатный файл Excel, содержащий примеры кода.

For Next Loop VBA Macro Examples.xlsm (79.0 KB)

Циклы, безусловно, являются промежуточной техникой кодирования, которая вынуждает нас выйти за рамки MacroRecorder. К сожалению, записанный макрос не может создавать петли. Тем не менее, это навык, который вы сможете использовать снова и снова на протяжении всей своей карьеры для автоматизации простых и сложных задач. Понимание того, как использовать циклы, даст вам волшебную силу с Excel.

Пожалуйста, оставьте комментарий ниже с задачей, которую вы хотите автоматизировать с помощью цикла. Спасибо!

Источник

Источник

На чтение 13 мин. Просмотров 26.4k.

VBA While Loop

Рамакришна, Источники индийской мудрости

Сейчас … мы идем по кругу

Эта статья содержит полное руководство по VBA Do While и VBA While Loops. (Если вы ищете информацию о циклах VBA For и For Each, перейдите сюда)

Цикл VBA While существует, чтобы сделать его совместимым со старым кодом. Однако Microsoft рекомендует использовать цикл Do Loop, поскольку он более «структурирован и гибок». Оба этих цикла рассматриваются в этом посте.

Для быстрого ознакомления с этими циклами перейдите к таблице быстрого руководства ниже.

Если вы ищете что-то конкретное, вы можете посмотреть содержание ниже.

Содержание

  1. Краткое руководство по VBA While Loops
  2. Введение
  3. Цикл For против цикла Do While
  4. Условия
  5. Формат цикла Do
  6. Цикл Exit Do
  7. While Wend
  8. Бесконечный цикл
  9. Использование функций Worksheet вместо циклов
  10. Резюме

Краткое руководство по VBA While Loops

Формат цикла Описание Пример
Do While … Loop Запускается 0 или более раз, пока условие выполняется Do While result = «Верно»
Loop
Do … Loop While Запускается 1 или более раз, пока условие выполняется Do 
Loop While result = «Верно»
Do Until … Loop Запускается 0 или более раз, пока условие не будет выполнено Do Until result <> «Верно»
Loop
Do … Until Loop Запускается 1 или более раз, пока условие не будет выполнено Do 
Loop Until result <> «Верно»
While … Wend
R 		Запускается 0 или более раз, пока условие истинно.
Примечание: этот цикл считается устаревшим.		 While result = «Верно»
Wend
Exit the Do Loop Завершает Do Do While i < 10
   i = GetTotal
   If i < 0 Then
      Exit Do
   End If
Loop

Введение

Если вы никогда ранее не использовали циклы, тогда вы можете прочитать «Что такое циклы и зачем они вам нужны» из моего поста в журнале For Loop.

Я собираюсь сосредоточиться в основном на Do Loop в этой статье. Как я упоминал выше, мы видели, что цикл While Wend считается устаревшим. Для полноты информации я все равно его включил в эту статью.

Итак, во-первых, зачем нам нужны циклы Do While, когда у нас уже есть циклы For?

Цикл For против цикла Do While

Когда мы используем цикл For Loop, мы заранее знаем, сколько раз мы хотим его запустить. Например, мы можем захотеть запустить цикл один раз для каждого элемента в коллекции, массиве или словаре.

В следующем примере кода мы видим в начале каждого цикла, сколько раз он будет выполняться.

' запускается 5 раз
For i = 1 To 5

' запускается один раз для каждого элемента коллекции
For i = 1 To coll.Count

' запускается один раз для каждого элемента в arr
For i = LBound(arr) To coll.lbound(arr)

' запускается один раз для каждого значения от 1 до значения в lastRow
For i = 1 To lastRow

' запускается один раз для каждого элемента в коллекции
For Each s In coll

Цикл Do другой. Он работает:

  • В то время как условие верно
  • Пока условие не будет выполнено

Другими словами, количество циклов в большинстве случаев не имеет значения.

Итак, что такое условие и как мы их используем?

Условия

Условие — это утверждение, которое оценивается как истинное или ложное. Они в основном используются с операторами Loops и If. При создании условия вы используете такие знаки, как >, <, <>,> =, =.

Ниже приведены примеры условий

Условие Истина, когда…
x < 5 x меньше 5
x <= 5 x меньше либо равен 5
x > 5 x больше 5
x >= 5 x больше либо равен 5
x = 5 x равен 5
x <> 5 x не равен 5
x > 5 And x < 10 x больше 5 И меньше 10
x = 2 Or x >10 x равен 2 ИЛИ больше 10
Range(«A1») = «Иван» Ячейка A1 содержит текст «Иван»
Range(«A1») <> «Иван» Ячейка A1 не содержит текст «Иван»

Вы могли заметить x = 5 как условие. Его следует путать с х = 5, при использовании в качестве назначения.

Например

' означает: значение 6 будет храниться в х
x = 6

' означает: х равен 6?
If x = 6

' означает: х равен 6?
Do While x = 6

В следующей таблице показано, как «=» используется в условиях и назначениях.

Использование «=» Тип Имеется в виду
Loop Until x = 5 Условие x равен 5?
Do While x = 5 Условие x равен 5?
If x = 5 Then Условие x равен 5?
For x = 1 To 5 Присваивание Установите значение x = 1, затем = 2 и т.д.
x = 5 Присваивание Установите значение x=5
b = 6 = 5 Присваивание и
условие		 Присвойте b
результату условия
6 = 5
x = MyFunc(5,6) Присваивание Присвойте х
значение,
возвращаемое
функцией

Формат цикла Do

Цикл Do можно использовать четырьмя способами, и это часто вызывает путаницу. Однако в каждом из этих четырех способов есть только небольшая разница.

Do всегда в начале первой строки, а Loop всегда в конце последней строки.

Мы можем добавить условие после любой строки.

Do [условие]
Loop

Do 
Loop [условие]

Условию предшествует While или Until, которое дает нам эти четыре возможности

Do While [условие]
Loop

Do Until [условие]
Loop

Do 
Loop While [условие]

Do 
Loop Until [условие]

Давайте посмотрим на некоторые примеры, чтобы прояснить это.

Примеры цикла Do

Представьте, что вы хотите, чтобы пользователь ввел список элементов. Каждый раз, когда пользователь вводит элемент, вы печатаете его в «Immediate Window». Когда пользователь вводит пустую строку, вы хотите, чтобы приложение закрывалось.

В этом случае цикл For не подойдет, поскольку вы не знаете, сколько элементов будет вводить пользователь. Пользователь может ввести пустую строку первым или с сотой попытки. Для этого типа сценария вы бы использовали цикл Do.

Следующий код показывает это

 Dim sCommand As String

    Do
        ' Получить пользовательский ввод
        sCommand = InputBox("Пожалуйста, введите элемент")

        ' Печать в Immediate Window (Ctrl + G для просмотра)
        Debug.Print sCommand

    Loop While sCommand <> ""

Код входит в цикл и продолжается до тех пор, пока не достигнет строки «Loop While». На этом этапе он проверяет, оценивается ли условие как истинное или ложное.

Если условие оценивается как ложное, то код выходит из цикла и продолжается.
Если условие оценивается как истинное, то код возвращается к строке Do и снова проходит через цикл.
Разница между наличием условия на линии Do и на линии Loop очень проста.

Когда условие находится в строке Do, цикл может вообще не работать. Так что он будет работать ноль или более раз.
Когда условие находится на линии Loop, цикл всегда будет запущен хотя бы один раз. Так что он будет запущен один или несколько раз.

В нашем последнем примере условие находится в строке Loop, потому что мы всегда хотим получить хотя бы одно значение от пользователя. В следующем примере мы используем обе версии цикла. Цикл будет выполняться, пока пользователь не введет букву «н».

Sub GetInput()

    Dim sCommand As String

    ' Условие в начале
    Do While sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    ' Условие в конце
    Do
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Loop While sCommand <> "н"

End Sub

В приведенном выше примере оба цикла будут вести себя одинаково.

Однако, если мы установим для sCommand значение «н» до запуска цикла «Do While», код не войдет в цикл.

Sub GetInput2()

    Dim sCommand As String
    sCommand = "н"

    ' Цикл не будет работать, поскольку команда "н"
    Do Whilel sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    ' Цикл все равно будет запущен хотя бы один раз
    Do
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Loop While sCommand <> "н"

End Sub

Второй цикл в вышеприведенном примере (то есть Loop While) всегда будет запускаться хотя бы один раз.

While против Until

При использовании Do Loop условию должно предшествовать Until или While.

Until и While, по сути, противоположны друг другу. Они используются в VBA аналогично тому, как они используются в английском языке.

Например:

  • Оставьте одежду, пока не пойдет дождь
  • Оставь одежду, пока не идет дождь

Другой пример:

  • Оставайся в постели, пока не станет светло
  • Оставайся в постели, пока темно

Еще один пример:

  • повторять, пока число не станет больше или равно десяти
  • повторить пока счет меньше десяти

Как видите, использование Until и While — это просто противоположный способ написания одного и того же условия.

Примеры Until и While

Следующий код показывает циклы «While» и «Until» рядом. Как видите, единственная разница в том, что условие полностью изменено.

Примечание: знаки <> означают «не равно».

Sub GetInput()

    Dim sCommand As String

    ' Условие в начале
    Do Until sCommand = "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    Do While sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    ' Условие в конце
    Do
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Loop Until sCommand = "н"

    Do
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Loop While sCommand <> "н"

End Sub
  • Первый цикл: запускается только в том случае, если sCommand не равен ‘н’.
  • Второй цикл: запускается только в том случае, если sCommand не равен ‘н’.
  • Третий цикл: будет запущен хотя бы один раз перед проверкой sCommand.
  • Четвертый цикл: будет запущен хотя бы один раз перед проверкой sCommand.

Пример: проверка объектов

Примером использования Until и While является проверка объектов. Когда объект не был назначен, он имеет значение Nothing.

Поэтому, когда мы объявляем переменную книги в следующем примере, она имеет значение Nothing, пока мы не назначим ее Workbook.

Противоположностью Nothing не является Nothing, что может сбить с толку.

Представьте, что у нас есть две функции: GetFirstWorkbook и GetNextWorkbook, которые возвращают некоторые объекты книги. Код будет печатать имя рабочей книги до тех пор, пока функции больше не вернут действительную рабочую книгу.

Вы можете увидеть пример кода здесь:

Dim wrk As Workbook
    Set wrk = GetFirstWorkbook()

    Do Until wrk Is Nothing
        Debug.Print wrk.Name
        Set wrk = GetNextWorkbook()
    Loop

Написание этого кода с использованием Do While было бы более запутанным, так как условие Not Is Nothing

Dim wrk As Workbook
    Set wrk = GetFirstWorkbook()

    Do While Not wrk Is Nothing
        Debug.Print wrk.Name
        Set wrk = GetNextWorkbook()
    Loop

Это делает код более понятным, и наличие четких условий — всегда хорошо. Честно говоря, разница маленькая, и выбор между «While» и «Until» действительно сводится к личному выбору.

Цикл Exit Do

Мы можем выйти из любого цикла Do с помощью оператора Exit Do.

Следующий код показывает пример использования Exit Do

Do While i < 1000
     If Cells(i,1) = "Найдено" Then 
         Exit Do
     End If
     i = i + 1
Loop

В этом случае мы выходим из цикла Do Loop, если ячейка содержит текст «Найдено».

While Wend

Этот цикл в VBA, чтобы сделать его совместимым со старым кодом. Microsoft рекомендует использовать циклы Do, поскольку они более структурированы.

Из MSDN: «Оператор Do… Loop обеспечивает более структурированный и гибкий способ выполнения циклов».

Формат цикла VBA While Wend

Цикл VBA While имеет следующий формат:

While <Условие>
Wend

While Wend против Do

Разница между циклами VBA While и VBA Do заключается в следующем:

  1. While может иметь условие только в начале цикла.
  2. While не имеет версии Until.
  3. Не существует оператора для выхода из цикла While, как Exit For или Exit Do.

Условие для цикла VBA While такое же, как и для цикла VBA Do While. Два цикла в приведенном ниже коде работают точно так же.

Sub GetInput()

    Dim sCommand As String

    Do While sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    While sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Wend

End Sub

Бесконечный цикл

Даже если вы никогда не писали код в своей жизни, я уверен, что вы слышали фразу «Бесконечный цикл». Это цикл, в котором условие никогда не будет выполнено. Обычно это происходит, когда вы забыли обновить счетчик.

Следующий код показывает бесконечный цикл

Dim cnt As Long
    cnt = 1

    'это бесконечный цикл
    Do While cnt <> 5

    Loop

В этом примере cnt установлен в 1, но он никогда не обновляется. Поэтому условие никогда не будет выполнено — cnt всегда будет меньше 5.

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

Dim cnt As Long
    cnt = 1

    Do While cnt <> 5
        cnt = cnt + 1
    Loop

Как вы можете видеть, использование For Loop безопаснее для подсчета, поскольку оно автоматически обновляет счет в цикле. Ниже приведен тот же цикл с использованием For.

Dim i As Long
    For i = 1 To 4

    Next i

Это явно лучший способ сделать это. Цикл For устанавливает начальное значение, условие и счет в одну строку.

Конечно, можно использовать бесконечный цикл, используя For — это потребует немного больше усилий 🙂

 Dim i As Long
    ' Бесконечный цикл
    For i = 1 To 4
        ' i никогда не достигнет 4
        i = 1
    Next i

Работа с бесконечным циклом

Когда у вас бесконечный цикл — VBA не выдаст ошибку. Ваш код будет продолжать работать, а редактор Visual Basic не будет отвечать.

Раньше вы могли выйти из цикла, просто нажав Ctrl и Break. В настоящее время разные ноутбуки используют разные комбинации клавиш. Полезно знать, как это настроено в вашем ноутбуке, чтобы в случае возникновения бесконечного цикла вы могли легко остановить код.

Вы также можете выйти из цикла, убив процесс. Нажмите Ctrl + Shift + Esc. На вкладке Процессы найдите Excel / Microsoft Excel. Щелкните правой кнопкой мыши по этому и выберите «Завершить процесс». Это закроет Excel, и вы можете потерять часть работы — так что гораздо лучше использовать Ctrl + Break или его эквивалент.

Использование функций Worksheet вместо циклов

Иногда вы можете использовать функцию листа вместо цикла.

Например, представьте, что вы хотите добавить значения в список ячеек. Вы можете сделать это с помощью цикла, но было бы более эффективно использовать функцию таблицы Sum. Это быстрее и экономит много кода.

Использовать функции рабочего листа очень просто. Ниже приведен пример использования Sum и Count.

Sub WorksheetFunctions()

    Debug.Print WorksheetFunction.Sum(Range("A1:A10"))

    Debug.Print WorksheetFunction.Count(Range("A1:A10"))

End Sub

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

Sub SumWithLoop()

    Dim total As Long, count As Long
    Dim rg As Range
    For Each rg In Range("A1:A10")
        ' Total
        total = total + rg
        ' Count
        If rg <> "" Then
            count = count + 1
        End If
    Next rg

    Debug.Print total
    Debug.Print count

End Sub

Резюме

Цикл Do While

  • Цикл Do можно использовать 4 способами.
  • Его можно использовать в начале или в конце, Do While .. Loop, Do … Loop While
  • Может использоваться с Until в начале или в конце, Do Until .. Loop, Do … Loop Until
  • While и Until используют противоположные условия друг к другу.
  • Бесконечный цикл происходит, если ваше условие выхода никогда не будет выполнено.
  • Иногда использование функции рабочего листа более эффективно, чем использование цикла.

Цикл While Wend

  • Цикл Wend Wend устарел, и вы можете вместо этого использовать цикл Do.
Источник

Оглавление:

  • 1 Как сделать цикл с помощью формул в excel? — Разбираем подробно
  • 2 Использование циклических ссылок
    • 2.1 Создание циклической ссылки
    • 2.2 Поиск циклических ссылок
    • 2.3 Исправление циклических ссылок
    • 2.4 Разрешение выполнения цикличных операций
    • 2.5 Помогла ли вам эта статья?
  • 3 Использование надстройки
    • 3.1 Помогла ли вам эта статья?
  • 4 Num2Text
    • 4.1 Создание простой формулы
    • 4.2 Сумма ячеек
  • 5 Sumprop
    • 5.1 Работа с формулами
      • 5.1.1 СуммаПрописью
      • 5.1.2 СуммаПрописьюГривны
      • 5.1.3 СуммаПрописьюДоллары
      • 5.1.4 СуммаПрописьюЕвро
      • 5.1.5 ЧислоПрописью
  • 6 Платные модули
  • 7 Заключение
  • 8 Видеоинструкция
  • 9       Создание сумм прописью с помощью формул
  • 10 С помощью пользовательской функции
  • 11 С помощью VBA

Пару недель назад передо мной встала проблема разработки электронной таблицы, просчитывающую диапазоны рабочего времени в зависимости от рабочего графика и производственного календаря. С первого взгляда задача нетрудная, но в ходе проектирования я понял, что избежать использования циклов не удастся. Особую специфику здесь придавало условие заказчика, что готовый продукт должен быть именно

Excel

таблицей БЕЗ макросов и дополнительных модулей (функций пользователя).

Стандартный набор функций Excel не поддерживает ничего похожего на циклы, однако выход нашелся – использование циклических ссылок и итераций.

Первый шаг, чтобы начать работать с циклическими ссылками – это разрешить итеративные вычисления в Excel. В версии Microsoft Office XP это делается в разделе меню «Сервис – Параметры»:

Как сделать цикл с помощью формул в excel?

В открывшемся окне активируем соответствующий флажок:

Как сделать цикл с помощью формул в excel?

Так же обратите внимание на поле «Предельное число итераций» — оно определяет, сколько раз будет проходить вычисление по всем циклическим ссылкам, если вы сами не поставите ограничение.

!Информация: В Excel 2007 включение итеративных вычислений производится в пункте меню «Файл – Параметры Excel» в разделе «Формулы».

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

Впишите в ячейку А1 формулу:

Если значение предельного числа итераций равно 100, то результатом вычислений в ячейке А1 будет равно 100. Теперь изменим формулу:

Как сделать цикл с помощью формул в excel?

Как видите число итераций мы ограничили числом в ячейке А2, а именно 10. Чтобы проиллюстрировать, как происходят итерации, добавим формулу в ячейку B2:

Как сделать цикл с помощью формул в excel?

Как видите, каждый этап итерации (новое значение А1) добавляется к ячейке B1 до тех пор пока происходят итерации.

!Замечание: Возможно, результат в B2 будет не таким – для того, чтобы исправить это сделайте следующее: после ввода формулы в ячейку B1 перейдите в ячейку A1, установите курсор в поле редактирования формулы и нажмите Enter – произойдет пересчет итераций. Для корректной работы итераций необходимо задать ряд дополнительных условий, ограничивающих их количество и задающее условие сброса текущего значения поля в исходное значение. Пересчет всех ячеек с циклическими ссылками происходит каждый раз при изменении ячеек, от которых они зависят.

!Дополнительные ссылки:

Как сделать цикл с помощью формул в excel?

Принято считать, что циклические ссылки в Экселе представляют собой ошибочное выражение. Действительно, довольно часто это именно так, но все-таки не всегда. Иногда они применяются вполне осознанно. Давайте выясним, чем же являются циклические ссылки, как их создавать, как отыскать уже существующие в документе, как работать с ними или как при необходимости удалить.

Использование циклических ссылок

Прежде всего, выясним, что же представляет собой циклическая ссылка. По сути, это выражение, которое посредством формул в других ячейках ссылается само на себя. Так же ею может являться ссылка, расположенная в элементе листа, на который она сама ссылается.

Нужно отметить, что по умолчанию современные версии Excel автоматически блокируют процесс выполнения цикличной операции. Это связано с тем, что такие выражения в подавляющем большинстве ошибочные, а зацикливание производит постоянный процесс пересчета и вычисления, что создает дополнительную нагрузку на систему.

Создание циклической ссылки

Теперь посмотрим, как создать простейшее цикличное выражение. Это будет ссылка, расположенная в той же ячейке, на которую она ссылается.

  1. Выделяем элемент листа A1 и записываем в нем следующее выражение:

    =A1

    Далее жмем на кнопку Enter на клавиатуре.

  2. После этого появляется диалоговое окно предупреждения о циклическом выражении. Щелкаем в нем по кнопке «OK».
  3. Таким образом, мы получили цикличную операцию на листе, в которой ячейка ссылается сама на себя.

Как сделать цикл с помощью формул в excel?

Немного усложним задачу и создадим циклическое выражение из нескольких ячеек.

  1. В любой элемент листа записываем число. Пусть это будет ячейка A1, а число 5.
  2. В другую ячейку (B1) записываем выражение:

    =C1

  3. В следующий элемент (C1) производим запись такой формулы:

    =A1

  4. После этого возвращаемся в ячейку A1, в которой установлено число 5. Ссылаемся в ней на элемент B1:

    =B1

    Жмем на кнопку Enter.

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

Как сделать цикл с помощью формул в excel?

Теперь перейдем к созданию циклического выражения на примере таблицы. У нас имеется таблица реализации продуктов питания. Она состоит из четырех колонок, в которых указано наименование товара, количество проданной продукции, цена и сумма выручки от продажи всего объема. В таблице в последнем столбце уже имеются формулы. В них производится расчет выручки путем умножения количества на цену.

Как сделать цикл с помощью формул в excel?

  1. Чтобы зациклить формулу в первой строчке, выделяем элемент листа с количеством первого по счету товара (B2). Вместо статического значения (6) вписываем туда формулу, которая будет считать количество товара путем деления общей суммы (D2) на цену (C2):

    =D2/C2

    Щелкаем по кнопке Enter.

  2. У нас получилась первая циклическая ссылка, взаимосвязь в которой привычно обозначена стрелкой трассировки. Но как видим, результат ошибочен и равен нулю, так как уже было сказано раньше, Excel блокирует выполнения цикличных операций.
  3. Скопируем выражение во все остальные ячейки столбца с количеством продукции. Для этого устанавливаем курсор в нижний правый угол того элемента, который уже содержит формулу. Курсор преобразуется в крестик, который принято называть маркером заполнения. Зажимаем левую кнопку мыши и тянем этот крестик до конца таблицы вниз.
  4. Как видим, выражение было скопировано во все элементы столбца. Но, помечена стрелкой трассировки только одна взаимосвязь. Заметим это на будущее.

Как сделать цикл с помощью формул в excel?

Поиск циклических ссылок

Как мы уже видели выше, не во всех случаях программа помечает взаимосвязь циклической ссылки с объектами, даже если она имеется на листе. Учитывая тот факт, что в подавляющем большинстве цикличные операции вредны, их следует удалить. Но для этого их нужно сначала отыскать. Как же это сделать, если выражения не помечены линией со стрелками? Давайте разберемся с этой задачей.

  1. Итак, если при запуске файла Excel у вас открывается информационное окно о том, что он содержит циклическую ссылку, то её желательно отыскать. Для этого перемещаемся во вкладку «Формулы». Жмем на ленте на треугольник, который размещен справа от кнопки «Проверка наличия ошибок», расположенной в блоке инструментов «Зависимости формул». Открывается меню, в котором следует навести курсор на пункт «Циклические ссылки». После этого в следующем меню открывается список адресов элементов листа, в которых программа обнаружила цикличные выражения.
  2. При клике на конкретный адрес происходит выделение соответствующей ячейки на листе.

Как сделать цикл с помощью формул в excel?

Существует ещё один способ узнать, где располагается циклическая ссылка. Сообщение о данной проблеме и адрес элемента, содержащего подобное выражение, располагается в левой части строки состояния, которая находится внизу окна Excel. Правда, в отличие от предыдущего варианта, на строке состояния отображаться будут адреса не всех элементов, содержащих циклические ссылки, если их много, а только одного из них, который появился раньше других.

К тому же, если вы находитесь в книге, содержащей цикличное выражение, не на том листе, где оно расположено, а на другом, то в этом случае в строке состояния будет отображаться только сообщение о наличие ошибки без адреса.

Урок: Как найти циклические ссылки в Excel

Исправление циклических ссылок

Как уже говорилось выше, в подавляющем большинстве случаев цикличные операции – это зло, от которого следует избавляться. Поэтому, закономерно, что после того, как цикличная связь обнаружена, нужно её исправить, чтобы привести формулу к нормальному виду.

Для того, чтобы исправить цикличную зависимость, нужно проследить всю взаимосвязь ячеек. Даже если проверка указала конкретную ячейку, то ошибка может крыться не в ней самой, а в другом элементе цепочки зависимости.

  1. В нашем случае, несмотря на то, что программа верно указала на одну из ячеек цикла (D6), реальная ошибка кроется в другой ячейке. Выделяем элемент D6, чтобы узнать, из каких ячеек он подтягивает значение. Смотрим на выражение в строке формул. Как видим, значение в этом элементе листа формируется путем умножения содержимого ячеек B6 и C6.
  2. Переходим к ячейке C6. Выделяем её и смотрим на строку формул. Как видим, это обычное статическое значение (1000), которое не является продуктом вычисления формулы. Поэтому можно с уверенностью сказать, что указанный элемент не содержит ошибки, вызывающей создание циклических операций.
  3. Переходим к следующей ячейке (B6). После выделения в строке формул мы видим, что она содержит вычисляемое выражение (=D6/C6), которое подтягивает данные из других элементов таблицы, в частности, из ячейки D6. Таким образом, ячейка D6 ссылается на данные элемента B6 и наоборот, что вызывает зацикленность.

    Тут взаимосвязь мы вычислили довольно быстро, но в реальности бывают случаи, когда в процессе вычисления участвует множество ячеек, а не три элемента, как у нас. Тогда поиск может занять довольно много времени, ведь придется изучить каждый элемент цикличности.

  4. Теперь нам нужно понять, в какой именно ячейке (B6 или D6) содержится ошибка. Хотя, формально это даже не ошибка, а просто избыточное использование ссылок, которое приводит к зацикливанию. Во время процесса решения того, какую ячейку следует отредактировать, нужно применять логику. Тут нет четкого алгоритма действий. В каждом конкретном случае эта логика будет своя.

    Например, если в нашей таблице общая сумма должна вычисляться путем умножения количества фактически проданного товара на его цену, то можно сказать, что ссылка, рассчитывающая количество от общей суммы продажи, тут явно лишняя. Поэтому мы её удаляем и заменяем на статическое значение.

  5. Подобную операцию проводим и над всеми другими цикличными выражениями, если они имеются на листе. После того, как абсолютно все циклические ссылки были удалены из книги, сообщение о наличие данной проблемы должно исчезнуть из строки состояния.

    Кроме того, полностью ли были удалены цикличные выражения, можно узнать, воспользовавшись инструментом проверки наличия ошибок. Переходим во вкладку «Формулы» и жмем уже знакомый нам треугольник справа от кнопки «Проверка наличия ошибок» в группе инструментов «Зависимости формул». Если в запустившемся меню пункт «Циклические ссылки» не будет активен, то, значит, мы удалили все подобные объекты из документа. В обратном случае, нужно будет применить процедуру удаления к элементам, которые находятся в списке, тем же рассматриваемым ранее способом.

Разрешение выполнения цикличных операций

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

  1. Прежде всего, перемещаемся во вкладку «Файл» приложения Excel.
  2. Далее щелкаем по пункту «Параметры», расположенному в левой части открывшегося окна.
  3. Происходит запуск окна параметров Эксель. Нам нужно перейти во вкладку «Формулы».
  4. Именно в открывшемся окне можно будет произвести разрешение выполнения цикличных операций. Переходим в правый блок этого окна, где находятся непосредственно сами настройки Excel. Мы будем работать с блоком настроек «Параметры вычислений», который расположен в самом верху.

    Чтобы разрешить применение цикличных выражений, нужно установить галочку около параметра «Включить итеративные вычисления». Кроме того, в этом же блоке можно настроить предельное число итераций и относительную погрешность. По умолчанию их значения равны 100 и 0,001 соответственно. В большинстве случаев данные параметры изменять не нужно, хотя при необходимости или при желании можно внести изменения в указанные поля. Но тут нужно учесть, что слишком большое количество итераций может привести к серьезной нагрузке на программу и систему в целом, особенно если вы работаете с файлом, в котором размещено много цикличных выражений.

    Итак, устанавливаем галочку около параметра «Включить итеративные вычисления», а затем, чтобы новые настройки вступили в силу, жмем на кнопку «OK», размещенную в нижней части окна параметров Excel.

  5. После этого мы автоматически переходим на лист текущей книги. Как видим, в ячейках, в которых располагаются цикличные формулы, теперь значения рассчитываются корректно. Программа не блокирует вычисления в них.

Но все-таки стоит заметить, что включением цикличных операций злоупотреблять не стоит. Применять данную возможность следует только тогда, когда пользователь полностью уверен в её необходимости. Необоснованное включение цикличных операций может не только привести к избыточной нагрузке на систему и замедлить вычисления при работе с документом, но пользователь может неумышленно внести ошибочное цикличное выражение, которое по умолчанию тут же было бы заблокировано программой.

Как мы видим, в подавляющем большинстве случаев, циклические ссылки представляют собой явление, с которым нужно бороться. Для этого, прежде всего, следует обнаружить саму цикличную взаимосвязь, затем вычислить ячейку, где содержится ошибка, и, наконец, устранить её, внеся соответствующие коррективы. Но в отдельных случаях цикличные операции могут быть полезны при вычислениях и производиться пользователем осознанно. Но даже тогда стоит к их использованию подходить с осторожностью, правильно настроив Excel и зная меру в добавлении подобных ссылок, которые при использовании в массовом количестве способны замедлить работу системы.

Мы рады, что смогли помочь Вам в решении проблемы.

Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.

Помогла ли вам эта статья?

Да Нет

При заполнении различных финансовых документов часто требуется прописать сумму не только числом, но и прописью. Конечно, это занимает гораздо больше времени, чем обычное написание с помощью цифр. Если подобным образом нужно заполнить не одно, а много документов, то временные потери становятся огромными. Кроме того, именно в записи суммы прописью наиболее часто встречаются грамматические ошибки. Давайте выясним, как сделать так, чтобы числа прописью вносились автоматически.

Как сделать цикл с помощью формул в excel?

Как сделать цикл с помощью формул в excel?

Как сделать цикл с помощью формул в excel?

Использование надстройки

В Эксель нет встроенного инструмента, который бы помогал автоматически переводить цифры в слова. Поэтому для решения поставленной задачи используют специальные надстройки.

Одной из самых удобных является надстройка NUM2TEXT. Она позволяет поменять цифры на буквы через Мастер функций.

  1. Открываем программу Excel и переходим во вкладку «Файл».
  2. Перемещаемся в раздел «Параметры».
  3. В активном окне параметров переходим в раздел «Надстройки».
  4. Далее, в параметре настроек «Управление» устанавливаем значение «Надстройки Excel». Жмем на кнопку «Перейти…».
  5. Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».
  6. В открывшемся окне ищем предварительно скачанный и сохраненный на жесткий диск компьютера файл надстройки NUM2TEXT.xla. Выделяем его и жмем на кнопку «OK».
  7. Мы видим, что данный элемент появился среди доступных надстроек. Ставим галочку около пункта NUM2TEXT и жмем на кнопку «OK».
  8. Для того, чтобы проверить как работает только что установленная надстройка пишем в любой свободной ячейке листа произвольное число. Выделяем любую другую ячейку. Кликаем по значку «Вставить функцию». Он расположен слева от строки формул.
  9. Запускается Мастер функций. В полном алфавитном перечне функций ищем запись «Сумма_прописью». Её раньше не было, но она появилась тут после установки надстройки. Выделяем эту функцию. Жмем на кнопку «OK».
  10. Отрывается окно аргументов функции Сумма_прописью. Оно содержит только одно поле «Сумма». Сюда можно записать обычное число. Оно в выделенной ячейке отобразиться в формате записанной прописью денежной суммы в рублях и копейках.
  11. После этого, любое число, которое записано в ячейку, указанную вами, будет отображаться в денежном виде прописью в том месте, где установлена формула функции.

Функцию можно также записать и вручную без вызова мастера функций. Она имеет синтаксис Сумма_прописью(сумма) или Сумма_прописью(координаты_ячейки). Таким образом, если вы в ячейке запишите формулу =Сумма_прописью(5) , то после нажатия кнопки ENTER в этой ячейке отобразиться надпись «Пять рублей 00 копеек».

Если вы введете в ячейку формулу =Сумма_прописью(A2) , то в таком случае, любое число, внесенное в ячейку A2 будет отображаться тут денежной суммой прописью.

Как видим, несмотря на то, что в Excel нет встроенного инструмента для преобразования чисел в сумму прописью, эту возможность можно довольно легко получить, просто установив необходимую надстройку в программу.

Мы рады, что смогли помочь Вам в решении проблемы.

Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.

Помогла ли вам эта статья?

Да Нет

Как правило, в финансовых документах довольно часто указывают сумму не только в виде числа, но и прописью. Вручную это делать сложно и долго. Гораздо проще автоматически преобразовать все значения при помощи функций. В данной статье мы рассмотрим, как в Excel сделать сумму прописью.

Для начала нужно открыть Эксель и написать какое-нибудь число.

Для того чтобы его перевести в текстовый вид, нужно скачать дополнительный макрос, написанный на vba. Данная функция по умолчанию в редакторе отсутствует.

Num2Text

Прежде чем приступить к дальнейшим действиям, вам необходимо скачать данную надстройку. Официального сайта в этом случае нет. Таких модулей в интернете довольно много.

Будьте внимательны. Скачивайте только те файлы, у которых расширение xla, а не exe, поскольку во втором случае там могут быть вирусы.

После этого нужно сделать следующее:

  1. Зайдите в пункт меню «Файл».
  1. В появившемся окне перейдите в раздел «Параметры».
  1. Затем нажимаем на пункт «Надстройки».
  1. Кликните на кнопку «Перейти» (предварительно убедитесь, что рядом выбран пункт «Надстройки Excel»).
  1. После этого у вас появится окно, в котором можно вставить дополнительные файлы, чтобы редактор «узнал» новые функции. Нажмите на кнопку «Обзор».
  1. После этого укажите заранее скаченный файл и кликните «Открыть».
  1. Затем нужно поставить галочку около нового пункта и нажать на «ОК».

На этом этап подготовки завершен. Теперь Excel сможет делать перевод цифр в текстовый вид.

Создание простой формулы

Для того чтобы увидеть возможности новых функций, нужно сделать следующее:

  1. Перейдите на любую соседнюю ячейку. Кликните на иконку «Fx».
  1. В появившемся окне в разделе категории выберите пункт «Полный алфавитный перечень».
  1. Найдите там функцию «Сумма_прописью». Выберите её и нажмите на «OK».
  1. После этого появится окно, в котором нужно указать аргументы функции. Следует указать ячейку, значение которой должно писаться прописью. Для этого достаточно кликнуть на неё.
  1. Сразу после этого адрес ячейки подставится автоматически. Для продолжения кликните «OK».
  1. В результате этого вы увидите вашу сумму прописью. Вплоть до копеек. Благодаря этому можно переводить даже дробные числа.
  1. Попробуйте изменить ваше значение на любое другое. Сумма прописью изменится мгновенно.

Сумма ячеек

В финансовых отчетах необходимо считать сумму различных ячеек или столбцов. В этом случае формула немного усложняется. Рассмотрим, как это сделать.

  1. Проставьте цифры в 4 ячейки подряд.
  1. Кликните на ячейку, в которой вы работали до этого. Скопируйте формулу при помощи сочетания клавиш Ctrl+C.
  1. После этого перейдите в другую ячейку, чтобы создать новую формулу. Активируйте строку ввода уравнений.
  1. Нажмите на клавиатуре на кнопки Ctrl+V.
  1. Удаляем аргумент функции, то есть «C4» в нашем случае. Вместо этого в скобке пишем обычную формулу суммы, которая будет считать диапазон наших ячеек.

=Сумма_прописью(СУММ(A4:D4))

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

У данного модуля есть большой минус – вы сможете работать только с российкими рублями. То есть, не получится сделать сумму прописью для узбекских сумов, украинских гривен, казахских тенге, американских долларов, белорусских рублей, английских фунтов и так далее. Язык поменять не выйдет. Для таких случаев существует альтернативный метод.

Sumprop

Установка данного модуля происходит точно так же, как в описанном выше способе, только на этот раз выбираем другой файл.

Ставим галочку возле новой надстройки и нажимаем на кнопку «OK».

После этого в вашем редакторе появится еще несколько новых функций. Рассмотрим их всех.

Работа с формулами

Для этого нужно сделать следующие действия.

  1. Первым делом создадим наглядную таблицу. В одном столбце у нас будут цифры, во втором – результат. Для демонстрации возможностей будем использовать дробные числа.
  1. Переходим первую пустую ячейку и нажимаем на кнопку «Fx».

В появившемся окне выберите категорию «Определенные пользователем». Новые функции будут именно там.

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

СуммаПрописью

  1. Выберите соответствующий пункт и нажмите на кнопку «OK».

Справка нам подсказывает, что эта функция для рублей.

  1. В появившемся окне нужно вставить аргумент. Для этого достаточно кликнуть на ячейку с числом.
  1. Благодаря этому адрес подставится автоматически. Для продолжения нажмите на кнопку «OK».
  1. В результате этого вы увидите следующее.

СуммаПрописьюГривны

  1. Выделяем следующую строчку и кликаем на иконку вставки функции.
  1. На этот раз выбираем вторую функцию. Для вставки нажимаем на кнопку «OK».
  1. Затем кликаем на следующее число.
  2. После автоматической подстановки нажмите на кнопку «OK».
  1. Результат будет следующим.

СуммаПрописьюДоллары

  1. Переходим на третью строчку и кликаем на иконку «Fx».
  1. Выбираем «долларовую» функцию и нажимаем на «OK».
  1. Указываем соответствующий аргумент.
  1. Кликаем на «OK».
  1. Благодаря этому целое число отображается в долларах, а дробное – в центах.

СуммаПрописьюЕвро

  1. Переходим на четвертую строчку и вызываем окно вставки уравнения.
  1. Указываем функцию для «Евро».
  1. Кликаем на соответствующий аргумент.
  1. Нажимаем на кнопку «OK».
  1. Результат будет следующим.

Обратите внимание на то, что количество центов (копеек) выводится всегда. Даже если их 0.

ЧислоПрописью

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

  1. Перейдите на последнюю строчку и нажмите на иконку «Fx».
  1. Выберите последнюю функцию.
  1. В качестве аргумента укажите последнее оставшееся число.
  1. Для вставки нажмите на кнопку «OK».

В результате проделанных действий, мы увидим следующую таблицу.

Обратите внимание на то, что во всех ячейках сумма прописью указывается с большой буквы и только число – с маленькой.

Платные модули

Описанные выше надстройки были бесплатными. В интернете можно найти и более мощные инструменты, но за определенную плату.

На сайте PlanetaExcel продается надстройка PLEX.

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

На момент публикации статьи стоимость надстройки оценивается в 795 рублей.

Разумеется, они предоставляют возможность бесплатного тестирования, но количество запусков ограничено.

Заключение

Прочитав данную инструкцию, вы должны были понять, как настроить редактор Excel, чтобы можно был выводить сумму прописью. Если у вас что-то не получается, возможны следующие варианты:

  • вы скачали не тот файл;
  • вы не добавили эту надстройку в Эксель;
  • вы выделяете не те ячейки;
  • используете не те функции;
  • допускаете опечатку при подсчете суммы различных значений.

    • Видеоинструкция

    Если у вас остались какие-нибудь вопросы или вы так и не смогли найти причину своих проблем, рекомендуется посмотреть видеоролик, в котором приводятся дополнительные комментарии к описанным выше инструкциям.

           Добрый день уважаемый читатель!

         Статья посвящена такому интересному вопросу: «Как создается сумма прописью в Excel?». Эта возможность позволяет нам всю массу информации и расчетов, которые сведены в один результат, оформить как финансовой документ, которые нельзя трактовать двузначно. Недаром же любые банковские, юридические и финансовые документы оформляются и цифрами и буквами. Окромя всего, такие суммы не позволяют ошибаться, где же должна стоять запятая и просто отлично выглядят в сравнении с рядом цифр. Подведя итог, скажу, что любой пользователь Excel, который работает с цифрами и временем, а также печатает документы с их использованием, очень нуждается в инструменте создающим сумму прописью.

           Решить эту проблему можно несколькими способами:

    1. С помощью формул;
    2. С помощью пользовательской функции;
    3. С помощью VBA.

          Создание сумм прописью с помощью формул

         Это вполне осуществимый вариант, но очень громоздкий. Формула, которая может самостоятельно преобразовывать числа в буковки и правильно орфографически написать сумму прописью получится очень большой. В случае, когда вы захотите упростить формулу, вам нужно будет отдельный блок формул, который буде и заниматься всеми преобразованиями. Единственное преимущество от использования формулы, это когда вы разберетесь с ней, то самостоятельно сможете ее изменять: разрядность, валюту, склонение и т.п.

        Ради общего интереса я предоставлю вам пример файла с работающей формулой, которую я нашёл на excelworld.ru, поскольку самостоятельно формульным решением задачи я не занимался, но считаю нужным предоставить весь наработанный или собранный материал. Скачать пример можно по этой ссылке.

    С помощью пользовательской функции

          Как мой взгляд, это самое оптимальное и простое, относительно конечно, решение поставленного вопроса. Вы просто включаете функцию и пользуетесь ее с удовольствием.

         Для этого вам необходимо выполнить некоторые действия. Сначала скачиваете файл надстройки здесь. После, переносите его в папку AddIns, которую можно найти по пути C:Documents and SettingsUserApplication DataMicrosoftAddIns, только вы вместо «User» подставляете имя вашего пользователя Windows. Еще может возникнуть проблема в отображении папки «Application Data», она может быть скрыта, тогда вам в настройках «Свойства папки» нужно активировать пункт «Показать скрытые файлы и папки».       Теперь собственно и приступим к включении этой надстройки. В Excel выбираем «Файл» — «Параметры» — «Надстройки».       В диалоговом окне «Настройки» ставим галочку напротив включаемой надстройки «Сумма Прописью» и нажимаем «ОК».     Следующим шагом, ставим курсор на нужную ячейку и вызываем «Мастер функций». В разделе «Категория» выбираем пункт «Определенные пользователем» и теперь весть список встроенных функций по написанию сумм прописью нам доступен. Кстати как видите, доступен даже выбор функций в разрезе валют. Сразу замечу, что надстроек бывает много, есть и более расширенные, но эта меня полностью устраивает, вот я ее и описываю.       В результате мы получаем возможность получить следующие данные:

    С помощью VBA

         Вот еще один способ на любителя. Конечно создать сумму прописью в Excel с помощью макроса не самый распространённый способ, но им достаточно часто пользовались и пользуются до сих пор. Большой сложности он не представляет, вам нужно:

  • Комбинацией горячих клавиш ALT+F11 вызвать редактор Visual Basic;
  • С помощью меню «Insert» — «Module», создать пустой новый модуль;
  • Скопировать предоставленный код макроса в тело модуля.

    •       Получается готовая пользовательская функция VBA, которая умеет превращать любую сумму от 0 до 9 999 999 в ее текстовое воплощение, создается сумма прописью.

          Код нужного макроса выглядит так:

    Function СУММАПРОПИСЬЮ(n As Double) As String

       Dim Nums1, Nums2, Nums3, Nums4 As Variant

          Nums1 = Array(«», «один «, «два «, «три «, «четыре «, «пять «, «шесть «, «семь «, «восемь «, «девять «)

          Nums2 = Array(«», «десять «, «двадцать «, «тридцать «, «сорок «, «пятьдесят «, «шестьдесят «, «семьдесят «, _

                  «восемьдесят «, «девяносто «)

          Nums3 = Array(«», «сто «, «двести «, «триста «, «четыреста «, «пятьсот «, «шестьсот «, «семьсот «, _

                 «восемьсот «, «девятьсот «)

          Nums4 = Array(«», «одна «, «две «, «три «, «четыре «, «пять «, «шесть «, «семь «, «восемь «, «девять «)

          Nums5 = Array(«десять «, «одиннадцать «, «двенадцать «, «тринадцать «, «четырнадцать «,

                 «пятнадцать «, «шестнадцать «, «семнадцать «, «восемнадцать «, «девятнадцать «)

        If n <= 0 Then

            СУММАПРОПИСЬЮ = «ноль»

    Exit Function

    End If

     ‘разделяем число на разряды, используя вспомогательную функцию Class

       ed = Class(n, 1)

       dec = Class(n, 2)

       sot = Class(n, 3)

       tys = Class(n, 4)

       dectys = Class(n, 5)

       sottys = Class(n, 6)

       mil = Class(n, 7)

       decmil = Class(n, 8)

    ‘проверяем миллионы

    Select Case decmil

       Case 1

         mil_txt = Nums5(mil) & «миллионов «

         GoTo www

       Case 2 To 9

         decmil_txt = Nums2(decmil)

    End Select

    Select Case mil

       Case 1

         mil_txt = Nums1(mil) & «миллион «

       Case 2, 3, 4

         mil_txt = Nums1(mil) & «миллиона «

       Case 5 To 20

         mil_txt = Nums1(mil) & «миллионов «

    End Select

    www:

    sottys_txt = Nums3(sottys)

    ‘проверяем тысячи

    Select Case dectys

       Case 1

         tys_txt = Nums5(tys) & «тысяч «

         GoTo eee

       Case 2 To 9

         dectys_txt = Nums2(dectys)

    End Select

    Select Case tys

       Case 0

         If dectys > 0 Then tys_txt = Nums4(tys) & «тысяч «

       Case 1

         tys_txt = Nums4(tys) & «тысяча «

       Case 2, 3, 4

         tys_txt = Nums4(tys) & «тысячи «

       Case 5 To 9

         tys_txt = Nums4(tys) & «тысяч «

    End Select

    If dectys = 0 And tys = 0 And sottys 0 Then sottys_txt = sottys_txt & » тысяч «

    eee:

    sot_txt = Nums3(sot)

    ‘проверяем десятки

    Select Case dec

       Case 1

         ed_txt = Nums5(ed)

         GoTo rrr

       Case 2 To 9

         dec_txt = Nums2(dec)

    End Select

    ed_txt = Nums1(ed)

    rrr:

    ‘формируем итоговую строку

    СУММАПРОПИСЬЮ = decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt

    End Function

    ‘вспомогательная функция для выделения из числа разрядов

    Private Function Class(M, I)

      Class = Int(Int(M — (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I — 1))

    End Function

          Сохраняете внесенные изменения и теперь можно пользоваться новой функцией, как и прочими, она отображается в «Мастере функций» в категории «Определенные пользователем» или же просто вручную ввести ее в ячейке указав какую сумму необходимо сделать прописной.

          Но как видите, макрос пишет прописью суммы, только целые числа, а вот для получения еще и копеек, эту конструкцию нужно доработать использованием следующей функции:

          =СУММАПРОПИСЬЮ(A3)&» руб. «&ТЕКСТ((A3-ЦЕЛОЕ(A3))*100;»00″)&» коп.»

        Приставку «Module2» в моей формуле можете опустить, так как таким образом, программа разделяет 2 похожие формулы, одна от установленных надстроек, а вторая от макроса.

         А на этом у меня всё! Я очень надеюсь, что всё о том, как ваши цифры сделать прописными вам понятно. Буду очень благодарен за оставленные комментарии, так как это показатель читаемости и вдохновляет на написание новых статей! Делитесь с друзьями прочитанным и ставьте лайк!

         Не забудьте поблагодарить автора!

    Что такое ограбление банка по сравнению с основанием банка?
    Бертольт Брехт​

    Did you find apk for android? You can find new Free Android Games and apps.

    Источник

    Like this post? Please share to your friends:
  • Excel цикл для всех листов
  • Excel цикл for в формуле
  • Excel цену рублей цена
  • Excel центрировать по столбцам
  • Excel ценники с штрих кодом