как OptionButton сделать не доступними несколько CheckBox-ов

[mars56]

помогите! имеется несколько OptionButton-ов как реализовать в VBA чтоб при нажатии на OptionButton1 стали недоступними CheckBox1-CheckBox10, при нажатии OptionButton2 стали недоступними CheckBox11-CheckBox20, и т.д. Прописывать все CheckBox-ы по отдельности не вариант. Заранее спасибо всем кто поможет

[EducatedFool]

Сделать это несложно.
Но вот воссоздавать файл с формой и чекбоксами ради нескольких строк кода нет ни малейшего желания...

Будет файл с готовой формой - будем думать.

[Maxx]

Положите файлик с формой. Так будет лучше и удобнее!

[mars56]

да ну мнеб хотябы пару строк дальше сам разберусь. Вот на пример нажимаем OptionButton1 недоступны CheckBox1-CheckBox3

[The_Prist]

Вот Вам пара строк.

dim i as integer
For i = 1 to 3:me.controls("CheckBox" & i).Enabled = false:next i

[EducatedFool]

Ну, раз Вам так лень создать форму с чекбоксами, пришлось сделать самому.
Мне же больше нечем заняться, кроме как делать для Вас примеры файлов...



Вот весь код:

Private Sub OptionButton1_Click(): Макрос: End Sub
Private Sub OptionButton2_Click(): Макрос: End Sub
Private Sub OptionButton3_Click(): Макрос: End Sub

Sub Макрос()
    Select Case True
        Case Me.OptionButton1: n1 = 1: n2 = 10
        Case Me.OptionButton2: n1 = 11: n2 = 20
        Case Me.OptionButton3: n1 = 21: n2 = 30
        Case Else: n1 = 5: n2 = 24
    End Select
    For i = 1 To 30
    Me.Controls("CheckBox" & i).Enabled = i > n2 Or i < n1
    Next
End Sub

Private Sub UserForm_Initialize()
    For i = 1 To 30
    Me.Controls("CheckBox" & i).Caption = "Чекбокс номер " & i
    Next
End Sub

[mars56]

Спасиб Вам большущее, сейчас буду пробывать делать

[mars56]

Что то у меня не получается. Делаю все как в примере только с разницей что все CheckBox и OptionButton на листе экселя а не на форме. Возникает ошибка на этой сторке Me.Controls("CheckBox" & i).Enabled = i > n2 Or i < n1 "Metod or data not found". Подскажите как эт дело поправить

[The_Prist]

Сообщение от mars56

Что то у меня не получается. Делаю все как в примере только с разницей что все CheckBox и OptionButton на листе экселя а не на форме.

А вот для этого надо было изначально указывать, что объекты на листе расположены, а не на форме.

Sub Макрос()
Dim n1 As Integer, n2 As Integer, i As Integer
    Select Case True
        Case ActiveSheet.DrawingObjects("Option Button 1").Value: n1 = 1: n2 = 10
        Case ActiveSheet.DrawingObjects("Option Button 2").Value: n1 = 11: n2 = 20
        Case ActiveSheet.DrawingObjects("Option Button 3").Value: n1 = 21: n2 = 30
        Case Else: n1 = 5: n2 = 24
    End Select
    For i = 1 To 30
    ActiveSheet.DrawingObjects("Check Box " & i).Enabled = i > n2 Or i < n1
    Next
End Sub

Номера объектов сами вычисляйте.

[mars56]

а теперь вот пишет "не возможно получить свойство DrawingObjects" в этой строчке Case ActiveSheet.DrawingObjects("Option Button 1").Value: