Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подставить диапазон range в формулу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подставить диапазон range в формулу (Макросы/Sub)
Подставить диапазон range в формулу
yrHeTaTeJlb Дата: Четверг, 18.09.2014, 14:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Допустим есть некий диапазон r состоящий из поддиапазонов r1 и r2
[vba]
Код
     
     Dim r1 As Range
     Dim r2 As Range
     Dim r As Range
      
     Set r1 = Range("E15:E17")
     Set r2 = Range("E19:E21")
     Set r = Application.Union(r1, r2)
[/vba]

Как добавить в какую-нибудь ячейку формулу вычисляющую что-нибудь для этого диапазона?
Например сумму:
[vba]
Код
Range("E22").FormulaR1C1 = "=СУММ(" & r & ")"
[/vba]
Нужно что-то типа такой записи, только правильной :)
Подскажите, пожалуйста
 
Ответить
СообщениеДопустим есть некий диапазон r состоящий из поддиапазонов r1 и r2
[vba]
Код
     
     Dim r1 As Range
     Dim r2 As Range
     Dim r As Range
      
     Set r1 = Range("E15:E17")
     Set r2 = Range("E19:E21")
     Set r = Application.Union(r1, r2)
[/vba]

Как добавить в какую-нибудь ячейку формулу вычисляющую что-нибудь для этого диапазона?
Например сумму:
[vba]
Код
Range("E22").FormulaR1C1 = "=СУММ(" & r & ")"
[/vba]
Нужно что-то типа такой записи, только правильной :)
Подскажите, пожалуйста
Автор - yrHeTaTeJlb
Дата добавления - 18.09.2014 в 14:38
Gustav Дата: Четверг, 18.09.2014, 14:46 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2748
Репутация: 1138 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
r.Address ?

[vba]
Код
    Dim r1 As Range
       Dim r2 As Range
       Dim r As Range
          
       Set r1 = Range("E15:E17")
       Set r2 = Range("E19:E21")
       Set r = Application.Union(r1, r2)
     
       Range("E22").Formula = "=SUM(" & r.Address(False, False) & ")"
[/vba]
и получаем в этой ячейке формулу:
Код
=СУММ(E15:E17;E19:E21)

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Четверг, 18.09.2014, 15:01
 
Ответить
Сообщениеr.Address ?

[vba]
Код
    Dim r1 As Range
       Dim r2 As Range
       Dim r As Range
          
       Set r1 = Range("E15:E17")
       Set r2 = Range("E19:E21")
       Set r = Application.Union(r1, r2)
     
       Range("E22").Formula = "=SUM(" & r.Address(False, False) & ")"
[/vba]
и получаем в этой ячейке формулу:
Код
=СУММ(E15:E17;E19:E21)
Автор - Gustav
Дата добавления - 18.09.2014 в 14:46
yrHeTaTeJlb Дата: Четверг, 18.09.2014, 15:03 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Цитата Gustav, 18.09.2014 в 14:46, в сообщении № 2
r.Address ?

    Dim r1 As Range
    Dim r2 As Range
    Dim r As Range
        
    Set r1 = Range("E15:E17")
    Set r2 = Range("E19:E21")
    Set r = Application.Union(r1, r2)

    Range("E22").Formula = "=SUM(" & r.Address(False, False) & ")"


То что надо, спасибо!
 
Ответить
Сообщение
Цитата Gustav, 18.09.2014 в 14:46, в сообщении № 2
r.Address ?

    Dim r1 As Range
    Dim r2 As Range
    Dim r As Range
        
    Set r1 = Range("E15:E17")
    Set r2 = Range("E19:E21")
    Set r = Application.Union(r1, r2)

    Range("E22").Formula = "=SUM(" & r.Address(False, False) & ")"


То что надо, спасибо!
Автор - yrHeTaTeJlb
Дата добавления - 18.09.2014 в 15:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подставить диапазон range в формулу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!