既定メンバ(既定のプロパティ)とするには
Collection で Item が省略できるように if e.hasError then を if e then とできないか調べてみたらどうやらできるみたいだ。
(VBAだから,ちょっとトリッキーだけど)
まずは普通にプロパティを定義
Public Property Get hasError() As Boolean hasError = Me.number <> ERR_INFO_NO_ERROR End Function
でその後に,このクラスをエキスポート&解放し,下記のように変更してからインポートする。
Public Property Get hasError() As Boolean Attribute hasError.VB_UserMemId = 0 hasError = Me.number <> ERR_INFO_NO_ERROR End Function
とりあえず,excel 2003 では動いた。今後どうなるかとか前のバージョンではどうなるかはわからない。。。