[[20151015095006]]　『コンボボックスの複数設置について』（hisae）　ページの最後に飛ぶ

『コンボボックスの複数設置について』（hisae）

顧客情報入力のためにユーザーフォームを使用しています。
コンボボックスの設置が初めてでどの構文をみても解読できず・・・
初歩的なことですがわかる方、または過去のログでわかりやすいものがありましたら教えてください。

下記のところまでやってみたのですが、コンボボックスがたくさん追加になる予定です。
Sheet14にプルダウン表示したいデータが格納してあります。

言葉足らずでしたら申し訳ありません。

Private Sub btnOK_Click()
Dim lastRow As Long

    With Worksheets("管理")
        lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Cells(lastRow, 2) = Me.cmb申請内容.Text
        .Cells(lastRow, 4) = Me.txt登録区分.Text
        .Cells(lastRow, 5) = Me.txt得意先本社.Text
        .Cells(lastRow, 7) = Me.txt本社代表者.Text

    End With
    Unload Me
End Sub

Private Sub Cancel_Click()

    Unload Me
 End Sub

Private Sub UserForm_Initialize()

    Me.cmb申請内容.RowSource = Worksheets("Sheet14").Range("A1:A3").Address(External:=True)
End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 そこまでできているなら、単純にコンボボックスオブジェクトを追加して
 ＞Me.cmb申請内容.RowSource = Worksheets("Sheet14").Range("A1:A3").Address(External:=True)
 これと同じように複数行追加すればいいんじゃないですか？

 それとも、動的に増やしたいということですか？
（稲葉） 2015/10/15(木) 10:02

アドバイスありがとうございます。

＞Me.cmb申請内容.RowSource = Worksheets("Sheet14").Range("A1:A3").Address(External:=True)

この下に
cmb申請内容、Range("A1:A3")を変更して追加したのですがエラーが出てしまって・・・
複数設置するときはやり方が違うのかと思ったのですがそうでもないんですね・・・

今やってみたらできました！
（hisae） 2015/10/15(木) 10:08

コメント返信：

[ 一覧(最新更新順) ]

[[20151015095006]] 『コンボボックスの複数設置について』（hisae） ページの最後に飛ぶ

[[20151015095006]]　『コンボボックスの複数設置について』（hisae）　ページの最後に飛ぶ