VBAでのORの使用

Question

全く同じコマンドを実行する2つのラジオボタンがあります。だから私はORを使って1つのサブに入れようとしています。

違いは、1つのラジオボタンが「フォームコントロール」で、もう1つが「アクティブXコントロール」であることです。

以下のコードをモジュールで試してみましたが、成功しませんでした。

放射子ボタン名
フォームコントロール：temp_opt_csmin
ActiveXコントロール：

Sub opt_csmin_Click() 

    If Worksheets("sheet1").Shapes("temp_opt_csmin").OLEFormat.Object.Value = "1" Or Worksheets("sheet1").opt_csmin.Value = True Then 
    Worksheets("sheet1").Range("M2").Value = "MINIMUM" 
    End If 

End Sub 

opt_csminしかし、Or Worksheets("sheet1").opt_csmin.Value = Trueなしそれが動作します。

ORを使用して参加できますか？

ありがとうございました。

Answer 1

コードは私のために働く。コードをどのように呼び出すのかを理解する必要がありますか？

'~~> This code is linked with temp_opt_csmin using Assign Macro 
Sub temp_opt_csmin_Click() 
    If Worksheets("sheet1").Shapes("temp_opt_csmin").OLEFormat.Object.Value = "1" Or _ 
    Worksheets("sheet1").opt_csmin.Value = True Then 
     Worksheets("sheet1").Range("M2").Value = "MINIMUM" 
    End If 
End Sub 

'~~> Code is the click event of the ActiveX control 
Private Sub opt_csmin_Click() 
    If Worksheets("sheet1").Shapes("temp_opt_csmin").OLEFormat.Object.Value = "1" Or _ 
    Worksheets("sheet1").opt_csmin.Value = True Then 
     Worksheets("sheet1").Range("M2").Value = "MINIMUM" 
    End If 
End Sub