防止单元在VBA中更新

Question

the problem is the following, I want cell to update to current HH:MM:SS and change the interior color, as soon as I change the value in another control cell.

The code I have compiled for that purpose is the following:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

lRow = Range("F" & Rows.Count).End(xlUp).Row
Set MR = Range("F3:F" & lRow)                       
For Each Cell In MR
            If (Cell.Value = "T") And (Time < Cells(Cell.Row, "E")) Then                        Cells(Cell.Row, "G").Interior.ColorIndex = 10
    Cells(Cell.Row, "G").Value = Time
Next Cell

End Sub

However, what I get is the cells updating every time there is an action on the sheet while I want just a timestamp

Answer 1

Change the event from Worksheet_SelectiontChange to Worksheet_Change . Worksheet_SelectiontChange is used to detect when a new/different range/cell is selected. Also, to limit to the change of a specific cell, just test the row and/or column of the provided Target . I'll often use a Select Case when I'm testing for multiple cells.

Private Sub Worksheet_Change(ByVal Target As Range)
    Const COL_E = 5
    Const COL_F = 6
    Const COL_G = 7

    If Target.Column = COL_F Then

        Dim lRow As Long
        lRow = Target.Row

        If Cells(lRow, COL_F).Value = "T" Then
            Cells(lRow, COL_E).Value = Time
            Cells(lRow, COL_G).Interior.ColorIndex = 10
        Else
            ' clear the data?
        End If

    End If

End Sub

Answer 2

It seems to me that VBA is completely unnecessary in your use case.

Here's my suggestion: Unlock every editable cell in the Workbook, except for the control cell, add formula-based conditional formatting to your timestamp cell and protect the worksheet.

Much faster and easier to maintain.

Answer 3

Moved your Sub into the worksheet_change, reorganized the code (the Row.Count auto-find shouldn't be activated unless you are in the cells you want to be) And placed your variables in a stored condition array for easier updating.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SC : SC = Split("3/6/T/E/G/10/F3:F/F", "/") 'Stored Conditions
    If Target.Row = Cint(SC(0)) and Target.Column = Cint(SC(1)) Then
        For Each Cell In Range(SC(6) & Range(SC(7) & Rows.Count).End(xlUp).Row)
           If Cell.Value = SC(2) And Time < Cells(Cell.Row, SC(3)) Then 
                Cells(Cell.Row, SC(4)).Interior.ColorIndex = Cint(SC(5)) : Cells(Cell.Row, SC(4)).Value = Time
           End If
        Next
    End If
End Sub