根据在另一个单元格中输入的值返回单元格中的文本

Question

我的表 (F -> I) 中有可能无限行的列，这些列是带有简单是/否列表的下拉列表。

它以空行开始，用户在其他行中输入数据，然后根据问题选择是/否。

我正在寻找一些 VBA 来表示如果用户在 F 列中选择了“否”，那么在 K 列中，预先填充“F 列：”。这个想法是，任何被选为“否”的东西都会填充到 K 中，这样用户就可以添加他们的注释并参考 F 列。例如：“F 列：这不符合要求，因为 xxxxx”

我在网上搜索时尝试了一些示例，但似乎没有任何效果：

R = 4

'loop to the last row
Do Until Range("F" & R) = ""
    'check each cell if if contains 'apple' then..
    '..place 'Contains Apple' on column B
    If InStr(1, Range("F" & R), "No") Then
        Range("K" & R) = "Test Plan"
    End If
    
    R = R + 1
Loop

我也尝试将它放在工作表更改子中，但它没有按预期工作。

任何帮助表示赞赏。谢谢

Answer 1

这是你正在尝试的吗？我已经评论了代码。如需更多解释，我建议您通过How to handle Worksheet_Change

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aCell As Range
    
    '~~> Error handling
    On Error GoTo Whoa
    
    '~~> Switch off events
    Application.EnableEvents = False
    
    '~~> Check of the change happened in Col F
    If Not Intersect(Target, Columns(6)) Is Nothing Then
        '~~> Loop through all the cells in col F where
        '~~> the change happened
        For Each aCell In Target.Cells
            '~~> Check if the value is NO
            If UCase(aCell.Value2) = "NO" Then
                '~~> Update Col K
                Range("K" & aCell.Row).Value = "Test Plan"
            Else
                '~~> If not NO then WHAT ACTION? For example user
                '~~> deletes the existing NO
            End If
        Next
    End If
    
Letscontinue:
    '~~> Switch events back on
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume Letscontinue
End Sub

行动中

Answer 2

在Worksheet_Change试试这个代码

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Column = 6 And Target.Value = "No" Then
            Target.Parent.Range("K" & Target.Row).Value = "Column F: "
        End If
End Sub