excel - ActiveSheet 与 WorkSheet

标签 excel vba macos

我正在使用 Excel for Mac 2011,我在一张纸上有几个复选框。我正在尝试使用以下代码使它们自动化:

Private Sub CheckBox12_Click()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    With ws
        If .Shapes("CheckBox12").OLEFormat.Object.Value = xlOn Then
           .Range("CK1").EntireColumn.Hidden = False
       Else
           .Range("CK1").EntireColumn.Hidden = True
       End If
   End With
End Sub

这段代码给了我错误:
运行时错误 445 对象不支持此操作。

但是,如果删除 ws 并执行
Private Sub CheckBox12_Click()
    With ActiveSheet
         If .Shapes("CheckBox12").OLEFormat.Object.Value = xlOn Then
            .Range("CK1").EntireColumn.Hidden = False
         Else
            .Range("CK1").EntireColumn.Hidden = True
        End If
    End With
End Sub

这工作得很好。

这是怎么回事?我知道我可以只使用 ActiveSheet,但我总是喜欢先设置它 = ws,因为它在我编码时提供了属性/方法的下拉列表。

最佳答案

我认为您遇到的是编译器错误,而不是运行时错误。

我怀疑 ActiveSheet 工作的原因是因为编译器没有检查它。另一方面, ws 不起作用,因为编译器正在尝试解析它并且实际上有一个错误标志。所以编译器检查器有错误。它正在标记一个实际上不应该是错误的错误。

Object doesn't support this action (Error 445)

编辑:也试试这个,让我知道它是否有效:

Dim ws As Object
Set ws = ActiveSheet
With ws
    ...

还值得注意的是ActiveSheetWorksheet不是一回事。 ActiveSheet还可以包括 ChartSheet;但 ChartSheet 永远不能成为 Worksheet。因此,With ws 之间存在差异也许并不奇怪。和 With ActiveSheet .

您应该尝试的另一件事是将对象设置为变量:
Dim ws As Worksheet
Set ws = ActiveSheet
Dim chk As Object
With ws
    Set chk = .Shapes("CheckBox12").OLEFormat.Object
    If chk.Value = xlOn Then
        .Range("CK1").EntireColumn.Hidden = False
    Else
        .Range("CK1").EntireColumn.Hidden = True
    End If
End With

这可能会从等式中删除 ws 变量。当然,最好将其调暗为正确的对象,而不是使用通用的as Object。但我不确定会是什么。

关于excel - ActiveSheet 与 WorkSheet,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24739448/

相关文章:

excel - VBA 宏循环遍历行中的列并比较值

vba - 如何仅在 UserForm1 的 Page1 中计算 "Checkboxes"?

php - 需要为 OpenCart 加载 ZIP 扩展 - macOS Big Sur

java - 在 Mac 上的 Java 应用程序中禁用弹出菜单

excel - 覆盖列表框源范围内的值

excel - 使用Excel VBA控制Word和PDF的错误处理

c++ - 将二维数组从 c++ xll 返回到 excel,返回

excel - 在字符串中每n个字符后插入一个空格

ms-access - Sleep Lib "kernel32"给出 64 位系统错误

macos - 文件是为不受支持的文件格式构建的,这不是所链接的体系结构 (x86_64)