具有数据验证的工作表更改事件

Question

一旦单元格数据更改，我的 VBA 就不会运行。
在我的工作表上，我在 F 列和 G 列中运行了 VBA。
G 列有我想根据 F 列中输入的数值触发的数据验证。

示例：
F 列的数值为 2.5，这导致 G 列显示“信誉良好”。
如果我将 F 列值更改为 反之亦然，如果 F 列的值最初 2 G 列将显示“良好的信誉”。

Private Sub Worksheet_Change(ByVal Target As Range)
    StrtRow = 2
    EndRow = Range("F" & Rows.Count).End(xlUp).Row

    For i = StrtRow To EndRow
        If Range("F" & i).Value >= 2 Then
            Range("G" & i).Value = "Good Standing"
        End If
    Next
End Sub

Answer 1

如果是< 2，则缺少用于清除内容的Else 子句。考虑到@SJR 的评论，试试这个（未测试）

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngWatched As Range: Set rngWatched = Me.Range("F:F")
    Dim cl As Range
        
    If Not Intersect(rngWatched, Target) Is Nothing Then
        Application.EnableEvents = False
        
        For Each cl In Intersect(rngWatched, Target)
            If cl.Value >= 2 Then
                cl.Offset(0, 1).Value = "Good Standing"
            Else
                cl.Offset(0, 1).ClearContents
            End If
        Next
        
        Application.EnableEvents = True
    End If
End Sub