如何将vb复选框的值传递给excel复选框答案

【问题标题】：How to pass value of vb checkbox to excel checkbox如何将vb复选框的值传递给excel复选框
【发布时间】：2014-12-29 10:28:37
【问题描述】：

我已经在互联网上尝试了这里的东西，但我仍然无法使其工作。

我的代码是这样的：

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`

【问题讨论】：

只是一个简短的说明，你会考虑缩短代码一点吗？并不是说它真的很重要，但例如说'checkbox1.checked = true'。只是认为简化代码会更容易阅读

标签： vb.net excel checkbox vba

【解决方案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 控件的名称不能有空格，但表单控件复选框可以。这就是我提供两个答案的原因。

【讨论】：

你的意思是活动的 x 不能有空格？因为你说两者都可以