Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обработка несплошного диапазона / 3 сообщений из 3, страница 1 из 1
18.09.2007, 07:53:52
    #34806723
Ильгиз
Ильгиз
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка несплошного диапазона
Привет всем. Работаю с несплошным диапазоном, состоящим из множества прямоугольных областей. Работа состоит в обработке чисел, находящихся в этом диапазоне. Движение по диапазону происходит в цикле
Код: plaintext
1.
2.
3.
4.
5.
For x_value =  1  To Range(range_name).Rows.Count
    For y_value =  1  To Range(range_name).Columns.Count
        Range(range_name).Cells(x_value, y_value).Value = Something
    Next y_value
Next x_value

Пополнение диапазона делал следующим образом(из акцесс):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Set temp_range = full_range
full_range.name.Delete
temp_range.name = "temp"
Set full_range = xl.Union(temp_range, xlws.range(xlws.cells(i +  4 , j +  3 ), xlws.cells(i +  4  + d, j + per_num +  3 )))
full_range.name = "FULL"
temp_range.name.Delete

Вопрос. Диапазон в некоторых случаях обрабатывается целиком, а в некоторых случаях обрабатывается лишь первая область. От чего это зависит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2007, 08:14:23
    #34806740
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка несплошного диапазона
1) Всегда правильнее использовать коллекцию ячеек в диапазоне

Код: plaintext
1.
2.
3.
Dim iCel as range
For Each iCel in Range(range_name)
     iCel.Value = Something
Next iCel

2) Тут как то тоже заморочено, зачем вы присваиваете имена, если потом нигде ими не пользуетесь? И вроеменную переменную необязательно, можно просто

Код: plaintext
Set full_range = xl.Union(full_range, xlws.range(xlws.cells(i +  4 , j +  3 ), xlws.cells(i +  4  + d, j + per_num +  3 )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2007, 08:32:19
    #34806753
Ильгиз
Ильгиз
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка несплошного диапазона
Спасибо огромное за коллекцию - то что надо.
А что касается UNION, то оно по идее да - так должно быть. Только у меня диапазон расширяться упорно не желал, поэтому я удалял его и создавал снова уже расширенным.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обработка несплошного диапазона / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 276ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182260]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 191ms
total:  276ms
x
x
Закрыть


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