Question

vba 应用程序定义或对象定义错误

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Locked = False Then
If Target.Column < 6 Then
Target.Interior.ColorIndex = Range("A" & Target.Row).Interior.ColorIndex
ElseIf Target.Column < 12 Then
Target.Interior.ColorIndex = Range("H" & Target.Row).Interior.ColorIndex
End If
End If
Application.ScreenUpdating = True
End Sub

Answer 1

经代码运行调试，运行正常，并未发现错误：

从代码看，其功能是：

当工作表修改时，如果目标单元格未被锁定，则如果单元格列号小于6时，将取同行A列的背景颜色；小于12时，取同行H列的颜色。

追问

所以为啥我这里会报错？