防止工作簿關閉

我有VBA將數據從一張紙複製到另一張。複製完成後會彈出一條消息，詢問是否有「還有其他東西？」。應該發生的是，當你說不，它會保存並關閉。如果你說是，它應該保存&去一個特定的工作表。正在發生的事情是它在兩個選項上都會關閉&。我知道缺少一些東西，但我不確定是什麼。防止工作簿關閉

我的代碼

Msg = "Hey!!! Copying complete!! Any Thing Else?" 

Ans = MsgBox(Msg, vbYesNo) 

Select Case Ans 

    Case vbYes    
     Sheets("Referrals").Select 

    Case vbNo 
     GoTo Quit: 

End Select 

Quit:   
ActiveWorkbook.Close 

End Function

來源

2016-12-06 Frank M

**請**糾正「任何」的拼寫。「任何事情」只是，不寒而慄，錯了！ – YowE3K

移動近距事件到vbNo，現在的方式是使其不管是在選定的情況下運行。

Msg = "Hey!!! Copying complete!! Any Thing Else?" 

Ans = MsgBox(Msg, vbYesNo) 

Select Case Ans 

    Case vbYes    
     Sheets("Referrals").Select 

    Case vbNo 
     ActiveWorkbook.Close SaveChanges:=True 

End Select 

End Function

來源

2016-12-06 17:42:57 tjb1

防止工作簿關閉

回答

相關問題