如何將Excel上的複選框鏈接到VBA代碼

Question

我在Excel工作表上使用設計模式創建了一個複選框，我已經將它點擊並命名爲ChkV，並且我編寫了一個VBA代碼，但是當我運行它時，告訴該變量未定義的消息。

If ChkV.Value = True Then 
     ' my code 
    End If 

我沒有正確標記複選框，我做錯了什麼？我應該如何解決這個錯誤？

Answer 1

豈不是

If activesheet.Checkboxes("ChkV") = xlOn Then 
'your code 
End If 

？

Answer 2

當您撥打Sheet module以外的checkbox所在的位置時，發生此錯誤。爲了提高你的代碼，你需要將引用添加到表，其中checkbox屬於，比如：

If Sheets("Sheet 1").ChkV.Value = True Then 
    ' my code 
End If 

Answer 3

您好我一遍又一遍地打破我的頭再爲這一點，但搜索我發現，你需要的CodeName指的板材或使用OleObjects

1. 通過Code Name是您在VBA Project tree怎麼看：

   Hoja1.[CheckBoxName].Value 
   '' In English or what ever you may call your sheet is: 
   Sheet1.[CheckBoxName].Value 
   

2. 通過OleObjects是：

   Dim Wks as Worksheet 
   Set Wks = Worksheets("[SheetName]") '' in this case "Prueba" 
   Wks.OLEObjects("[CheckBoxName]").Object.Value 
   

請注意，我的Excel在西班牙這就是爲什麼你看到Hoja1，在英語中是Sheet1，你可以找到別的here。