Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [excel]расширить объединенные диапазоны 
V
    Опции темы
GoldFinch
Дата 29.6.2009, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата



****


Профиль
Группа: Завсегдатай
Сообщений: 2141
Регистрация: 30.11.2008

Репутация: нет
Всего: 26
задается название объединенного однострочного диапазона rng_name="a1:b1,e1:f1"
надо получить Range для этого диапазона, расширенного до n строк

для простого диапазона rng_name="a1:b1"
Код

Set rng=Range(rng_name).Resize(n)

как сделать для rng_name="a1:b1,e1:f1" ?

такой код не работает 
Код

    Set rng=Range(rng_name)
    For i = 1 To rng.Areas.Count
        Set rng.Areas(i) = rng.Areas(i).Resize(n) 'error: object requred
    Next
PM MAIL ICQ   Вверх
GoldFinch
Дата 30.6.2009, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата



****


Профиль
Группа: Завсегдатай
Сообщений: 2141
Регистрация: 30.11.2008

Репутация: нет
Всего: 26
решил проблему следующим образом:
Код

Private Sub ExpandDown(rng As Excel.Range)
    n = Range("a1").End(xlDown).Row - rng.Row + 1
    addr = rng.Areas(1).Resize(n).Address
    For i = 2 To rng.Areas.Count
        addr = addr & "," & rng.Areas(i).Resize(n).Address
    Next
    Set rng = Range(addr)
End Sub
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1043 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.