標題: [發問] 關於msgbox的用法 [打印本頁]

---

作者: 我是瑄    時間: 2012-11-28 20:41     標題: 關於msgbox的用法

我的工作表上有設一個表單清除的命令式按鈕
程式內容:
Sub 表單清除()
Dim Y&
With Sheets("報表")
  Y = .[A65536].End(xlUp).Row - 2
  .Range("A3:R" & Y).ClearContents
End With
With Sheets("請款單")
  .Range("a:h").Clear
End With
End Sub
我想要設當這按鈕按下會跳出視窗問是否已另存新黨了?是!就執行清除的程式內容,否就跳回工作表!
爬文 是用msgbox,但我不知道應該寫在按鈕內還是工作表內
那又該如何寫?用法網路上面都有但是不知道該如何帶入?

---

作者: Hsieh    時間: 2012-11-28 21:15

回復 1# 我是瑄

1. Sub 表單清除()
   
2. Dim Y&
   
3. yn = MsgBox("是否已經另存新檔", vbYesNo)
   
4. If yn = 7 Then MsgBox "請另存新檔後重新執行按鈕": Exit Sub
   
5. With Sheets("報表")
   
6.   Y = .[A65536].End(xlUp).Row - 2
   
7.   .Range("A3:R" & Y).ClearContents
   
8. End With
   
9. With Sheets("請款單")
   
10.   .Range("a:h").Clear
    
11. End With
    
12. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)