By ジョー・スミス 06年2023月XNUMX日月曜日
投稿: Excel
返信 0
いいね 0
ビュー 1.8K
投票 0
良い一日

特定のセルをクリックすると、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の



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


ご協力をよろしくお願いいたします。
投稿全体を見る