Функция с параметрами

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Функция с параметрами (Макросы/Sub)

bar171

Дата: Среда, 21.01.2015, 17:51 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Добрый вечер (извините за предыдущее сообщение)!!!

Кратко о проблеме: хотел создать универсальную функцию которая на вход принимала бы имя Frame, а на выходе давала ответ о заполняемости OptionButtons.
В файле написал код, при компиляции постоянно возникает ошибка ... непонимаю что делаю не так? такое можно программно реализовать?[moder]Название темы слишком общее. Под неё можно подвести любую функцию. Переименуйте название под Вашу конкретную задачу.

К сообщению приложен файл: 2393124.xlsm (17.2 Kb)

Сообщение отредактировал JayBhagavan - Четверг, 22.01.2015, 11:54

Ответить

nilem

Дата: Среда, 21.01.2015, 18:26 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

Привет 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]

К сообщению приложен файл: 2135117.xlsm (20.3 Kb)

Яндекс.Деньги 4100159601573

Ответить

bar171

Дата: Среда, 21.01.2015, 18:47 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

nilem, Спасибо! не знал такого свойства! все оказалось проще чем я думал ..

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Функция с параметрами (Макросы/Sub)

Страница 1 из 1
1