VBAのコレクションのitemメソッド

Question

下記のようなコードで、独自のクラスを使って、collectionを作って、取り出したいです。
イメージではitem(1)で1レコード分の情報を表示できる（？）のかなと思っているのですが、
エラーになります。
使い方がまずいのでしょうか？

エラー 438 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
エラーは「Debug.Print persons.Item(1)」の部分で発生します

（最終的には、例えば「名前」をキーとして、対象レコードを取得してエクセルに反映したりしたいです。
調べるとitemメソッドが利用できるように思いました）

よろしくお願いします

Enum 列
    名前 = 1
    住所
    TEL
    誕生日
    性別
End Enum

Dim persons As New Collection

Sub main()

    Call データを取得する
    Call データを取り出す

End Sub

Sub データを取得する()

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("データ1")
        
    Dim i As Long
    
    Dim endRow As Integer
    endRow = Cells(4.1).End(xlDown).Row
    
    Dim endColumn As Integer
    endColumn = Cells(3, 1).End(xlToRight).Column
    
    For Each value In Range(Cells(4, 1), Cells(endRow, endColumn))
    
        With New Person
        
            .名前 = sh.Cells(value.Row, 列.名前)
            .住所 = sh.Cells(value.Row, 列.住所)
            .電話番号 = sh.Cells(value.Row, 列.TEL)
            .誕生日 = sh.Cells(value.Row, 列.誕生日)
            .性別 = sh.Cells(value.Row, 列.性別)
            persons.Add .self
        End With
    
    Next

End Sub

Sub データを取り出す()

    Debug.Print persons.Item(1)

End Sub

Public 名前 As String
Public 住所 As String
Public 電話番号 As String
Public 誕生日 As String
Public 性別 As String

Public Property Get 年齢() As Integer

    年齢 = DateDiff("yyyy", 誕生日, Date)

End Property

Public Property Get self() As Person

    Set self = Me

End Property

Comments

[m.ts10806]

念のため、どこで止まってるかデバッグして追記してもらって良いですか？

[meg_]

クラス定義の部分も掲載してください。

[roku28632]

すいません。
色々情報がありませんでした。

[meg_]

Excel2013だと「endRow = Cells(4.1).End(xlDown).Row」のところで、「オーバーフローしました」のエラーが発生します。質問者さんのエクセルのバージョンは何でしょうか？

[roku28632]

すいません。
入力データとして、表があります。
そのコードは4行1列目が開始行で表の最終行を取得しています。
入力データがないので、エクセルの最終行1048576に行ってしまいオーバーフローになったのだと思います。
dictonaryの生成はできており、あとはそれを参照したいという状態です。
ちなみにバージョンは2016です。

Answer 1

Dim persons As New Collection

こうやっても、クラスモジュールの実体化が出来てるわけではないので、
やってることとやりたいことが違うのでは？

クラスモジュールの中でコレクションを作らなきゃだめなのかな？

dictonaryの生成はできており

Collectionとdictonaryは別物ですよ？
この辺も再認識された方がよいかと思います。

あと、この例題だと、関数作るくらいで十分なので、
クラスモジュールの練習にはあんまり向いてないかも？
dictonaryオブジェクトの練習にはいいかもしれません。
まぁ、練習なのでやってみてもいいかもしれませんが、
それぞれの違いを再認識されることをお勧めします。

あと、セル範囲は、
行のコレクションであり、
列のコレクションであり、
セルのコレクションです。（矩形のコレクションという見方もありますが）
敢えて独自のコレクションを作る必要がないということも、
認識しておいてください。

知ってるけど、練習なので、敢えてやってる、ということならば、
無視して結構です。

---

あ、クラスモジュールで、
dictionaryオブジェクトと同じような機能を作ってみてるということでしょうか？

Comments

[roku28632]

collectionと書こうと思って間違えて、dictonaryと書いてしまいました。
混乱させてしまってすいません。
表を扱うのにcollectionにオブジェクトを突っ込む方法を取りたかったのです。
別の方の回答がズバリやりたかったことでした。

[mattuwan]

名前でなく、番号だけど？
番号でいいなら、
対象セル範囲.rows(1)
でいいんじゃ？

[roku28632]

>>名前でなく、番号だけど？
これはどの部分の話でしょうか

[mattuwan]

〉最終的には、例えば「名前」をキーとして、対象レコードを取得してエクセルに反映したりしたいです。

[mattuwan]

〉Debug.Print persons.Item(1)

[roku28632]

検索したいkeyをaddする時に指定してやればいけました。
persons.Add .self, sh.Cells(value.Row, 列.名前)
あと、コメントにいただいていたクラスモジュールの実体化は途中のforeachの中でnewしていますよ。

[mattuwan]

あー。そうでしたか。
こちらも、よく見てなかったですが、
クラスの名前の説明もないし、addメソッドも、提示されてないし、
で、やりたいことは、

msgbox persons.get年齢(¨田中一郎¨)

というような感じで年齢などを取得したいと言うことではなくて？

それとも、

msgbox persons.item(¨田中一郎¨).年齢

というような形にしたいのかなと思ったんですが、
違いましたか。

ああー。なんか勘違いでしたら失礼しました。

[roku28632]

いえいえ、わざわざコメント付き合っていただきありがとうございました。^^

Answer 2

persons.Item(1)はPersonオブジェクトです。
Debug.Print persons.Item(1)ではなく、例えばDebug.Print persons.Item(1).住所とすれば住所が出力されます。

Comments

[roku28632]

回答いただいたのが、やりたかったことです。
ありがとうございます。
Debug.Print persons.Item(1)でレコードごと出力されるのかと思ってましたが、プロパティの指定が必要でしたね。