返回列表 上一主題 發帖

[發問] 請問VBA之寫法 如何於執行MsgBox時 必須經過確認

[發問] 請問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


Book1.jpg
2015-12-22 08:51



Book1.zip (62.26 KB)

本帖最後由 准提部林 於 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
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 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
----------------------------------

TOP

回復 3# lcctno


If msg = vbOK Then

End If
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 每天無所事事,是人生的消費者,積極、有用才是人生的創造者。
返回列表 上一主題