人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: 匿名質問者
●カテゴリ:コンピュータ ウェブ制作
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

質問者から

ちなみに、どちらも試したのですが、上手くいかないので質問をさせて頂きました。


1 ● 匿名回答1号

dim b as long
これを
Public b as long
にして 標準モジュールに かく。



Private Sub CommandButton1_Click()
b = リスト名.ListIndex →ここ
End Sub

もちろん
b = リスト名.ListIndex
が正常にとれているということで。


匿名質問者さんのコメント
できました!! 変数宣言の種類知らなかったので、勉強になりました。 ありがとうございました。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ