excel - ActiveSheet 与 WorkSheet

Question

我正在使用 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，因为它在我编码时提供了属性/方法的下拉列表。

Answer 1

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

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

Object doesn't support this action (Error 445)

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

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

还值得注意的是 ActiveSheet和 Worksheet不是一回事。 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。但我不确定会是什么。