Bug with For Each enumeration on x64 Custom Classesの解決方法【2025年最新版】

エラーの概要・症状

このエラーメッセージは、Windowsの64ビット環境において、カスタムクラスのコレクションに対してFor Eachループを使用した際に発生する問題です。具体的には、カスタムクラスを用いて作成したコレクションをFor Eachで列挙することができず、エラーが発生するという症状が見られます。

このエラーが発生すると、プログラムが正常に動作せず、意図したデータの処理ができなくなります。特に、カスタムコレクションを多く使用しているアプリケーションでは、影響が大きく、開発者はこのエラーに対処する必要があります。ユーザーはエラーの詳細を把握することが難しく、非常に困惑することが多いです。

このエラーが発生する原因

このエラーの原因は、64ビットのカスタムクラスにおけるFor Eachループの列挙処理に関する問題です。具体的には、以下のような要因が考えられます。

1. メモリ管理の不適切さ: 64ビット環境では、メモリアドレスの管理が32ビット環境とは異なります。特に、カスタムクラスのコレクションをFor Eachで列挙する際に、メモリポインタが適切にセットされないことが原因でエラーが発生します。

2. カスタムクラスの定義ミス: カスタムクラスが正しく定義されていない場合、特にNewEnumメソッドの定義に不備があると、For Eachループが正常に機能しません。NewEnumは列挙可能なオブジェクトを返す必要があります。

3. 使用しているVBAのバージョン: 使用しているVisual Basic for Applications（VBA）のバージョンによっても、このエラーが発生する可能性があります。特に古いバージョンでは、64ビット環境に最適化されていないことがあります。

これらの要因により、64ビット環境でカスタムクラスのコレクションをFor Eachで列挙する際にエラーが発生します。