Страницы: 1
RSS
Некорректно формируется подсчет Поступления (Расход) товара в отчете .
 
Добрый день.
Имеется форма для формирования отчета: задается период -выбирается товар и формируется Отчет по перемещению товара.
Как исправить ошибку в коде : подсчет Поступлений и Расход должен отображаться в строке 6 по столбцам 2 и 3 .
В прилагаемом файле есть вариант как есть и как надо.
 
Цитата
подсчет Поступлений и Расход должен отображаться в строке 6 по столбцам 2 и 3
Попробуйте изменить      
Код
 .Cells(LR, 2) = Application.WorksheetFunction.Sum(Range(.Cells(7, 2), .Cells(LR - 1, 2))) 'Подсчет суммы по Поступлению
 .Cells(LR, 3) = Application.WorksheetFunction.Sum(Range(.Cells(7, 3), .Cells(LR - 1, 3)))  'Посчитали суммы по Расходу
на  
Код
.Cells(6, 2) = Application.WorksheetFunction.Sum(Range(.Cells(7, 2), .Cells(LR - 1, 2))) 'Подсчет суммы по Поступлению
.Cells(6, 3) = Application.WorksheetFunction.Sum(Range(.Cells(7, 3), .Cells(LR - 1, 3)))  'Посчитали суммы по Расходу
 
Kuzmich,Ваш код сработал. Спасибо   :)  ,но остается лишняя пустая строка. Как ее убрать?
 
Цитата
Как ее убрать?
Вы это имеете в виду
Код
Range(.Cells(5, 1), .Cells(LR - 1, 3)).Borders.LineStyle = xlContinuous 'Сделали обрамление ячеек
 
Разобрался . Все работает.  :)

Изменено: Logistic - 17.02.2018 14:13:19
Страницы: 1
Наверх