主页 / 问题 / 1595875
Accepted
Леонид
Asked:2024-10-06 23:34:48 +0000 UTC2024-10-06 23:34:48 +0000 UTC

再次使用复选框宏

  • 772

我已经联系过这个宏（复选框宏）并收到了全面的答复：

For i = 1 To 6
  If Controls("CheckBox" & i) = False Then  
    MsgBox "TEST", vbOKOnly
  End If
Next

但我的 Excel 暂时不想运行它，VBA 编辑器报告“控件未定义”，请帮我解决这个问题。继续搜索我的问题，我发现在同一个英语网站https://stackoverflow.com/a/57983985/27667238 上有一个答案，于 2019 年给出，但我的英语水平不允许我立即找到答案。

excel

1 个回答

  1. Best Answer

    工作表中的对象可通过 Shapes 集合访问：

    1. 对于表单控件：
    ActiveSeet.Shapes("CheckBox" & i).DrawingObject
    1. 对于 ActiveX 控件：
    ActiveSeet.Shapes("CheckBox" & i).DrawingObject.Object

    您可以通过复选框的外观、行为或 Shape.Type 值来确定其类型： ActiveSeet.Shapes("CheckBox" & i).Type

    1. msoFormControl 是表单控件类型的复选框。
    2. msoOLEControlObject 是 ActiveX 控件类型的复选框。
    • 0

相关问题