Excel тупит или я, заполнение данных
Добавлено: 31 окт 2005, 13:49
я написал код составления отчёта кассы
но здесь есть такая задачка которая заключается в следующем можно ли программно задать в итоге Е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 и две кнопки
но здесь есть такая задачка которая заключается в следующем можно ли программно задать в итоге Е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