□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| リストボックスの１列目はシート名、２列目に１行目のシート名のrange("A1")の値を表示させるには？ | |
|---|---|
[195089] リストボックスの１列目はシート名、２列目に１行目のシート名のrange("A1")の値を表示させるには？- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ はる -(2022/08/11(10:46)) □U R L/ こんにちは！ご質問させていただきます。
① あらかじめ、１つのブックに複数のシート名（A1000～A1100）を設けています。
② UserForm1にListBox1を作成し、ListBox1の１行目にはVBAで複数のシート名を表示、併せて２行目に１行目のシートのrange("A1")にある値も表示させたいと思いますが上手く行きません。
どうぞ、ご教授いただけます様に宜しくお願い致します。
※ListBox1に表示させたいイメージ
シート名 シートのA1番地の値
↓ ↓
A1000 バナナ
A1001 リンゴ
A1002 スイカ
・ ・
・ ・
・ ・
A1100 いちご
※下記のネットで参考にしたVBAを応用したいと思いますが、イメージ通り２列目を表示させるのに色々試したのですが上手く行きません。
Private Sub UserForm_Activate()
Dim my_sheet As Worksheet
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "40;40"
For Each my_sheet In Worksheets
ListBox1.AddItem (my_sheet.Name)
ListBox1.List(0, 1) = my_sheet.Range("A1") ←ここが上手く行きません。
Next my_sheet
End Sub
Private Sub ListBox1_Change()
Worksheets(ListBox1.Value).Select
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195090] Re[1]: リストボックスの１列目はシート名、２列目に１行目のシート名のrange(- ■記事引用/メール受信=OFF■ □投稿者/ はる -(2022/08/11(10:51)) □U R L/ すみませんタイトルに誤字がありました。 誤）リストボックスの１列目はシート名、２列目に１行目のシート名の("A1")の値を表示させるには？ ↓ 正）リストボックスの１列目はシート名、２列目に１列目のシート名の("A1")の値を表示させるには？ | |
[195091] Re[2]: リストボックスの１列目はシート名、２列目に１行目のシート名のrange(- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/08/11(11:30)) □U R L/
| |
[195092] Re[3]: リストボックスの１列目はシート名、２列目に１行目のシート名のrange(- ■  / 記事引用/メール受信=OFF■
□投稿者/ はる -(2022/08/11(11:53)) □U R L/ 半平太さんこんにちは！ お返事ありがとうございます。 無事にイメージ通り表示出来ました。 変数が思い浮かばなかったです。 本当にありがとうございました。 | |