Программа без передачи активновсти диапазона

vlaste1992 Пользователь Сообщений: 12 Регистрация: 16.10.2016	#1 16.10.2016 11:22:23 Я написал программу Подведение итогов с активным диапазоном ячейки, а как изменить данную программу, чтобы она была без передачи активности? Прикрепленные файлы Подведение итогов(3) .xlsm (13.32 КБ)

Александр Моторин Пользователь Сообщений: 974 Регистрация: 31.12.2012	#2 16.10.2016 12:01:24 Если правильно понял: Set Диапазон = [b2..f4] Изменено: Александр Моторин - 16.10.2016 12:01:54

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

16.10.2016 12:03:19

Код

Sub ПодведениеИтогов2()
  Set rg = Selection
'Проверка того, чтобы выделенная область состояла из одного диапазона
  If rg.Areas.Count > 1 Then Exit Sub
  Cells(rg.Row + rg.Rows.Count, rg.Column).Resize(1, rg.Columns.Count).Formula = "=sum(r[-" & rg.Rows.Count & "]c:r[-1]c)"
  Cells(rg.Row, rg.Column + rg.Columns.Count).Resize(rg.Rows.Count + 1, 1).Formula = "=sum(rc[-" & rg.Columns.Count & "]:rc[-1])"
End Sub

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

kuklp Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 16.10.2016 12:11:13 Кросс: http://www.excel-vba.ru/forum/index.php?topic=4777.0 Я сам - дурнее всякого примера! ...