Question

＆＃34;如果然后在VBA＆＃34;如果变量达到某个值，我正在编写一个程序，将一个数字放在Excell的单元格中。我理解如何声明变量，但我不知道如果A1 = 34，如何告诉excel写x。谢谢

Answer 1

我们不清楚你想做什么，但是如果单元格A1是34，那么你想把你的变量x的当前值写入单元格B2 ......

在上述情况下，您可以这样做：

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

Answer 2

在工作表中添加一个侦听器以捕获范围。如果您只是在观看特定的列/行，则可以设置范围[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

改变＆＃34; x＆＃34;如果你想要变量x而不是文字x。

如果您的目标是将单元格的值更改为＆＃34; X＆＃34; （Literal X），并且您没有持续运行宏或每次更改单元格，您可以在每个有条件的单元格中使用以下函数（或类似函数）。

请参阅Microsoft对此主题的支持https://support.microsoft.com/en-us/kb/213612

＆＃34;如果然后在VBA中声明用数字填充单元格＆＃34;

2 个答案: