Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пройтись по не пустым cell'ам в Excel / 5 сообщений из 5, страница 1 из 1
16.01.2008, 12:06
    #35064963
Guest9874343
Guest9874343
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пройтись по не пустым cell'ам в Excel
Hi,
У меня есть три колонки на странице. Мне нужно пройтись по всем непустым записям.
В первой колонке может быть 10 записей, во второй 20, в третьей 15. Проблема в том, что между записями могут быть пропуски (пустые строчки). Сейчас я прохожу в цикле абсолютно по всем клеткам - ActiveWorkbook.Names("myName").RefersToRange - очень долго.
Видел функцию range.Columns.End(xlDown).address, но она возвращает последнюю запись без учета пустых строк.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2008, 12:44
    #35065090
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пройтись по не пустым cell'ам в Excel
"Guest9874343" <nospam@sql.ru>; сообщил/сообщила в новостях следующее:
news:5159139@sql.ru...
> Автор: Guest9874343
> Hi,
> У меня есть три колонки на странице. Мне нужно пройтись по всем
> непустым записям.
> В первой колонке может быть 10 записей, во второй 20, в третьей 15.
> Проблема в том, что между записями могут быть пропуски (пустые строчки).
> Сейчас я прохожу в цикле абсолютно по всем клеткам -
> ActiveWorkbook.Names("myName").RefersToRange - очень долго.
> Видел функцию range.Columns.End(xlDown).address, но она возвращает
> последнюю запись без учета пустых строк.
> Тема Ответить Сообщение
>
поставь автофильтр по непустым занчениям и он вернет тебе Range, по которому
и ходи

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2008, 13:37
    #35065328
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пройтись по не пустым cell'ам в Excel
Вот последняя строка на листе. Найдите ее и сузите поиск.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2008, 16:54
    #35066108
Guest9874343
Guest9874343
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пройтись по не пустым cell'ам в Excel
big-duke спасибо =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2008, 19:57
    #35066713
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пройтись по не пустым cell'ам в Excel
Код: plaintext
1.
2.
3.
4.
Dim iCel As Range, msg As String
For Each iCel In Columns("A:C").SpecialCells( 8 ,  23 )
 msg = msg & iCel.Address & Chr( 10 )
Next iCel
MsgBox msg
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пройтись по не пустым cell'ам в Excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 413ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162809]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 78ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 224ms
total:  413ms
x
x
Закрыть


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