vba - 运行时错误“13”：键入不匹配 VBA 2010 以确保单元格中的大写文本

Question

我的代码有什么问题，每次我删除工作表上的某些内容时，它都会给我一个运行时错误'13': type mismatch，

Private Sub Worksheet_Change(ByVal Target As Range)

     If Target.Address <> "$G$13:$J$13" Then
         If Target = Range("G13") Then
              test = UCase(Target.Value)
              If test <> Target.Value Then EnsureUppercase Target
         End If
     End If 
End Sub 

Answer 1

在处理事件时始终使用Error handling和Application.EnableEventsWorksheet_Change

如果提供的代码将 Range("G13") 转换为大写，则这里是更简化的代码。

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    Application.EnableEvents = False

    Dim rng As Range
    Set rng = Range("G13")

    If Not Intersect(Target, rng) Is Nothing Then
          Target.Value = UCase(Target.Value)
    End If

    Application.EnableEvents = True

End Sub