Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range -> Перечень ячеек / 7 сообщений из 7, страница 1 из 1
09.06.2007, 15:57:07
    #34586454
ora_study
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range -> Перечень ячеек
Добрый день.

Есть именованый диапазон. Нужно получить перечень ячеек входящих в него.
Подскажите оптимальный алгоритм?
...
Рейтинг: 0 / 0
09.06.2007, 16:26:25
    #34586515
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range -> Перечень ячеек
ora_studyДобрый день.

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

Код: plaintext
1.
2.
3.
Sub sad()
For Each iCel In Range("выходные")
Debug.Print iCel.Address
Next
...
Рейтинг: 0 / 0
09.06.2007, 16:28:10
    #34586518
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range -> Перечень ячеек
Код: plaintext
Debug.Print Range("выходные").Address
...
Рейтинг: 0 / 0
09.06.2007, 16:32:17
    #34586528
ora_study
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range -> Перечень ячеек
Проблема в том, что работаю с Excel через Com интерфейс. В силу этого конструкция языка VBA 'For Each' мне не доступна. Debug - тоже.
...
Рейтинг: 0 / 0
09.06.2007, 17:16:34
    #34586612
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range -> Перечень ячеек
ora_studyПроблема в том, что работаю с Excel через Com интерфейс. В силу этого конструкция языка VBA 'For Each' мне не доступна. Debug - тоже.
А что нужно получить? Адресс каждой ячейке в чикле или адресс всего диапазона?
...
Рейтинг: 0 / 0
09.06.2007, 17:46:13
    #34586671
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range -> Перечень ячеек
ora_studyПроблема в том, что работаю с Excel через Com интерфейс. В силу этого конструкция языка VBA 'For Each' мне не доступна. Debug - тоже.ну так вот эту идею и используй Deggasad
Код: plaintext
Debug.Print Range("выходные").Address
далее, смотря как собираешься использовать данные, можно получить границы диапазона:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim NamedRange As Range

Dim FirstColumn As Long
Dim LastColumn As Long
Dim FirstRow As Long
Dim LastRow As Long

    Set NamedRange = Range("MyRange")
    
    FirstColumn = NamedRange.Column
    LastColumn = NamedRange.Column + NamedRange.Columns.Count -  1 
    FirstRow = NamedRange.Row
    LastRow = NamedRange.Row+NamedRange.Rows.Count -  1 
...
Рейтинг: 0 / 0
09.06.2007, 17:55:42
    #34586700
ora_study
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range -> Перечень ячеек
to vbapro: Спасибо. Это именно то, что мне было нужно.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range -> Перечень ячеек / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]