помогите с флажками и переключателями

[elf21]

Люди, помогите, пожалуйста!!!
Задача следующая:

Имеется 12 условий, рядом с которыми стоят флажки, и 3 изделия, рядом с которыми стоят переключатели.
Как сделать так, чтобы при выборе 1, 3, 4 и 7 условий было выбрано изделие 2, а при выборе 1, 3, 6, 11 было выбрано изделие 3 и т.п.???

[EducatedFool]

Вот один из вариантов (см. вложение)

В коде VBA можно прописать любые другие условия выбора изделия
2 изложенных Вами варианта уже реализовано.

Sub CheckBox_Change()
    Dim a(1 To 12) As Boolean, res As Integer
    For i = 1 To 12
        a(i) = CBool(Cells(7 + i, 11))
    Next i
    res = 1    ' по умолчанию выбирается изделие 1  (поставьте res=0, чтобы ни одно из изделий не было выбрано)
    Select Case True
        Case a(1) And a(3) And a(4) And a(7): res = 2
        Case a(1) And a(3) And a(6) And a(11): res = 3
            ' здесь можете дописать сколько угодно других условий выбора изделия
            '
    End Select
    Cells(5, 11) = res ' пишем в ячейку значение для переключателя изделий
End Sub

Все элементы управления связаны с ячейками: переключатель - с зелёной ячейкой, флажки - с соответствующими желтыми.

[elf21]

спасибо большое!