VBA中如判断取CheckBox是否选中

yqchenlolo

在excel里面添加了一个CheckBOx按钮，
如何在VBA中判断这个按钮是否选中（即是否打钩与否）？
多谢

测试.rar (8.84 KB, 下载次数: 306)

2010-5-6 11:35 上传

点击文件名下载附件

unsamesky

private sub checkbox1_click()
   if me.OLEobjects("Checkbox1").object.value = true then msgbox "选中"
  '可以简写为：
  'if me.OLEobjects("Checkbox1").object.value   then msgbox "选中"
  'If CheckBox1.Value Then MsgBox "选中"
end sub

mineshine

仅供参考

Sub TETS()
If CheckBox1 = True Then
    MsgBox "CheckBox 已勾选!", vbInformation
Else
    MsgBox "CheckBox 没勾选!", vbInformation
End If
End Sub

yqchenlolo

原帖由 mineshine 于 2010-5-6 11:45 发表
仅供参考

Sub TETS()
If CheckBox1 = True Then
    MsgBox "CheckBox 已勾选!", vbInformation
Else
    MsgBox "CheckBox 没勾选!", vbInformation
End If
End Sub

多谢楼上两位，
那这段代码我好像要放在控件所在的代码页面才会生效，
我如果引用其他sheet页面的控件，应该怎么引用？

mineshine

指定工作表
Sub TETS()
With Sheets("Sheet1")
    If .CheckBox1 = True Then
        MsgBox "Sheet1 CheckBox 已勾选!", vbInformation
    Else
        MsgBox "Sheet1 CheckBox 没勾选!", vbInformation
    End If
End With
End Sub

yqchenlolo

非常感谢高手帮忙

Dead丶小峰

学习了，可以拓展到n多checkbox。。。。研究中

子曰然也

mineshine 发表于 2010-5-6 11:45
仅供参考

Sub TETS()

谢谢了，我今天用到了这段代码，解决大问题了！