| Вопрос: Excel тупит или я, заполнение данных | Добавлено: 31.10.05 13:45 |
Автор вопроса:  Archi
|
|
я написал код составления отчёта кассы
но здесь есть такая задачка которая заключается в следующем можно ли программно задать в итоге Е26 условие если в В10:B22 есть "Незакрытые счета" и "Возврат предоплаты" то суммы в Е10:E22 вычесть из итогов, я это сделал при помоши СУММЕСЛИ при котором строки 24, 25 и 26 должны будут не видимыми при печати. И ещё можно ли ограничить заполнение данных от В10 до G22 и от В28 до G33 И проверь пожалуйста код NextRow = Application.WorksheetFunction.CountA(Range("B:B")) + 6 и NextRow = Application.WorksheetFunction.CountA(Range("B:B")) + 17 На форме TextBox-ов номера 1 2 4 5 6 7 8 9 ComboBox-ов 1 2 и две кнопки Private Sub CommandButton1_Click()
ActiveSheet.Range("F3") = TextBox7.Text ActiveSheet.Range("F2") = TextBox6.Text NextRow = Application.WorksheetFunction.CountA(Range("B:B")) + 6 Cells(NextRow, 2) = ComboBox1.Text Cells(NextRow, 4) = TextBox9.Text Cells(NextRow, 5) = TextBox1.Text Cells(NextRow, 6) = TextBox2.Text Cells(NextRow, 7) = TextBox6.Text * TextBox2.Text End Sub Private Sub CommandButton2_Click() UserForm1.Hide End Sub Private Sub CommandButton3_Click() NextRow = Application.WorksheetFunction.CountA(Range("B:B")) + 17 Cells(NextRow, 2) = ComboBox2.Text Cells(NextRow, 4) = TextBox8.Text Cells(NextRow, 5) = TextBox4.Text Cells(NextRow, 6) = TextBox5.Text End Sub Private Sub UserForm_Initialize() TextBox6.Text = "0" End Sub |
| Ответы | Всего ответов: 0 |
Страница: