在VBA中使用OR

Question

我有2個單選按鈕可以完成相同的命令。所以我試圖把它們放在1個使用OR的子中。

區別在於1個單選按鈕是「表單控件」，另一個是「activeX控件」。

我試着在模塊中的下面的代碼，並沒有成功。

radion按鈕名稱
表單控件：temp_opt_csmin
ActiveX控件：opt_csmin

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 

但是，沒有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