如果用户更改该单元格的内容，请更改该单元格的颜色

Question

如果用户更改了单元格，则尝试更改单元格的颜色。 目前，它更改了我更改某些内容后选择的下一个单元格。

Private Sub Worksheet_Change(ByVal Target As Range)
If Environ("Username") = "HelloWorld" Then
    With ActiveCell.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 7195899
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub

Answer 1

您只需要将“ ActiveCell.Interior”更改为“ Target.Interior”：

Private Sub Worksheet_Change(ByVal Target As Range)
If Environ("Username") = "HelloWorld" Then
    With Target.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 7195899
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub

这是因为更改任何单元格后都会触发此子项，因此引用的“ ActiveCell”与“ Target”不同。

编码愉快！