[英]How to pass value of vb checkbox to excel checkbox
我已经在互联网上尝试过这些东西,但仍然无法正常工作。
我的代码是这样的:
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`
如果是“表单控件”复选框:
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控件的名称不能有空格,但窗体控件复选框可以。 这就是为什么我提供了两个答案的原因。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.