変な質問で恐縮ですが、

質問

変な質問で恐縮ですが、

Ｅ３セルからＥ４セルに移動したら、マクロを実行する。

Ｆ３セルからＦ４セルに移動したら、マクロを実行する。

など、

4つほどの横並びのセルのうち　１つを選択した後、直下にセルが移動したらマクロを実行させたいと

思っております。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

簡易版です。

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

Dim prePos As Range　　'←書く場所を勝手に変えないこと

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　On Error Resume Next
　If Target.Count = 1 Then
　　If Not Application.Intersect(Target, Range("C4:F4")) Is Nothing Then
　　　If prePos.Offset(1).Address = Target.Address Then

　　　　MsgBox "hit"

　　　End If
　　End If
　End If
　Set prePos = Target.Cells(1)

End Sub

お礼

できました。

ありがとうございます。

回答No.2

mu2011

一例です。
SelectionChange（範囲選択）イベントを利用し、対象セル範囲（仮にE4:H4選択時にマクロ実行）をマスクすれば可能と思いますのでお試しください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("E4:H4")) Is Nothing Then Exit Sub

マクロ

End Sub

お礼

できました。

ありがとうございます。