Excel VBA質問箱 IV

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

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


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

53912 / 76807

←次へ　｜　前へ→


	【27702】Re:コンボボックを使いたい

Kein - 05/8/16(火) 19:31 -


	引用なし

	パスワード

ならば、こんな感じです。シートモジュールに入れたダブルクリックイベントは削除し、
新たに・・

↓シートモジュールに入れます。

Private Sub Worksheet_Activate()
　 Dim Wp As Single, Hp As Single
　
　 ActiveSheet.DropDowns.Delete
　 With Range("A1")
　　　Wp = .Width * 2: Hp = .Height
　 End With
　 With ActiveSheet.DropDowns.Add(0, 0, Wp, Hp)
　　　.AddItem "○○をする"
　　　.AddItem "△△をする"
　　　.AddItem "××をする"
　　　.OnAction = "SetMacro"
　 End With
End Sub

Private Sub Worksheet_Deactivate()
　 Worksheets("Sheet1").DropDowns.Delete
　 '↑シート名は正確なものに変更
End Sub

↓標準モジュールに入れます。

Sub SetMacro()
　 Dim x As Variant

　 x = Application.Caller
　 If VarType(x) <> 8 Then Exit Sub
　 With ActiveSheet.DropDowns(x)
　　　Select Case .ListIndex
　　　　 Case 1: Call A
　　　　 Case 2: Call B
　　　　 Case 3: Call C
　　　End Select
　 End With
End Sub

Sub A()
　ここに A の処理を書く(○○の場合です)
End Sub

Sub B()
　ここに B の処理を書く(△△の場合です)
End Sub

Sub C()
　ここに C の処理を書く(××の場合です)
End Sub

* 変更点は、DoropDown(フォームのコンボボックスのこと)を
Delete するコードを消すだけです。

0 hits

▼

【27696】コンボボックを使いたい zondag 05/8/16(火) 16:57