エクセルのマクロ

質問

セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。
どのように直したらいいでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
If Intersect(Target, Range("EK22")) Is Nothing Then
Exit Sub
Else
Range("EK24:EM28").Select
Selection.ClearContents
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("EK24")) Is Nothing Then
Exit Sub
Else
Range("EK27:EM28").Select
Selection.ClearContents
End If
End Sub

回答No.1

tsubu-yuki · ベストアンサー

> 2つ書くとエラーが出ます。
それ以前にコンパイルエラーが出ませんか？
Select Case は End Select で終わらせる必要がありますよ。

そんなわけで、
> どのように直したら
二つを一つにまとめるだけです。
Private Sub Worksheet_Change(ByVal Target As Range)
　　Select Case Target.Address
　　　　Case "$EK$22"
　　　　　　Range("EK24:EM28").ClearContents
　　　　Case "$EK$24"
　　　　　　Range("EK27:EM28").ClearContents
　　　　Case Else　　　' 要らないけど
　　　　　　Exit Sub　　' 要らないけど
　　End Select
End Sub

お礼

うまく出来ました。
ありがとうございました。