VBA のListbox.ListCountについて

Question

お疲れ様です。pipiでございます。
vbaで以下の.ListCountが、何の値（数値）を取得している
のか分からない状態です。Listbox内は、0行目から数えられるから0行目を取得しているのでしょうか？
Listbox内の行の数え方と、Excelの行の数え方が、なかなか
連動しません。。。

どなたかご教授願います。

Private Sub UserForm_Initialize()
    
    Worksheets("商品マスタ").Select
    
With ListBox1
    .Font.Size = 10
    .ColumnCount = 7
    .ColumnWidths = "50;100;80;80;100;30;70"
    .TextAlign = fmTextAlignLeft
    .Font.Name = "ＭＳ ゴシック"
    
'リストボックスんい商品マスタシートの情報を反映させる
'.ListCountは、Listの0行目のことでしょうか？
    Dim i As Integer
    Dim LastLow As Integer
    LastLow = Range("A60000").End(xlUp).Row
    For i = 2 To LastLow
            .AddItem Cells(i, 1).Value
'ここから完全に.ListCountにどの様な値がはいっているか
'分からない状態です。。。
            .List(.ListCount - 1, 1) = Cells(i, 2).Value
            .List(.ListCount - 1, 2) = Cells(i, 3).Value
            .List(.ListCount - 1, 3) = Cells(i, 4).Value
            .List(.ListCount - 1, 4) = Cells(i, 5).Value
            .List(.ListCount - 1, 5) = Cells(i, 6).Value
            .List(.ListCount - 1, 6) = Cells(i, 7).Value
        
    Next
End With

End Sub

Answer 1

こんにちは。

単純にListBox内のデータ個数だった気がしますが…
何が懸念なのでしょうか？

Answer 2

0オリジンと1オリジンがごっちゃになっているだけなのかなと思いました

うまく説明できていないかもしれませんが
ListBoxについて

• ListCountは行数(1から始まる)
• Listの1行目は0(0から始まる)

コードでは
.AddItemで1行増える
ListCountは1
.List(.ListCount - 1は0なのでListBoxの1行目
ForNextのループ内なので条件を満たすまで
.AddItemで1行増える
ListCountは2
.List(.ListCount - 1は1なのでListBoxの2行目
みたいに繰り返されます

どの様な値がはいっているか分からない状態です。。。

わからない動作はステップ実行してみて、いまどうなっているか確認する癖をつけるとよいです

Comments

[退会済みユーザー]

.AddItemの前と後ろにmsgbox .ListCountを入れて実行してみました。その結果、
.AddItemの前は、０。.AddItemの後は1になっていました。

ListCountは、行数でした！！私も、うまく説明できませんが、
つまり、リストボックスの中に1行追加。そして、ListBox内のListの行数は、0から数えるから、.ListCount-1としている訳ですね？

[ExcelVBAer]

その認識で合っていますよ。