Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6623 / 13644 ツリー ←次へ | 前へ→

【44170】ListBox.RowSourceの設定 ℃素人 06/11/7(火) 10:49 質問[未読]
【44171】Re:ListBox.RowSourceの設定 Jaka 06/11/7(火) 11:13 発言[未読]
【44172】Re:ListBox.RowSourceの設定 Jaka 06/11/7(火) 11:21 発言[未読]
【44173】Re:ListBox.RowSourceの設定 ℃素人 06/11/7(火) 11:36 お礼[未読]

【44170】ListBox.RowSourceの設定
質問  ℃素人  - 06/11/7(火) 10:49 -

引用なし
パスワード
   お世話になります。

ユーザーフォームの方のリストボックス(ListBox)を使用しています。

今はリストボックスのデータの指定は
Private Sub UserForm_Initialize()

ListBox1.RowSource = "データ!A1:B5250"

End Sub
という風に使っています。
ですが、最近元データの変更が頻繁にされるため、最終行を自動で取得してリストボックスに反映させたいと思っていますが、.RowSourceの型が解りません。
どのように指定してやればいいのでしょうか?

リストに必要なのは、
データという名前のシート内の A列とB列です。
よろしくお願いします。

【44171】Re:ListBox.RowSourceの設定
発言  Jaka  - 06/11/7(火) 11:13 -

引用なし
パスワード
   ▼℃素人 さん:
>.RowSourceの型が解りません。
文字です。
だから、こんなでいいです。

変数 = "データ!" & "A1:B" & Sheets("データ").Range("B65536").End(xlup).row
ListBox1.RowSource = 変数

【44172】Re:ListBox.RowSourceの設定
発言  Jaka  - 06/11/7(火) 11:21 -

引用なし
パスワード
   もちっと整理すると

Dim シート名 As string,変数 As string
シート名 = "データ"

変数 = シート名 & "!A1:B" & Sheets(シート名).Range("B65536").End(xlup).row

【44173】Re:ListBox.RowSourceの設定
お礼  ℃素人  - 06/11/7(火) 11:36 -

引用なし
パスワード
   ▼Jaka さん:
早速のご回答ありがとうございました!
String型なのですね・・・
理解できましたし、本当に助かりました。

本当にありがとうございました!

6623 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free