匿名質問者
匿名質問者匿名質問者とは「匿名質問」を利用して質問した質問者。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら

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人10回まで
  • 13歳以上
  • 登録:2012/09/05 12:02:23
  • 終了:2012/09/12 12:05:02
匿名質問者

質問者から

匿名質問者2012/09/05 13:23:15

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

回答(1件)

匿名回答1号 No.1

匿名回答1号「匿名質問」を利用した質問に回答すると「匿名回答○号」と匿名で表示されます。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら
2012/09/05 12:14:51

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



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

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

匿名質問者

できました!!
変数宣言の種類知らなかったので、勉強になりました。
ありがとうございました。

2012/09/05 17:26:19

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません