Question

我想要以下VBA代码：

如果活动单元的内部颜色更改为colorindex 44，那么我希望单元格右边的5列具有文本“完成”和今天的日期。

我尝试了以下操作，但仅当我将所选单元格向右移动时才有效。当单元格颜色未更改时，它也不会停止工作。

Private Sub Worksheet_SelectionChange  (ByVal Target As Range)

   If ActiveCell.Offset(0, -1).Interior.ColorIndex = 44 Then
        ActiveCell.Offset(0, 4) = "Done" & Date
   End If

End Sub

Answer 1

您必须使用Target而不是ActiveCell

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Interior.ColorIndex = 44 Then
        Target.Offset(ColumnOffset:=4).Value = "Done " & Date
    End If
End Sub

请注意，这无法检查颜色是否已更改，因为没有任何更改。您只能测试实际的颜色索引是否为44。但是，为了防止覆盖“更改”日期，您可以仅测试日期是否已经存在。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub 'exit if more than one cell is selected

    If Target.Interior.ColorIndex = 44 And Not Left$(Target.Offset(ColumnOffset:=4).Value, 4) = "Done" Then
        Target.Offset(ColumnOffset:=4).Value = "Done " & Date
    End If
End Sub

如果活动单元的内部颜色发生变化，那么

1 个答案: