Excel VBA質問箱 IV

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

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


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

46173 / 76732

←次へ　｜　前へ→


	【35536】Re:マクロボタンの　登録マクロ切り替え

Kein - 06/3/7(火) 14:40 -


	引用なし

	パスワード

セル選択イベントだと、ちょっと頻繁に発生しすぎるので、適切ではないように
思います。私なら右クリックイベントに変えて

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
　　Dim AcPro1 As String, AcPro2 As String
　　Dim Cap1 As String, Cap2 As String

　　Cancel = True
　　Select Case Target.Interior.ColorIndex
　　　 Case 24
　　　　　AcPro1 = "model_11": AcPro2 = "model_12"
　　　　　Cap1 = "道具Ｌ字追加": Cap2 = "道具Ｔ字追加"
　　　 Case 35
　　　　　AcPro1 = "model_31": AcPro2 = "model_32"
　　　　　Cap1 = "ｺﾈｸﾀ横伸長": Cap2 = "ｺﾈｸﾀ縦伸長"
　　　 Case Else
　　　　　AcPro1 = "": AcPro2 = ""
　　　　　Cap1 = "": Cap2 = ""
　　End Select
　　With ActiveSheet.Shapes("Button 8")
　　　 .OnAction = AcPro1: .Characters.Text = Cap1
　　End With
　　With ActiveSheet.Shapes("Button 9")
　　　 .OnAction = AcPro2: .Characters.Text = Cap2
　　End With
End Sub

17 hits

▼

【35484】マクロボタンの　登録マクロ切り替え 下働き 06/3/6(月) 17:16