標題: [發問] 請問VBA之寫法 如何於執行MsgBox時 必須經過確認 [打印本頁]

---

作者: lcctno    時間: 2015-12-22 08:52     標題: 請問VBA之寫法 如何於執行MsgBox時 必須經過確認

本帖最後由 lcctno 於 2015-12-22 08:54 編輯

請問VBA之寫法  
如何於執行MsgBox時 必須經過確認 才會執行動作
謝謝教導

我試過 但無法執行???


Sub 清除買張數及價位()

style = 4
title = "清除買張數及價位"
response = MsgBox(msg, style, title)

    If Yes Then
    Range("A3:A65536").Select
    Selection.ClearContents
    Range("C3:C65536").Select
    Selection.ClearContents
Else

End If

End Sub


[attach]22908[/attach]


[attach]22909[/attach]

---

作者: 准提部林    時間: 2015-12-22 10:02

本帖最後由 准提部林 於 2015-12-22 10:08 編輯

參考這：
詢問型msgbox！
http://forum.twbts.com/redirect. ... 0&fromuid=13768

msg = MsgBox("確認要刪除工作表嗎？", 1 + 32 + 256) 　　'vbOK 或 vbCancel
msg = MsgBox("確認要刪除工作表嗎？", 4 + 32 + 256)　　 'vbYes 或 vbNo

---

作者: lcctno    時間: 2015-12-22 11:56

回復 2# 准提部林

我有試過 但還是只有詢問的畫面
但還是不會進行清除買張數A欄及價位C欄
不知道那裡寫錯了
還請您指導
謝謝

---------------------------------------------------
Sub 清除買張數及價位()

msg = MsgBox("確認要清除買張數及價位？", 1 + 32 + 256)

    If Yes Then
    Range("A3:A65536").Select
    Selection.ClearContents
    Range("C3:C65536").Select
    Selection.ClearContents
Else

End If

End Sub
----------------------------------

---

作者: 准提部林    時間: 2015-12-22 12:15

回復 3# lcctno


If msg = vbOK Then

End If

---

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