时间戳

首页 > 解决方案 > 如果 activecell 内部颜色发生变化，则

excel - 如果 activecell 内部颜色发生变化，则

问题描述

我想要以下 VBA 代码：

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

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

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

标签： excelvba

解决方案

您必须使用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

推荐阅读