Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28843 / 76807

←次へ　｜　前へ→


	【53256】Re:UserFormのTextBoxの値でシートのセルを選択する方法

かみちゃん - 07/12/23(日) 15:07 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>　AddItemでcomboBoxを使って、複数行を表示させるシンプルな方法は
>　無いでしょうか？

ComboBoxで複数行表示というのは、どういう意味でしょうか？

複数列の間違いですか？それであれば、シンプルかどうかはわかりませんが、
以下のような感じでできると思います。

Private Sub UserForm_Initialize()
　Me.ComboBox1.List = Range("A6", Range("A65536").End(xlUp).Offset(, 2)).Value
End Sub

なお、For ～ Next を使用する必要がある場合は、以下のような感じです。

Private Sub UserForm_Initialize()
　Dim LstRow As Integer
　Dim i As Integer
　
　LstRow = Range("a65536").End(xlUp).Row
　For i = 6 To LstRow
　　Me.ComboBox1.AddItem Range("A" & i).Value
　　Me.ComboBox1.List(i - 6, 1) = Range("B" & i).Value
　Next
End Sub

>　もし解決方法がありましたらアドバイスお願いします。

次回からは別にスレッドを立てて、「スレッド番号xxxxの関連で教えてください」
というようにスレッド番号を明記して、質問されたほうがいいかと思います。

2 hits

▼

【53240】UserFormのTextBoxの値でシートのセルを選択する方法 かんじです 07/12/22(土) 14:09