vba - 循环范围

Question

我有一个通过或失败验证 (BA) 的单元格。如果用户选择Pass从下拉列表中，unit passed all tests显示在另一个单元格 (N) 中。我用来实现这一点的 VBA 按预期工作:

在 Worksheet_Change 上

If Range("BA17").Value = "Pass" Then Range("N44").Value = "Unit passed all tests."
If Range("BA18").Value = "Pass" Then Range("N45").Value = "Unit passed all tests."
If Range("BA19").Value = "Pass" Then Range("N46").Value = "Unit passed all tests."  

是否可以压缩它，因为最终的工作表将有多达 25-30 行？

我尝试添加一个范围，即 ("BA17:BA40") 但这每次都会更新所有字段，这并不理想。

Answer 1

这将使用值“单元通过所有测试”更新第 N 列(行偏移 27)。如果 BA 列中只有一个单元格被更新并且当前行 > 17

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    With Target
        If .CountLarge = 1 And .Column = Range("BA1").Column And .Row > 17 Then
            If .Value2 = "Pass" Then
                Application.EnableEvents = False
                .Offset(27, Range("N1").Column - .Column).Value = "Unit passed all tests."
                Application.EnableEvents = True
            End If
        End If
    End With

End Sub