Обработка несплошного диапазона / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обработка несплошного диапазона

3 сообщений из 3, страница 1 из 1

Обработка несплошного диапазона

#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, 07:53:52

| Ответить | Цитировать | Написать

Обработка несплошного диапазона

#34806740

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

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:14:23

| Ответить | Цитировать | Написать

Обработка несплошного диапазона

#34806753

Ильгиз

Гость

Спасибо огромное за коллекцию - то что надо.
А что касается UNION, то оно по идее да - так должно быть. Только у меня диапазон расширяться упорно не желал, поэтому я удалял его и создавал снова уже расширенным.

...

Рейтинг:

0 / 0

18.09.2007, 08:32:19

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обработка несплошного диапазона

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=265&tid=2182260]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	29ms
get topic data:	8ms
get forum data:	2ms
get page messages:	32ms
get tp. blocked users:	1ms
others:	207ms

total:	308ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы