Excel. Работа со столбцами АА, АВ, АС етс...

Программирование на Visual Basic for Applications
MEMBER
Гугль
Гугль
 
Сообщения: 758
Зарегистрирован: 29.11.2002 (Пт) 12:02
Откуда: 10 этаж

Excel. Работа со столбцами АА, АВ, АС етс...

Сообщение MEMBER » 23.04.2003 (Ср) 9:03

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

Требуется:
Пройти по таблице 31х16.
Если в ячейке "*" выполнить определённое действие.

Всё просто, только я не знаю, как в цикле обратиться к ячейкам с двойным буквенным индексом, например ААх1.

Спасибо.
Господа! Пользуйтесь www.ya.ru
ЗЫ и www.planetsourcecode.com

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 23.04.2003 (Ср) 9:31

можно допустим вот так попробовать
Код: Выделить всё
Dim i as Integer
Dim j as Integer
for i=0 to 30
  for j=0 to 15
     if sheets(1).range("AA1").offset(i,j).Value="*" then
     ............................' действие
     end if
   next j
next i

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 23.04.2003 (Ср) 9:46

А что, такое отменили?
Код: Выделить всё
Dim I as Long, J as Long
For J = 1 To 31
  For I = 1 To 16
    If Sheets(1).Cells(J,I).Value = ...
  Next I
Next J
Lasciate ogni speranza, voi ch'entrate.

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 23.04.2003 (Ср) 9:54

2 alibek соглашусь, но так я сделал потому, чтобы задать точку отчета Range("AA1") (для удобства)

MEMBER
Гугль
Гугль
 
Сообщения: 758
Зарегистрирован: 29.11.2002 (Пт) 12:02
Откуда: 10 этаж

Сообщение MEMBER » 23.04.2003 (Ср) 9:55

2 alibek
Твою дивизию...
Совсем не подумал об этом. :oops:
Спасибо.
Господа! Пользуйтесь www.ya.ru
ЗЫ и www.planetsourcecode.com


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 4

    TopList