Excel for Mac の Visual Basic エディターで "サポートされていないオートメーションが変数で使用されています" というエラーが発生する

最終更新日: 2017 年 11 月 10 日

問題

Excel for Mac では、新しい Visual Basic Editor が 2017 年 10 月に導入されました。この新しい VB エディターを使用して、コード ウィンドウの上部にあるドロップダウン メニューから選択して、オブジェクト宣言を作成すると問題が発生します。

左側のドロップダウンをクリックして一覧からアイテムを選択する場合は、右側のドロップダウン リストで選択されているイベントのコードを入手する必要があります。右側のドロップダウン リストから追加で選択して、選択されたイベントを処理するための追加コードを作成することができます。

オブジェクト選択ドロップダウン リストを表示している VBA エディター

代わりに、コードが作成されていないというエラーが発生します。

Microsoft Visual Basic のエラー: Visual Basic でサポートされていないオートメーションが変数で使用されています。

状態: 回避策

この問題に対して、次の回避策のいずれかを選択します。

回避策 1

Excel for Windows を実行しているコンピューターと同様の手順を実行して、コードを Excel for Mac へコピーすることができます。

回避策 2

MSDN にアクセスして使用するイベントの構文を検索し、VBA プロジェクトに手動でコードを入力することができます。この記事では、Microsoft Excel の "workbook" イベントについて説明しています - 「Workbook イベント」。

回避策 3

次のサンプルから適切なイベント コードをコピーし、VBA プロジェクトに貼り付けます。イベントごとに、"Private Sub..." から "End Sub" までを含めてコピーするようにしてください。

    
    

Private Sub Workbook_Activate()

End Sub

Private Sub Workbook_AddinInstall()

End Sub

Private Sub Workbook_AddinUninstall()

End Sub

Private Sub Workbook_AfterRemoteChange()

End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforeRemoteChange()

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub Workbook_Deactivate()

End Sub

Private Sub Workbook_NewChart(ByVal Ch As Chart)

End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)

End Sub

Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)

End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)

End Sub

エキスパートのアイコン (脳、歯車)

エキスパートに質問する

エキスパートとつながり、最新の Excel のニュース、更新プログラム、ベスト プラクティスについて議論し、ブログを参照します。

Excel 技術コミュニティのホーム

コミュニティのアイコン

コミュニティでサポートを得る

サポート担当者、MVP、エンジニア、その他の Excel ユーザーに質問し、解決策を見つけます。

Answers の Excel フォーラム

機能リクエストのアイコン (電球、アイデア)

新機能の提案

ご意見ご感想をお待ちしております。ご意見をお聞かせください。ご意見をお待ちしています。

Excel UserVoice

関連項目

最近の Excel for Mac の問題に関する修正プログラムと回避策

サポートを受ける
お問い合わせ
Office のスキルを磨く
トレーニングの探索

この情報は役に立ちましたか?

ご意見をいただきありがとうございます。

フィードバックをお寄せいただき、ありがとうございます。Office サポートの担当者におつなぎいたします。

×