Написание макроса в Excel

Lenchans

Есть набор строк (по два столбца, если это критично с каждой из которых нужно выполнить определенные действия (уже описаны в другом макросе). Число строк заранее неизвестно, но строки образуют цельный блок, т.е. первая пустая клетка - конец.
Как втолковать такое проге?

oleg_n

а зачем тебе макрос?
давай лучше за пивом?

zontik

Чувствую, должен быть цыкл

dim ws as worksheet

'тут может быть какой-то лист

set ws = activesheet

'

i = 1

while (ws.cells (i, 1) <> "")

  'тут наверное придется активный диапозон установить

  'если не хочешь изменять уже существующий макрос и он завязан на активную ячейку

  'ногами не бить, пишу по памяти

  set ws.cells.active = range (ws.cells (i, 1 ws.cells (i, 2

  YourMacros

  'или вызывай свой макрос с диапазонами или значениями ячеек

  YourMacros (range (ws.cells (i, 1 ws.cells (i, 2 'типа так

  i = i + 1

wend

'

---

PS: vba suxx&muzdy!

Lenchans

Почти оно, только у меня макрос не завязан на активную ячейку
В связи с этим - совсем ламерский вопрос: а как завязать макрос на активную ячейку? У меня в листинге всегда пишет абсолютные адреса ячеек. Это, кстати, может решить проблему, т.к. строк не то чтобы очень много - штук 20-30 и добавляться будут по одной-двум.

Lenchans

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