ActiveSheet vs. 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不能成爲工作表。因此，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，但我不確定它會是什麼。