Помогите создать цикл с проверкой CheckBox

[SaleXuS]

Здравствуйте товарищи программисты!

Помогите,пожалуйста, создать цикл в Excel:

Есть объекты Checkbox1...Checkbox11 и процедуры Procedure1...Procedure11

Мне нужно, чтоб цикл проверял Checkbox'ы и, при выполнении условия, вызывал процедуру:

For ...
If Checkbox1= True then call Procedure1
Next

Как сделать так, чтоб при каждом шаге проверялся следующий объект и при выполнении условия вызывалась процедура? Должны меняться только номера объектов и процедур [/b]

[Krasnaja Shapka]

чекбоксы можно обойти с помощью Me.Controls("Checkbox" & i).Value
а что делать с процедурами я не знаю... если они одинаковые, есть вариант сделать из них одну с переменной "index"

или мутить
select case true
case Checkbox1.value
procedure1
case Checkbox2.value
procedure2
....
end select

[SaleXuS]

Дело в том, что я хочу сделать код как можно меньше. Делать без цикла нереально, проверяться будут аж 18 чекбоксов, для этого лучше цикл.
Вчера кода не было у меня под рукой, сегодня принес. Выглядит так:

Sub Восст_формул01_Click() ' Кнопка

Dim Confirm1 As String
Dim i As Integer
Dim name

Confirm1 = MsgBox("Вы отметили галочками строки, в зеленых ячейках которых" & _
"будут восстановлены исходные формулы. Продолжить?", vbYesNo, "Внимание!")

If Confirm1 = vbYes Then
With Assistant.NewBalloon
For i = 1 To 18
name = "Восстан_формулы" + i 'Вызов процедуры
If .CheckBoxes(i).Checked = True Then Call name
Next i
End With
End If

End Sub


При выполнении выходит ошибка на "Call name":
Compile error: Expected Sub, Function or Property

Что я делаю неправильно?

[RayShade]

select case true - это пять, в цитаты однозначно

А не прощ ли сделать 1 прцедуру для обработки, передавать ей параметр - номер выбранного checkbox, и в ней самой уже делать select case?

[alibek]

select case true - это пять, в цитаты однозначно

Вообще-то иногда select case true бывает довольно удобен

[RayShade]

alibek

Ага. Примерно в таких же случаях как и do while 1=1

[GSerg]

Да нет, совершено в иных
Часто юзаю; очень полезная конструкция.

[Krasnaja Shapka]

select case true - это пять, в цитаты однозначно

а можно более конструктивно, что вам не нравится в такой конструкции?

[Andrey Fedorov]

alibek
Ага. Примерно в таких же случаях как и do while 1=1

Ну, если быть точным, то иногда действительно бывает удобно сделать что-то вроде:

Код: Выделить всё

Do
    ...
    Select Case ...
         Case ...
         Case ...
         Case Else: Exit Do
    End Select
    ...
Loop

[KL]

alibek
Ага. Примерно в таких же случаях как и do while 1=1

пример:

Код: Выделить всё

Function TestFunction(a As Variant)
    Select Case True
    Case IsArray(a): MsgBox "Array"
    Case a Like "*test*": MsgBox "Contains ""text"""
    Case Else: MsgBox "Other"
    End Select
End Function

Sub test()
    TestFunction Array(1, 3, 4)
    TestFunction "contest"
    TestFunction True
End Sub

[KL]

Дело в том, что я хочу сделать код как можно меньше. Делать без цикла нереально, проверяться будут аж 18 чекбоксов, для этого лучше цикл.
Вчера кода не было у меня под рукой, сегодня принес. Выглядит так:

Sub Восст_формул01_Click() ' Кнопка

Dim Confirm1 As String
Dim i As Integer
Dim name

Confirm1 = MsgBox("Вы отметили галочками строки, в зеленых ячейках которых" & _
"будут восстановлены исходные формулы. Продолжить?", vbYesNo, "Внимание!")

If Confirm1 = vbYes Then
With Assistant.NewBalloon
For i = 1 To 18
name = "Восстан_формулы" + i 'Вызов процедуры
If .CheckBoxes(i).Checked = True Then Call name
Next i
End With
End If

End Sub


При выполнении выходит ошибка на "Call name":
Compile error: Expected Sub, Function or Property

Что я делаю неправильно?

Call на Run пробовал заменить?