Excel VBA質問箱 IV

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

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


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

75393 / 76738

←次へ　｜　前へ→


	【5781】Re:シートのデータをコンボボックスに・・・

Jaka - 03/5/30(金) 14:10 -


	引用なし

	パスワード

こんにちは。
結構漠然としている上うまく説明できそうに無いので、こんなもので．．．。

ユーザーフォーム上（フォームモジュール）

Private Sub UserForm_Initialize()
　　Sh2C = Sheets("Sheet2").Range("C65536").End(xlUp).Address(0, 0)
　　ComboBox1.List = Sheets("Sheet2").Range("C3:C" & Sh2C).Value
End Sub

Private Sub ComboBox1_Change()
　　MsgBox ComboBox1.List(ComboBox1.ListIndex)
End Sub

フォームの方（標準モジュール）

Sub Fcomb()
　　With Worksheets("Sheet1").Shapes("ドロップ 1").OLEFormat.Object
　　　　.Placement = xlFreeFloating
　　　　.ListFillRange = "Sheet2!C3:" & Sheets("Sheet2").Range("C65536").End(xlUp).Address(0, 0)
　　　　.ListIndex = 0
　　　　.OnAction = "コンボチェンジ"
　　End With
End Sub

Sub コンボチェンジ()
　　With ActiveSheet.Shapes("ドロップ 1").OLEFormat.Object
　　　　MsgBox .List(.ListIndex)
　　End With
End Sub

ボタン＆コンボともにコントロール（シートモジュール）

Private Sub CommandButton1_Click()
　　Application.EnableEvents = False
　　Sheets("Sheet1").ComboBox1.Text = Clear
　　'Sheets("Sheet1").ComboBox1.ListFillRange = Clear
　　Sh2C = Sheets("Sheet2").Range("C65536").End(xlUp).Address(0, 0)
　　Sheets("Sheet1").ComboBox1.ListFillRange = "Sheet2!C3:" & Sh2C
　　Application.EnableEvents = True
End Sub

Private Sub ComboBox1_Change()
　　MsgBox ComboBox1.List(ComboBox1.ListIndex)
End Sub

9 hits

▼

【5778】シートのデータをコンボボックスに・・・ mumumu 03/5/30(金) 11:14