соблюсти условия

[eikhner]

всем здравствуите, написал такои макрос с помощью магнитофона , как смог , не пинаите

при нажатии на кнопку проверяет значение кнопки 7 , если кнопка не включена, то выдается сообщение , и кнопке 14 придается значение включена , ячеика А1 обнуляется ,
если кнопка 7 имеет значение включена , то ячеике А1 придается значение


Sub Макрос2()
ActiveSheet.Shapes("Option Button 7").Select
With Selection
If .Value = xlOff Then
MsgBox "снимите работы по переднеи левои двери для седана или хэтчбека"
ActiveSheet.Shapes.Range(Array("Opt ion Button 14")).Select
With Selection
.Value = xlOn
Range("A1").FormulaR1C1 = ""
Range("L17").Select
End With

Else
Range("A1").FormulaR1C1 = "1"
Range("L17").Select

End If
End With

End Sub

как правильно написать макрос , чтоб на значение Off , проверялись например 4 кнопки - 7, 8, 9 и 10

те , если хоть одна из 4х этих кнопок имеет значение Off, то выдается сообщение , и кнопке 14 возвращается значение On
если условие по 4 кнопкам выполняются , т.е. все они имеют значение On, то ячеике А1 придается значение 1.

можно и без перехода к L17 , но тогда последняя кнопка ( 7 или14) , с которои проводились деиствия или проверка , выделена для проверки своиств , а как без этого проверить ее не знаю , ведь можно по другому узнать ее значение



Sub Макрос2()
ActiveSheet.Shapes("Option Button 7").Select
With Selection
If .Value = xlOff Then
MsgBox "снимите работы по переднеи левои двери для седана или хэтчбека"
ActiveSheet.Shapes.Range(Array("Opt ion Button 14")).Select
With Selection
.Value = xlOn
Range("A1").FormulaR1C1 = ""
End With
Else
Range("A1").FormulaR1C1 = "1"
End If
End With

End Sub


или проще ещё
проверяем четыре кнопки "Option Button " с номерами, например, 7 ,8,9,10
если хоть одна из них имеет значение Off, то
сообщение " бла бла бла "
кнопке "Option Button 14" задаем значение On
ячеике А1 задаем значение ""
иначе ( все проверяемые кнопки имеют значение On)
ячеике А1 задаем значение "1"

[alex77755]

попробуй так:

Private Sub CommandButton1_Click()
For o = 7 To 10
    If ActiveSheet.Shapes("OptionButton" & o).OLEFormat.Object.Object.Value = True Then
        MsgBox "Ok", 64, ""
        Exit Sub
    End If
Next o
 MsgBox "No", vbCritical, ""
End Sub

[eikhner]

я наверное неправильно поставил условие , номера кнопок могут идти не от и до , а быть произвольными
например 7, 42 , 34 , 27 и тд

[alex77755]

Private Sub CommandButton1_Click()
Dim N()
N = Array(7, 2, 4, 5) ' номера кнопок
For o = 0 To 3
    If ActiveSheet.Shapes("OptionButton" & N(o)).OLEFormat.Object.Object.Value = True Then
        MsgBox "Ok", 64, ""
        Exit Sub
    End If
Next o
 MsgBox "No", vbCritical, ""
End Sub

[eikhner]

кнопки называются вот так вот
"Option Button 7", "Option Button 41", "Option Button 34", "Option Button 27"

в вашем случае пока пишет компонент с данным именем не наиден

и выделена желтым строка


If ActiveSheet.Shapes("OptionButton" & N(o)).OLEFormat.Object.Object.Value = True Then

переписал вот так вот If ActiveSheet.Shapes("Option Button" & N(o)).OLEFormat.Object.Object.Value = True Then - не помогло

[alex77755]

Я проверял на 2003 и у меня OptionButton7 без пробелов
Если в имени кнопки есть пробелы, то нужно внести изменения в макрос

[alex77755]

в 2007 тоже OptionButton1

[eikhner]

приложил фаил к пред сообщению

[eikhner]

всем спасибо , уважаемый d_ober1 помог справиться с проблемои на отлично

[alex77755]

N = Array(7, 2, 4, 5) ' номера кнопок
For o = 0 To 3
    If ActiveSheet.Shapes("Option Button " & N(o)).ControlFormat.Value = 1 Then
        MsgBox "Ok", 64, ""
        Exit Sub
    End If
Next o