我正在使用 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
...
还值得注意的是
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
。但我不确定会是什么。
关于excel - ActiveSheet 与 WorkSheet,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24739448/