Обнаружить, если в VBA выбрана кнопка управления формой.

Question

У меня есть код, который отлично работает, используя кнопки опций ActiveX. Тем не менее, я хочу, чтобы макрос работал на Mac, поэтому я пытаюсь заменить элементы управления ActiveX элементами управления формой. С помощью ActiveX, все, что я должен был сделать для того, чтобы проверить, если один из двух моих переключателей был выбран:

Sub OptionButton1_Click 
    If OptionButton1.Value = true then 
     (action...) 
    End if 
    End sub 

Я пытался найти эквивалент для формы управления на Google, но каждый раз, когда я получаю:

требуется объект ошибки

большое спасибо за ваши ответы @ L42 и @Sai Nishank! Теперь, что, если я хочу проверить OptionButton_Click, если кнопка опции из другой группы истинна? Я попробовал этот синтаксис, но я получаю сообщение об ошибке: «Обобщение метода ошибок или данные не найдены»

Sub USDButton_Click() 
    MsgBox "USD" 
    If Sheet1.BTUButton = True Then 
    (action1) 
    End If 
    If Sheet1.kWhButton = True Then 
    (action2) 
    End If 

Я не уверен, если BTUButton правильного название кнопки, но я не где, чтобы проверить, управления формы не имеют, что под рукой «Щелкните правую кнопку мыши> Свойства», как ActiveX

Answer 1

сильного текст

Вы должны удалить .Value от кнопки вариант, так как кнопки выбора предназначены для истинного или ложного. Поэтому нет необходимости упоминать .value и попробовать это, он будет работать сейчас. и вы будете писать все там под commanbutton_click. потому что когда когда-либо щелкнули командную кнопку, действие кнопки опции будет запущено

И если вы хотите, чтобы o запускал действие при нажатии кнопки выбора, не записывайте, если цикл для этого.

Sub CommandButton1_Click 
    If OptionButton1 = true then 
    (action...) 
    End if 
    End sub 

Sub OptionButton1_Click 

(action...) 
End sub 

Answer 2

Если вы используете Form Control, вы можете получить такое же свойство, как ActiveX, используя OLEFormat.Object свойство Shape Object. А еще лучше назначить его в переменной, объявленной в OptionButton получить Intellisense удар в.

Dim opt As OptionButton 

With Sheets("Sheet1") ' Try to be always explicit 
    Set opt = .Shapes("Option Button 1").OLEFormat.Object ' Form Control 
    Debug.Pring opt.Value ' returns 1 (true) or -4146 (false) 
End With 

Но опять же, вы действительно не нужно знать значение.
Если вы используете Form Control, вы связываете с ним Macro или подпрограмму, которая выполняется, когда она выбрана. Поэтому вам просто нужно настроить подпрограмму, которая идентифицирует, какая кнопка нажата, а затем выполнить соответствующее действие для нее.

Например, у вас есть 2 Form Control Опция Кнопки.

Sub CheckOptions() 
    Select Case Application.Caller 
    Case "Option Button 1" 
    ' Action for option button 1 
    Case "Option Button 2" 
    ' Action for option button 2 
    End Select 
End Sub 

В приведенном выше коде у вас есть только одна подпрограмма, назначенная обеим кнопкам.
Затем вы проверяете, что вызвало подпрограмму, проверив Application.Caller.
Таким образом, нет необходимости проверять, является ли значение кнопки опции истинным или ложным.