添加“Excel工作表更新”消息框

我已经使用代码添加了一个消息框

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

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

如果命令button由于某种原因而不工作，这个消息还会出现吗？ 如果是这样，我怎么可以改变到消息框，所以它只能在电子表格肯定更新时才起作用？

Answer 1

你需要的是一个error handling程序。 你需要在你的子开头设置一个“On Error”语句，然后写一个error handling程序。

这里有一个资源，你可以find有关如何设置它的信息： https : //support.microsoft.com/en-us/kb/141571#/en-us/kb/141571

你的代码会是这样的

 Sub mySub() On Error GoTo CatchError 'I called it CatchError but you can call it whatever '--All of your code here including "If MsgBox("File has been updated", vbinformatoin) = ok Then Exit Sub" CatchError: 'Here put what you want to do in case of an error, for example 'MsgBox "The code stopped because of an error" End Sub 

Answer 2

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

 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   MsgBox "No updates" End If End Sub