工作表事件，横向多单元格一起删除时报错

pepsi7777

各位老师好，




写了一段事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
    If Target.Offset(0, 0) = "" Then
        Target.Offset(1, 5) = "空"
    Else
        Target.Offset(1, 5) = "非空"
    End If
End If
End Sub


出现了如下问题：
直接删除 cells(2, 1)，正常
选择多个单元格（例如第2行整行，或A2 B2 等），删除，会报错
如果选择A列，删除，不报错

这是什么原因造成的？如何修改？

感谢！！

蓝桥玄霜

单元格多选时，要逐个单元格判断。
因为代码中的条件是Target.Column = 1  即规定在A列，如果选择A、B列，则与条件不符，虽然没有出错，但存在bug；当选择整行时就会出错。

3190496160

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
    If Target.Count > 1 Then End
    If Target.Offset(0, 0) = "" Then
        Target.Offset(1, 5) = "空"
    Else
        Target.Offset(1, 5) = "非空"
    End If
End If
End Sub

3190496160

加一句判断

pepsi7777

3190496160 发表于 2022-11-26 11:45
加一句判断

感谢 3190496160 老师

pepsi7777

蓝桥玄霜 发表于 2022-11-26 10:07
单元格多选时，要逐个单元格判断。
因为代码中的条件是Target.Column = 1  即规定在A列，如果选择A、B列， ...

感谢 蓝桥玄霜 老师，可惜这个结果是异常的

pepsi7777

3190496160 发表于 2022-11-26 11:45
加一句判断

3190496160 老师

下面这个段工作表事件代码，也是横向删除多个单元格时会报错。加了红色代码后，就不出结果了。  再帮看看，感谢

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 And Target.Row > 3 Then
    'If Target.Column > 1 Then End
        If Target.Offset(0, 10) <> "" Then
            Target.Offset(0, 15) = DateDiff("d", Target.Offset(0, 0), Target.Offset(0, 10)) + 1
        Else
             Target.Offset(0, 15) = DateDiff("d", Target.Offset(0, 0), Now) + 1
        End If
        If Target.Offset(0, 0) = "" Then
            Target.Offset(0, 15) = ""
        End If
End If

End Sub

3190496160

pepsi7777 发表于 2022-11-26 13:30
3190496160 老师

下面这个段工作表事件代码，也是横向删除多个单元格时会报错。加了红色代码后，就不 ...

认真看看，你增加的是这句吗
If Target.Count > 1 Then End

3190496160

仔细看我增加的代码，跟你增加的代码差别在那儿

02761752696

pepsi7777 发表于 2022-11-26 13:30
3190496160 老师

下面这个段工作表事件代码，也是横向删除多个单元格时会报错。加了红色代码后，就不 ...

..........