Доброго дня! Подскажите пожалуйста, имеем MultiPage, с многим количеством страниц, на каждой находится несколько TextBox, ComboBox, CheckBox и прочих запчастей для ввода данных пользователем. Так же есть кнопка. Все они имеют имена, например dis_1, dis_2... dis_n.
Сейчас при нажатии на кнопку я прговеряю, вводились ли данные в каждом TextBox, ComboBox, CheckBox и прочих, и после этого выполняю действие Подскажите пожалуйста, можно ли сделать проверку всех например через цикл for, например заменив номер на букву, dis_n к примеру.
В итоге мне нужно, если в TextBox присутствует такой-то текст, тогда сделать это, если в ComboBox присутствует такой-то текст, тогда сделать то...
Ну и так же, при вводе в некоторые TextBox, ComboBox, выполняется одно и то же действие, меняется только имя.
Доброго дня! Подскажите пожалуйста, имеем MultiPage, с многим количеством страниц, на каждой находится несколько TextBox, ComboBox, CheckBox и прочих запчастей для ввода данных пользователем. Так же есть кнопка. Все они имеют имена, например dis_1, dis_2... dis_n.
Сейчас при нажатии на кнопку я прговеряю, вводились ли данные в каждом TextBox, ComboBox, CheckBox и прочих, и после этого выполняю действие Подскажите пожалуйста, можно ли сделать проверку всех например через цикл for, например заменив номер на букву, dis_n к примеру.
В итоге мне нужно, если в TextBox присутствует такой-то текст, тогда сделать это, если в ComboBox присутствует такой-то текст, тогда сделать то...
Ну и так же, при вводе в некоторые TextBox, ComboBox, выполняется одно и то же действие, меняется только имя.lFJl
Private Sub CommandButton1_Click() Dim el As Control For Each el In Me.Controls On Error Resume Next If el.Value <> "" Then msg = msg & vbCr & el.Name & "/" & el.Value Next UserForm1.Hide MsgBox msg End Sub
[/vba]
Так пойдет?: [vba]
Код
Private Sub CommandButton1_Click() Dim el As Control For Each el In Me.Controls On Error Resume Next If el.Value <> "" Then msg = msg & vbCr & el.Name & "/" & el.Value Next UserForm1.Hide MsgBox msg End Sub
SLAVICK, Мне введенные данные нужно после этого вводить в разные ячейки, например TextBox1,2 в одну ячейку, TextBox3,4 в другую, ComboBox1,2,3,4 в следующую, и т.д. Хотел чтобы это было что-то типа
[vba]
Код
for n = 1 to 3 if ("TextBox" & n).value <>"" then msg = msg & " / " & ("TextBox" & n).Text next MsgBox msg
[/vba]
SLAVICK, Мне введенные данные нужно после этого вводить в разные ячейки, например TextBox1,2 в одну ячейку, TextBox3,4 в другую, ComboBox1,2,3,4 в следующую, и т.д. Хотел чтобы это было что-то типа
[vba]
Код
for n = 1 to 3 if ("TextBox" & n).value <>"" then msg = msg & " / " & ("TextBox" & n).Text next MsgBox msg