Excel如果任何单元格为Y，则所有其他单元格为N.

Question

我需要一些关于excel公式的建议。 我有6个单元格（A1到A6） - 如果它们中的任何一个是“Y”，那么我希望所有其他单元自动填充到“N”。 有没有办法做到这一点？

Answer 1

尝试以下代码

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Range("A1:A6")    'set rng as A1:A6
    If Not Intersect(Target, Target.Worksheet.Range("A1:A6")) Is Nothing Then
        Application.EnableEvents = False
        If UCase(Target) = "Y" Then 'check if entered value is Y
            rng.Value = "N"         'make cells N
            Target = "Y"
        End If
        Application.EnableEvents = True
    End If
End Sub

将VBA代码插入Excel工作簿

1. 在Excel中打开工作簿。
2. 按 Alt + F11 打开 Microsoft Visual Basic编辑器。
3. 在编辑器窗口的左上角，在 Project-VBAProject 窗格下，双击要为其工作的工作表名称。
4. 复制VBA代码以上并将其粘贴到VBA编辑器的右窗格中。
5. 最后，更改Range A1:A6中的值，您应该得到理想的结果。

要了解如何在工作簿中输入此代码，请参阅this。