匿名ユーザー
  月曜日、06 2月2023
  0 返信
  1.8K訪問
良い一日

特定のセルをクリックすると、Excel でマクロをトリガーするのに非常にうまく機能する VBA コードを見つけました。 下記参照:


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Count=1の場合
交差しない場合(Target、Range( "D4"))は何もありません
MyMacroに電話する
終了する場合
終了する場合
End Subの


同じコードにそのようなシナリオをさらに 3 つ追加しようとしていますが、コーディングの経験がないため、トラブルシューティングを行ってもうまくいきません。 私がやろうとしていることの以下の例を見て、可能であればコードを修正してください:


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Count=1の場合
交差しない場合(Target、Range( "D4"))は何もありません
MyMacro1 を呼び出す
終了する場合
終了する場合
Selection.Count=1の場合
If Not Intersect(Target, Range("E10")) Is Nothing Then
MyMacro2 を呼び出す
終了する場合
終了する場合
Selection.Count=1の場合
If Not Intersect(Target, Range("G23")) Is Nothing Then
MyMacro3 を呼び出す
終了する場合
終了する場合
Selection.Count=1の場合
If Not Intersect(Target, Range("J33")) Is Nothing Then
MyMacro4 を呼び出す
終了する場合
終了する場合
End Subの



コードに記載されているセルがクリックされたときに、作成したさまざまなマクロ (うまく機能する) が自動的に実行されることを期待していました。


ご協力をよろしくお願いいたします。
この投稿に対する返信はまだありません。