VBAでリストボックスのindex番号を変数として使用したい
b = リスト名.ListIndex
として、取得した値をcells(a,b)のbに代入する場合、
上記変数定義をどこに配置すればいいのかわかりません。。
教えてくださいませ。
とりあえず書いてみた内容は下記です。
'リストフォームを開く→Private Sub UserForm_Initialize()へ→選択
リストボックス名.Show
Private Sub CommandButton1_Click()
dim b as long
b = リスト名.ListIndex →ここですか?
End Sub
'選択した年月列の金額を集計する
b = リスト名.ListIndex →ここですか?
For a = 1 To 10
If A.Cells(a, 1) = Z.Cells(1, 1) Then
金額 = 金額 + .Cells(a, b) →bに代入
End If
Next a