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

エラーの概要・症状
このエラーが発生する原因
解決方法1（最も効果的）
解決方法2（代替手段）
解決方法3（上級者向け）
エラーの予防方法
関連するエラーと対処法
まとめ

エラーの概要・症状

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

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

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

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

メモリ管理の不適切さ: 64ビット環境では、メモリアドレスの管理が32ビット環境とは異なります。特に、カスタムクラスのコレクションをFor Eachで列挙する際に、メモリポインタが適切にセットされないことが原因でエラーが発生します。
カスタムクラスの定義ミス: カスタムクラスが正しく定義されていない場合、特にNewEnumメソッドの定義に不備があると、For Eachループが正常に機能しません。NewEnumは列挙可能なオブジェクトを返す必要があります。
使用しているVBAのバージョン: 使用しているVisual Basic for Applications（VBA）のバージョンによっても、このエラーが発生する可能性があります。特に古いバージョンでは、64ビット環境に最適化されていないことがあります。

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

解決方法1（最も効果的）

手順1-1（具体的なステップ）

カスタムコレクションのクラスを定義します。以下のコードを参考にしてください。

   Option Explicit
   
   Private m_coll As Collection
   
   Private Sub Class_Initialize()
       Set m_coll = New Collection
   End Sub
   
   Private Sub Class_Terminate()
       Set m_coll = Nothing
   End Sub
   
   Public Sub Add(v As Variant)
       m_coll.Add v
   End Sub
   
   Public Function NewEnum() As IEnumVARIANT
       Attribute NewEnum.VB_UserMemId = -4
       Set NewEnum = m_coll.[_NewEnum]
   End Function

手順1-2（詳細な操作方法）

上記のクラスを使って、カスタムコレクションを作成します。以下のコードをMainサブルーチンに追加します。

   Sub Main()
       #If Win64 Then
           Dim c As New CustomCollection
           c.Add 1
           c.Add 2
           ShowBug c
       #Else
           MsgBox "This bug does not occur on 32 bits!", vbInformation, "Cancelled"
       #End If
   End Sub

ShowBugサブルーチンを定義し、For Eachループを使用してカスタムコレクションを列挙します。以下のコードを追加します。

   Sub ShowBug(ByRef c As CustomCollection)
       Dim v As Variant
       For Each v In c
           Debug.Print v
       Next v
   End Sub

注意点とトラブルシューティング

NewEnumメソッドが正しく実装されていることを確認してください。正しい返り値が設定されていない場合、For Eachループは正常に機能しません。
64ビット環境でのみ発生するため、32ビット環境での動作を確認してエラーが発生しないことを確認してください。

解決方法2（代替手段）

もし上記の方法が効果がない場合は、以下の代替手段を試してください。

デバッグ情報の確認: Debug.Printを使用して、各ステップで変数の状態を出力し、どの部分でエラーが発生しているかを明確にします。
エラーハンドリングの実装: On Errorステートメントを使用して、エラー発生時にどのように処理するかを記述します。

   On Error GoTo ErrorHandler
   '... your code ...
   Exit Sub
   ErrorHandler:
       MsgBox "エラーが発生しました: " & Err.Description

解決方法3（上級者向け）

より技術的なアプローチとして、以下のような方法があります。

メモリポインタの管理: 直接メモリポインタを管理する方法を試すことで、エラーを回避することが可能です。
API関数の利用: Windows APIを利用して、より低レベルのメモリ管理を行うことができますが、これはVBAの範疇を超えるため、十分な知識と理解が必要です。

エラーの予防方法

エラーを未然に防ぐためには、以下のような予防策を講じることが重要です。

コードのレビュー: カスタムクラスを作成する際は、他の開発者によるコードレビューを行い、潜在的なエラーを早期に発見します。
ユニットテストの実施: カスタムクラス作成後には必ずユニットテストを行い、意図した通りに動作するか確認します。
定期的なメンテナンス: コードのリファクタリングを行い、古くなった部分や不必要なコードを排除します。

まとめ

本記事では、Bug with For Each enumeration on x64 Custom Classesのエラーについて詳しく解説しました。主な原因はメモリ管理やクラス定義の不備にありますが、正しい手順を踏むことで効果的に解決できます。特に、カスタムクラスの定義やエラーハンドリングをしっかりと行うことが、エラーを未然に防ぐ鍵となります。次回は、関連するエラーの対策や、コードの最適化について考えていきましょう。

Bug with For Each enumeration on x64 Custom Classesの解決方法【…