エクセルのマクロコードについて

質問

お世話になります。
下記コードで、セルごとにクリアをすると、エラーなくうごくのですが、セルをまとめてセルを消すと実行時エラー13型が一致しません。とでてIf Target.Value = "" Thenがだめだよとでてしまいます。
どなたか、回避の方法をご教授ください。
宜しくお願いいたします。

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B2:E2,G2:J2")) Is Nothing Then Exit Sub

If Target.Value = "" Then Exit Sub

x = Target.Value

With Application

.ScreenUpdating = False

.EnableEvents = False

.Undo

'Range("B2").Value = x + Z

Z = Target.Offset(1, 0).Value

y = Target.Value

Target.Value = x + y

.EnableEvents = True

.ScreenUpdating = True

End With

Target.Offset(1, 0).Value = x + Z

End Sub

回答No.1

kkkkkm · ベストアンサー

If Target.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

と並べてみてください。

お礼

ありがとうございます。
とても勉強になりました。

回答No.2

imogasi

https://www.moug.net/tech/exvba/0050063.html
数のセルを一度に変更することを禁止する
これを参考に、考えてみたら。
いろんなケースで、Changeイベントは、複数セル同時変更を捉える、は扱いにくいのではと思っていたが。
ーー
参考
https://teratail.com/questions/271066
VBAのWorksheet_Changeで単一セルでの変更と複数範囲での変更で挙動を変えたい
多分、扱いを変えないとならない場合が多いのでは。

お礼

ありがとうございます。
参考になりました。