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永远不能成为工作表。因此，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变量。当然最好将dim作为正确的对象而不是使用泛型as Object，但我不确定它会是什么。

ActiveSheet与WorkSheet

1 个答案: