Ｐａｇｅ 73 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼リストボックスの範囲を変動させたい maeda 02/9/13(金) 9:00 ┗Re:リストボックスの範囲を変動させたい Jaka 02/9/13(金) 9:31 ┗Re:リストボックスの範囲を変動させたい Jaka 02/9/13(金) 9:40 ┗Re:リストボックスの範囲を変動させたい maeda 02/9/13(金) 10:11 ┗Re:リストボックスの範囲を変動させたい Jaka 02/9/13(金) 10:19 ─────────────────────────────────────── ■題名 ： リストボックスの範囲を変動させたい ■名前 ： maeda <fwhn0621@mb.infoweb.ne.jp> ■日付 ： 02/9/13(金) 9:00 -------------------------------------------------------------------------
| 以下のワークシートでA列の商品件数が変動する場合、リストボックスの件数を変動するようにしたいのですが 「RowSouce」の設定方法が分かりません。お尋ねします。 Private Sub Workbook_Open() Dim gyo As Integer, erea As String gyo = WorksheetFunction.CountA(Worksheets("事務用品").Range("A2:A500")) erea = "A2:A" & gyo UserForm1.Show End Sub |
| こんにちは。 「RowSouce」で、いいんですよね。 Me.ListBox1.RowSource = "A2:A" & gyo |
| すみません。 標準モジュールに書いていたんですか。 gyo = WorksheetFunction.CountA(Worksheets("事務用品").Range("A2:A500")) UserForm1.ListBox1.RowSource = "A2:A" & gyo UserForm1.Show |
| ▼Jaka さん： >すみません。 >標準モジュールに書いていたんですか。 > >gyo = WorksheetFunction.CountA(Worksheets("事務用品").Range("A2:A500")) >UserForm1.ListBox1.RowSource = "A2:A" & gyo > >UserForm1.Show ありがとうございます、バッチリです。 Me.と言うのはユーザフォームに記述の場合でしょうね。 |
| >Me.と言うのはユーザフォームに記述の場合でしょうね。 そうです。 フォームの Private Sub UserForm_Initialize() に書いていると勘違いしてました。 |