ここから本文です

シート内のコンボボックスのリストについて 添付のようなデータベースがあり、...

chietaroさん

2014/6/2609:12:33

シート内のコンボボックスのリストについて

添付のようなデータベースがあり、シートにアクティブXのコンボボックス(combobox1)を配置。IDとかかれているところです。

そのリストをシートのA10:A300の範囲を入力し、さらに常に最下段のIDが表示されるように設定したいと考えております。

ユーザーフォームのコードを参考にして、Sheet1に以下のコードを入力し制御しました。

Private Sub ComboBox1_Initialize()

With Worksheets("Sheet1")
ComboBox1.RowSource = "'" & .Name & "'!" & .Range("A10:A300").Address
.Cells(Rows.Count, 2).End(xlUp).Select
ActiveCell.Offset(1, -1).Select
ComboBox1.Value = ActiveCell.Value
End With

End Sub

ところがエラーになってしまいます。どのようなコードならば目的の処理ができますでしょうか?よろしくお願いします。

ComboBox1.Value,Sheet1&quot,With Worksheets,Rows.Count,A10,A300&quot,ThisWorkbook

閲覧数:
29
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

ja7********さん

2014/6/2609:47:34

こんな感じでいかがでしょうか。
ThisWorkbookのモジュールに記述します。

Private Sub Workbook_Open()
With Worksheets("Sheet1")
    .ComboBox1.ListFillRange = "Sheet1!A10:A300"
    .ComboBox1.Value = .Range("A300").Value
End With
End Sub

質問した人からのコメント

2014/6/26 11:30:16

感謝 ありがとうございます!希望通りにできました!助かりました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる