如何將VB復選框的值傳遞給Excel復選框

Question

我已經在互聯網上嘗試過這些東西，但仍然無法正常工作。

我的代碼是這樣的：

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range

If Center_for_Patient_PartnershipsCboxCheckBox.CheckState = CheckState.Checked Then
    oSheet.OLEObjects("Check Box 1").Object.Value = 1
Else
    oSheet.OLEObjects("Check Box 1").Object.Value = 0
End If`

Answer 1

如果是“表單控件”復選框：

oSheet.Shapes("Check box 1").ControlFormat.Value = 0  'Uncheck
oSheet.Shapes("Check box 1").ControlFormat.Value = 1  'Check

---

如果是Active X復選框：

oSheet.OLEObjects("CheckBox1").Object.Value = 0  'Uncheck
oSheet.OLEObjects("CheckBox1").Object.Value = 1  'Check

---

請注意，活動x控件的名稱不能有空格，但窗體控件復選框可以。 這就是為什么我提供了兩個答案的原因。