Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA. Динамический диапазон для суммирования.
 
#1
31.10.2019 10:02:13
Здравствуйте, нужен макрос который будет считать сумму между ячейками , с учётом того что колличество строк будет постоянно увеличиваться.
 
 
 
#2
31.10.2019 10:05:14
Сделайте вашу таблицу умной и формула будет автоматически протягиваться при добавлении строк.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#3
31.10.2019 10:08:42
Потенциально моя таблица будет намного больше, и формулы сложнее, я просто хочу понять принцип как это сделать с помощью макроса. Потому что большие объемы данных на обычных формулах сильно тормозят процесс работы
 
 
 
#4
31.10.2019 11:30:37
Здравствуйте. Попробуйте таким:
Код
Sub SumLastColumn()
    Dim strI As String, strK As String, lngJ As Long
    'определяем столбец с заголовком Сумма
    strK = Mid(Range("1:1").Find("Сумма").Address, 2, InStr(2, Range("1:1").Find("Сумма").Address, "$") - 2)
    'определяем последний столбец, который должен быть просуммирован
    strI = Mid(Range("1:1").Find("Сумма").Offset(0, -1).Address, 2, InStr(2, Range("1:1").Find("Сумма").Offset(0, -1).Address, "$") - 2)
    'определяем количество строк для заполнения
    'запускаем цикл вставки формулы по строкам данных
    For lngJ = 2 To Range("A1").CurrentRegion.Rows.Count
        Range(strK & lngJ).FormulaLocal = "=СУММ(B" & lngJ & ":" & strI & lngJ & ")"
    Next lngJ
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#5
31.10.2019 11:54:24
Nazar93, здравствуйте!
Поддержу Максима В. и дополню, что оптимизация решает огромное множество проблем. Если перенос формул листа на макросы сильно меняет ситуацию, то посмотрите в сторону отключения автопересчёта. То есть пересчитывайте формулы вручную, когда это нужно.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#6
31.10.2019 12:10:32
А меня кто поддержит и предложит название темы?
 
 
 
#7
31.10.2019 12:28:41
vikttur, я, конечно!  :D
можно так: "Сумма динамического диапазона ячеек макросом"
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Наверх