vba - Excel VBA 代码返回错误

Question

有这个 vba 的 excel 文件:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Target, Range("A1:A1000")) _
      Is Nothing) Then
        With Target
            If Not .HasFormula Then
                Application.EnableEvents = False
                .Value = UCase(.Value)
                Application.EnableEvents = True
            End If
        End With
    End If
End Sub

这是做什么的，当在这些单元格上插入一些东西时，它会将其转换为大写字母。一切正常，只是一个小问题......文件每天被几个人使用，所以插入的数据每天都会被删除几次。发生的情况是，如果我一次删除一个单元格，它运行平稳，如果我同时删除多个单元格，我会收到运行时错误“13”。

我该如何纠正这个？

Answer 1

当 Target 不止一个单元格时，遍历 Target 中的每个匹配单元格。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A1000") Is Nothing Then
        dim trgt as range
        for each trgt in Intersect(Target, Range("A1:A1000")
            With trgt 
                If Not .HasFormula Then
                    Application.EnableEvents = False
                    .Value = UCase(.Value)
                    Application.EnableEvents = True
                End If
            End With
         next trgt
    End If
End Sub