表格中的复选框,使用OleObjects集合进行调用,方法如下:
Sub xx()
Sheet2.OLEObjects("Checkbox1").Object.Value = True
'OLEObjects("Checkbox1").Object就表示CheckBox1对象
'.Value表示复选框选中状态
'=True表示选中
' Sheet2.OLEObjects("Checkbox1").Object.Value = True代码的意思就是选中CheckBox1复选框
MsgBox SHeet2.OLEObjects("Checkbox2").Object.Value
End Sub
可以在Sheet2表格里面添加两个复选框CheckBox1和Checkbox2进行测试。