Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Рассчитать остаток. Динамичный диапазон
 
#1
08.12.2024 22:38:53
Доброго времени суток
Имеются данные по акту - приход и расход, они в разных столбцах между актами пустые строки.
Никак не могу сообразить как задать диапазон суммирования?

Нужен именно макрос рассчитать остаток
 
 
 
#2
09.12.2024 14:22:13
Добрый день.
Цитата
как задать диапазон суммирования?
С помощью цикла в UDF.
 
 
 
#3
09.12.2024 15:01:56
Никита Дворец, огромное спасибо за отклик. Немного проясняется решение. Но насколько я понимаю, то цикл формула ищет по столбцу D, а если в строке Е > значений чем в С, то работает не так.
Закономерность именно в столбце С, что суммировать остальные надо от сумму до следующей суммы.
Вот как задать цикл, если строка со значением, то далее суммируем до следующего значения...
 
 
 
#4
09.12.2024 15:53:02
Цитата
Sub xxxx()

For i = 2 To 123

If Range("C" & i) > 0 Then

xD = i + 1
While Sheets("sheet1").Range("d" + LTrim(Str(xD))) <> Empty
xD = xD + 1
Wend

xE = i + 1
While Sheets("sheet1").Range("E" + LTrim(Str(xE))) <> Empty
xE = xE + 1
Wend

myRangeD = Range("D" & i + 1 & ":D" & xD - 1)
myRangeE = Range("E" & i + 1 & ":E" & xE - 1)

Sum = Application.WorksheetFunction.Sum(myRangeD, myRangeE)

Range("H" & i) = Range("C" & i) - Sum
End If
Next

End Sub


Не знаю насколько это локонично)) но вроде работает.
 
 
 
#5
09.12.2024 15:54:03
Цитата
а если в строке Е > значений чем в С, то работает не так

Анализ идет именно по столбцу "С", но добавлено ещё одно условие при расчете расходов, для учета всей суммы.  
 
 
 
#6
09.12.2024 15:57:37
Цитата
написал:
Анализ идет именно по столбцу "С",
Спасибо!
 
 
 
Страницы: 1
Наверх