Question

我已使用代码

添加了一个消息框

If MsgBox("File has been updated", vbinformatoin) = ok Then Exit Sub

到用于更新电子表格并保存到另一张表格的命令按钮。

如果命令按钮由于某种原因无法工作，是否仍会显示此消息？如果是这样，我怎样才能更改到消息框，这样它才能在电子表格明确更新时起作用？

Answer 1

您需要的是错误处理程序。您需要在sub的开头设置“On Error”语句，然后编写错误处理程序。

以下是一个资源，您可以在其中找到有关如何设置的信息：https://support.microsoft.com/en-us/kb/141571#/en-us/kb/141571

您的代码就像这样

SELECT t1.name, t2.date FROM table1 t1 CROSS JOIN table2 t2;

Answer 2

我不确定这是否完全回答了你的问题，但你可以试试这个：
（NB。替换相关代码代替消息框）

Private change_ind As Integer
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   change_ind = 1
End sub
Private Sub CommandButton1_Click()
   If change_ind = 1 Then
       MsgBox "Update has occurred"
       Else
      &nbsp;    MsgBox "No updates"
     End If
End Sub

添加＆＃39; Excel工作表已更新＆＃39;消息框

2 个答案: