Question

Excel VBA 2010

这是一个快速功能，当用户单击一个单元格（A列）时，它会创建一个复选标记。我还希望函数使相邻单元格（B列）中的文本改变颜色。

我目前收到此错误：
Run-time error '9': Subscript out of Range

它突出了这一行：
Target.Offset(0,1).Interior.ColorIndex = RGB(77, 191, 46)

这里是完整的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:A20")) Is Nothing Then
        Target.Font.Name = "Marlett"
            If Target = vbNullString Then
                Target = "a"
                Target.Offset(0, 1).Interior.ColorIndex = RGB(77, 191, 46)
            Else
                Target = vbNullString
                Target.Offset(0, 1).Interior.ColorIndex = RGB(0, 0, 0)
            End If

    End If
End Sub

任何建议??

Answer 1

将.Interior.ColorIndex更改为.Font.Color，这应该是：）

Excel VBA更改下一个单元格文本颜色错误

1 个答案: