Циклы

@Kazimirskiy · Регистрация: 26.01.2016

Author24 — интернет-сервис помощи студентам

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

В идеале все выводить в форме, а-ля вопрос и варианты ответов. Смогу сделать селектом, но это не красиво

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

Visual Basic

dim i as long
sub xpeHb()
cnt=Cells(Rows.count,1).End(xlUp).row -1
for=1 to cnt
if range("B1")=cnt then goto vihod
if range("B" & i)<1 then
range("B" & i)=1
range("D3")=Range("A" & i) 'вывод значение ячейки колонки А
else
exit for
end if
next
 
vihod:
 
end sub

@Narimanych · 25.05.2018, 15:13

Kazimirskiy,

Может вы это имели в виду?

Visual Basic

Dim m As Integer, x As Integer, Flag As Boolean
 
Sub xpeHb()
If Flag = True Then x = m Else x = 1
cnt = Cells(Rows.Count, 1).End(xlUp).Row - 1
For i = x To cnt
  If Range("B1").Value = cnt Then Exit Sub
  If Cells(i, 2).Value < 1 Then
     Cells(i, 2).Value = 1
     Flag = True
     m = i
     Exit For
  End If
Next

@Kazimirskiy · 25.05.2018, 15:55 **[ТС]**

Я так понимаю что одна из моих ошибок это выход из счетчика и отсутствие переменной на использованную ячейку?

@Kazimirskiy 3 / 3 / 0 Регистрация: 26.01.2016 Сообщений: 62
	25.05.2018, 15:55 [ТС]	3
	Я так понимаю что одна из моих ошибок это выход из счетчика и отсутствие переменной на использованную ячейку? 0

Циклы

Решение