Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

заполнение ячейки через форму

Автор Юрий_brv, 26.07.2013, 15:14

« назад - далее »

Юрий_brv

Добрый день  .  Хочу добавить дополнительно строку "Всего",что бы можно было вводить доп.данные               
и сумировать количествои подсчет клиентов               
У меня вопрос , как подтянуть строку "Всего" она уходит в низ, а надо чтобы она была сразу после новой заявки.               
Спасибо.               

Шпец Докапыч

1. При создании заявки добавлять пустую строку под "Всего":
   '.Rows(5).Resize(i).Insert
    .Rows(5).Resize(i + 1).Insert

2. Поскольку заявки добавляются сверху, то и строку (в данному случае пустую) для "Всего" надо искать сверху:
'NextRow = Sheets("отчет").Cells(Rows.Count, 6).End(xlUp).Row + 1
NextRow = Sheets("отчет").Cells(3, 1).End(xlDown).Row + 1

3. Ну а, зная номер строки "Всего", число циклов уже определено:
'For counter = 200 To 3 Step -1
For counter = 5 To NextRow - 1

Ну и условие внутри цикла для поиска "Всего" больше не требуется.
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Юрий_brv

Спасибо сделал корректировку. Вопрос , Почему не работает просчет?            
По нажатию на кнопку Итого должен быть : счетзаполненых ячеек и сумма колличества            
Цифры добавлены в ручную.            
Можно под корректировать код.            
Спасибо.            

Шпец Докапыч

Код для кнопочки [Итого:]
Private Sub CommandButton3_Click()
Dim NextRow
  NextRow = Sheets("отчет").Cells(3, 1).End(xlDown).Row + 1
  Cells(NextRow, 2) = "Всего"
  Cells(NextRow, 3) = NextRow - 5
  Cells(NextRow, 6) = WorksheetFunction.Sum(Cells(5, 6).Resize(NextRow - 5, 1))
  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
End Sub
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Юрий_brv


Юрий_brv

Добрый день . Решил вернуться к старой теме в процессе работы возник вопрос: если 2 клиента или больше ,как подкорректировать код ,чтобы  работало корректно.                
                  
Спасибо.                  

Шпец Докапыч

Если каждому товару соответствует свой Клиент, то надо перенести выбор клиентов в нижнюю часть и выбирать клиента для каждой позиции.
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Юрий_brv

Шпец Докапыч ,большое спасибо все заработало :D