質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

2回答

20115閲覧

VBA のListbox.ListCountについて

退会済みユーザー

退会済みユーザー

総合スコア0

VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2015/11/17 10:52

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

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

VBA

1Private Sub UserForm_Initialize() 2 3 Worksheets("商品マスタ").Select 4 5With ListBox1 6 .Font.Size = 10 7 .ColumnCount = 7 8 .ColumnWidths = "50;100;80;80;100;30;70" 9 .TextAlign = fmTextAlignLeft 10 .Font.Name = "MS ゴシック" 11 12'リストボックスんい商品マスタシートの情報を反映させる 13'.ListCountは、Listの0行目のことでしょうか? 14 Dim i As Integer 15 Dim LastLow As Integer 16 LastLow = Range("A60000").End(xlUp).Row 17 For i = 2 To LastLow 18 .AddItem Cells(i, 1).Value 19'ここから完全に.ListCountにどの様な値がはいっているか 20'分からない状態です。。。 21 .List(.ListCount - 1, 1) = Cells(i, 2).Value 22 .List(.ListCount - 1, 2) = Cells(i, 3).Value 23 .List(.ListCount - 1, 3) = Cells(i, 4).Value 24 .List(.ListCount - 1, 4) = Cells(i, 5).Value 25 .List(.ListCount - 1, 5) = Cells(i, 6).Value 26 .List(.ListCount - 1, 6) = Cells(i, 7).Value 27 28 Next 29End With 30 31End Sub 32

イメージ説明

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

こんにちは。

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

投稿2015/11/17 11:04

Tak1wa

総合スコア4791

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

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行目
みたいに繰り返されます

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

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

投稿2015/11/17 11:02

編集2015/11/17 11:19
dojikko

総合スコア3939

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2015/11/17 11:49

.AddItemの前と後ろにmsgbox .ListCountを入れて実行してみました。その結果、 .AddItemの前は、0。.AddItemの後は1になっていました。 ListCountは、行数でした!!私も、うまく説明できませんが、 つまり、リストボックスの中に1行追加。そして、ListBox内のListの行数は、0から数えるから、.ListCount-1としている訳ですね?
ExcelVBAer

2015/11/23 10:27

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問