excel顯示變量使用不支持的 Automation 類型怎么辦 - Excel for Mac--工作表

上次更新時間：2019 年 4 月 10 日

問題

2017 年 10 月，Excel for Mac 中引入了新的 Visual Basic 編輯器。 引入此新 VB 編輯器以來，通過從代碼窗口頂部的下拉菜單中進行選擇的方式來創建對象聲明存在問題。

如果你單擊左側的下拉菜單并從列表中選擇一項，應在右側的下拉列表中獲得所選事件的一些代碼。 你可以從右側的下拉列表中進行其他選擇，以創建其他代碼來處理所選事件。

從而避免發生無法創建代碼的錯誤。


狀態：解決方法

請選擇以下臨時解決方法之一解決此問題：

臨時解決方法 1

你可以在運行 Excel for Windows 的計算機上執行相似的步驟，然后將代碼復制到 Excel for Mac。

臨時解決方法 2

你可以轉到 MSDN，找到想要使用的事件的語法，并手動將代碼鍵入 VBA 項目。 本文介紹 Microsoft Excel“工作簿”事件 - 工作簿事件。

臨時解決方法 3

復制以下示例中的相應事件代碼，并將其粘貼到 VBA 項目。 每個事件都必須從“Private Sub...”部分復制到“End Sub”部分（包含這兩句）。


Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDelete()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_Calculate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_LensGalleryRenderComplete()

End Sub

Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)

End Sub