VBA宏，用于在选择单元格时更改范围内单元格的颜色

Question

我正在尝试编写代码，当用户选择某个范围内的单元格时，该代码将更改该范围内所有单元格的颜色。 运行下面发布的代码时，我收到错误"对象不支持此属性或方法"。 我注意到，如果我编辑代码以在所有单元格中粘贴一个"1"，它就可以正常工作。 我做错了什么？

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.range)
    If Not Intersect(Target, range("G1:I5")) Is Nothing Then
        For Each cell In range("G1:I5")
        cell.interier.ColorIndex = 10
        Next
    End If
End Sub

Answer 1

您应该知道，您不必遍历单元格：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range
    Set r = Range("G1:I5")
    If Intersect(r, Target) Is Nothing Then Exit Sub
    r.Interior.ColorIndex = 10
End Sub

Answer 2

错误只是Interior的错别字

...
cell.Interior.ColorIndex = 10
'#         ^  
...