以编程方式按下Excel VBA进入

我试图编程按一下input键一旦一个值已被设置为特定的单元格：

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("~") 

在你的情况下，你需要在input命令发送到excel之前select单元格（保存参数）。

Answer 2

你所做的是：改变这个值，然后按下“enter”，这个没有效果。

使用

 calculate 

要么

 activesheet.calculate 

编辑清楚：

 Private Sub TextBox1_Change() If TextBox1.Text = "ALC Test" Then Range("$F$2").Value = "17" calculate