Добрый вечер (извините за предыдущее сообщение)!!!
Кратко о проблеме: хотел создать универсальную функцию которая на вход принимала бы имя Frame, а на выходе давала ответ о заполняемости OptionButtons. В файле написал код, при компиляции постоянно возникает ошибка ... непонимаю что делаю не так? такое можно программно реализовать?[moder]Название темы слишком общее. Под неё можно подвести любую функцию. Переименуйте название под Вашу конкретную задачу.
Добрый вечер (извините за предыдущее сообщение)!!!
Кратко о проблеме: хотел создать универсальную функцию которая на вход принимала бы имя Frame, а на выходе давала ответ о заполняемости OptionButtons. В файле написал код, при компиляции постоянно возникает ошибка ... непонимаю что делаю не так? такое можно программно реализовать?[moder]Название темы слишком общее. Под неё можно подвести любую функцию. Переименуйте название под Вашу конкретную задачу.bar171
Привет bar171, попробуйте, например, так. OptionButton1, 2, 3 объединяем в группу, присвоив их свойству GroupName (в окне свойств) одно и то же значение (напр. "GrProduct") и тогда вот: [vba]
Код
Private Sub CommandButton1_Click() MsgBox "Строка продуктов " & IIf(check_function("GrProduct"), "", "не ") & "заполнена" End Sub
Function check_function(X As String) As Boolean Dim ctrl As Control For Each ctrl In Me.Controls If InStr(ctrl.Name, "OptionButton") Then If ctrl.GroupName = X Then If ctrl.Value = True Then check_function = True: Exit For End If End If Next End Function
[/vba]
Привет bar171, попробуйте, например, так. OptionButton1, 2, 3 объединяем в группу, присвоив их свойству GroupName (в окне свойств) одно и то же значение (напр. "GrProduct") и тогда вот: [vba]
Код
Private Sub CommandButton1_Click() MsgBox "Строка продуктов " & IIf(check_function("GrProduct"), "", "не ") & "заполнена" End Sub
Function check_function(X As String) As Boolean Dim ctrl As Control For Each ctrl In Me.Controls If InStr(ctrl.Name, "OptionButton") Then If ctrl.GroupName = X Then If ctrl.Value = True Then check_function = True: Exit For End If End If Next End Function