[[20040105145400]]　『UserFormのComboBoxの使い方』（ケン）　ページの最後に飛ぶ

『UserFormのComboBoxの使い方』（ケン）

 UserFormでコンボボックスを作りドロップダウンリストから選択したいのですが
ListFillRangeプロパティの使い方がヘルプを見ても、よく分かりません。
どのように記述すればよいのでしょうか？ちなみにリストはSheet2のA2:A25の範囲で
範囲名は[店舗名]です。どうか教えて下さい。

 UserFormのコンボボックスには、ListFillRangeプロパティはありません。
 RowSource プロパティでヘルプを調べてみて下さい。

  (INA)

 こんなんでどうでっか？
 　　　（弥太郎）
  Private Sub UserForm_Initialize()
  Dim i As Integer
  With ComboBox1
    For i = 2 To 25
        .AddItem Cells(i, 1)
    Next i
  End With
 End Sub

 INAさん、弥太郎さん有難う御座います。出来ました。がもう一つ教えて下さい。
店舗名を決めると、ComboBox2は、その店舗の従業員だけを選択するには、
どのようにすればよいのでしょうか？
入力規則なら参照範囲を[=INDIRECT(A1)]とかにするのですが、UserFormではどのように
しかすか？（ケン）

 コンボ１で、店舗名を選択したら
 コンボ２では、コンボ１に対応した「従業員」だけ選択したい。ですか？

 シートには、どのようなレイアウトでデータが入力されていますか？

  (INA)

 説明不足すいません。
Sheet2のA2:A25まで店舗名が入っていて横へずっと（各店舗により人数は違います。）
最長でAE列まで各店舗の従業員が行単位で振り分けされています。
 　　　A     B     C     D　   ・・・・・・・
 1   店舗名　　　氏　　　　　　　　　　　名
 2   店舗A　Aさん Bさん Cさん　・・・・・・・
 3   店舗B　Dさん Eさん Fさん　・・・・・・・
 ・　　･　　　・　　･　　･　 　・・・・・・・
 ・　　･　　　・　　･　　･　 　・・・・・・・
 ・　　･　　　・　　･　　･　 　・・・・・・・
 こんな感じです。よろしくお願いします。（ケン）

 どうぞ。

 Private Sub ComboBox1_Change()
 Dim myCell As Range

 With Worksheets("Sheet1")
    ComboBox2.Clear

    For Each myCell In .Range(.Cells(ComboBox1.ListIndex + 2, 2), .Cells(ComboBox1.ListIndex + 2, 256).End(xlToLeft))
        ComboBox2.AddItem myCell.Value
    Next myCell

 End With
 End Sub

 Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sheet1!A2:A25"
 End Sub

  (INA)

 INAさん、有難う御座います。
ん～難しい～。まだまだ、問題は山積みですが、また分からない時に質問させて頂きます。
（ケン）

コメント返信：

[ 一覧(最新更新順) ]

[[20040105145400]] 『UserFormのComboBoxの使い方』（ケン） ページの最後に飛ぶ

[[20040105145400]]　『UserFormのComboBoxの使い方』（ケン）　ページの最後に飛ぶ