Sql 在Excel vba中更新ActiveX按钮上的标题

我试图更新Excel电子表格上ActiveX控件按钮的标题，以注意与单击事件关联的代码正在工作。该代码从azure数据库中提取数据，因此按下按钮可触发5-10秒的延迟

我的原始代码只有一个子代码，基本上如下所示：

Sub GetInfofromDB()
  btnUpdate.Caption = "Updating...."
  <<code to get data from azure db>>
  btnUpdate.Caption = "Update List" 'reverts button to standard text
End Sub

子GetInfofromDB（）
btnUpdate.Caption=“正在更新…”
<从azure db获取数据的代码>
btnUpdate.Caption=“更新列表”将按钮还原为标准文本
端接头

但是，按钮标题从未更改。组合框更新工作正常

我将标题更新分离为它自己的子项，然后在按下按钮时按顺序调用每个子项，得到相同的行为，没有按钮更新

如果我调用带有标题更新的sub而未调用数据更新，则按钮将成功更新

因此，每个部分都独立工作，但当它们连续发生时就不工作了。如何在数据调用之前更新我的按钮

---

谢谢。更改标题后，请尝试添加一个应用程序。ScreenUpdate=true

下面的代码适用于我。使用DoEvents

Private Sub CommandButton1_Click()
CommandButton1.Caption = "true"
DoEvents
Application.ScreenUpdating = True

For i = 1 To 2
    Application.Wait (Now + TimeValue("0:00:1"))
Next i

CommandButton1.Caption = "False"
End Sub

---

完美的成功了。这是我第一次接触DoEvents，今天学到了一些新东西。