If statement &引用；VBA中的if then语句，用数字“填充单元格”；

“如果VBA中的if then语句”我正在编写一个程序，如果某个变量达到某个值，它会将一个数字放入Excel中的单元格中。我知道如何声明变量，但我不知道如果A1=34，如何告诉excel写x。谢谢

不清楚您想做什么，但假设您想将变量x的当前值写入单元格B2中。。。如果单元格A1为34

在上述情况下，您可以执行以下操作：

If [a1] = 34 then [b2] = x

---

将侦听器添加到工作表以捕获范围。如果您只查看特定的列/行，则可以设置范围[A1]，或者您可以添加一个类似下面的范围

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A:A")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        If Target.Value = "34" Then
            Cells(Target.Row, 2) = "X"
        Else
            Cells(Target.Row, 2) = ""
        End If
    End If
End Sub

如果需要变量x而不是文字x，请将“x”更改为

如果您的目标是将单元格的值更改为“X”（文字X），并且您没有让宏不断运行或每次单元格更改时都运行宏，那么您可以在每个具有条件值的单元格中使用以下函数（或类似函数）

---

请参阅Microsoft对此主题的支持

如何在单元格中简单地使用此函数：=IF（A1=34，“x”），谢谢David，可以使用。我不知道我有这个选择。谢谢Brian，我想要的代码总是监听数字数据流。当流中出现特定值时，程序将用值填充单元格。