vba - 使用 Excel VBA 以编程方式按 Enter

Question

一旦将值设置为特定单元格，我正在尝试以编程方式按回车键:

Private Sub TextBox1_Change()
    If TextBox1.Text = "ALC Test" Then
        Range("$F$2").Value = "17"
        ActiveWorkbook.RefreshAll
    End If
    If TextBox1.Text = "ALC Prod" Then
        Range("$F$2").Value = "54"
        ActiveWorkbook.RefreshAll
    End If
    If TextBox1.Text = "" Then
        Range("$F$2").Value = ""
        ActiveWorkbook.RefreshAll
    End If
End Sub

这样我就可以在 excel 中触发我的表格的刷新
但这并不能正常工作

Answer 1

使用 sendkeys是正确的。

如果您只想重新计算(刷新)表数据，您可以执行以下操作:

Private Sub TextBox1_Change()

If TextBox1.Text = "ALC Test" Then
        Range("$F$2").Value = "17"
        Range("$F$2").Select
        Application.SendKeys("~")

在您的情况下，您需要在将输入命令发送到 excel 之前选择单元格(包含参数)。