Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » PetrEko
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Изменение индекса переменной в цикле FOR
 
#
04.09.2018 17:37:24
Мне нужно занести в переменные адреса всех строк, где есть числа т.е. всех единичек в 1 столбце
 
Перейти    
Изменение индекса переменной в цикле FOR
 
#
04.09.2018 17:03:35
Цитата
Eternity написал:
А теперь можете объяснить, что вы хотите от цикла?
С диапазонами всё ясно, суть не в них. Мне нужно определить i переменных, у каждой будет своё значение.
n1 = 2
n2 = 3
...
n(i) = m  
 
Перейти    
Изменение индекса переменной в цикле FOR
 
#
04.09.2018 16:50:03
Добрый день! Искал и в спецификации VB и VBA, так и не смог найти ответ. Есть цикл:
Код
For i = 1 To 5
      ni = ActiveCell.Row
    Selection.End(xlDown).Select
  Next
Необходимо изменять i с каждой итерацией. В общем каков синтаксис такого цикла?
 
Перейти    
Цикл по каждой n-ой строке
 
#
18.01.2018 14:42:13
В общем у меня получилось вот что:
Код
Sub macro()

q = 8 'число столбцов

For k = 1 To q
    For i = 6 To 18 Step 6
        Rows(i).Find("норма", , xlValues, xlWhole).Select
        ActiveCell.ClearContents
    On Error Resume Next 'костыль для ошибки, когда в строке нет слова "норма"
    Next
Next
  
On Error Resume Next 'костыль для ошибки, вылетающей после окончания цикла
  
End Sub


Код работает, хотя в режиме отладке там творится какая-то дичь) Буду рад выслушать предложения по уменьшению говнокодоности данного кода)
Изменено: PetrEko - 18.01.2018 14:42:40
 
Перейти    
Цикл по каждой n-ой строке
 
#
17.01.2018 17:06:00
Цитата
TheBestOfTheBest написал:
здесь строки 1 - 7 -13 это правильно?
Да, всё верно
 
Перейти    
Цикл по каждой n-ой строке
 
#
17.01.2018 16:51:24
Просматривает каждую строку, а нужно чтоб каждую 6 - ую
Изменено: PetrEko - 17.01.2018 16:51:52
 
Перейти    
Цикл по каждой n-ой строке
 
#
17.01.2018 16:47:32
Добрый день. Набросал вот такой код
Код
Sub Mac1ro1()

q = Cells(1, Columns.Count).End(xlToRight).Column

For i = 1 To q Step 6
Rows.Find("норма", , xlValues, xlWhole).Select
 
  ActiveCell.Range(Cells(1, 1), Cells(1, 1)).ClearContents
  Next
End Sub
Задумка такова - в каждой шестой строке ищет слово норма и удаляет его. Но он не работает так как надо. Укажите на ошибки, пожалуйста.
Изменено: PetrEko - 17.01.2018 16:50:19
 
Перейти    
Страницы: 1
Наверх