返回列表 上一主題 發帖

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

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
313  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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





Book1.zip (62.26 KB)
收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
4#
發表於 2015-12-22 12:15 | 只看該作者
回復 3# lcctno


If msg = vbOK Then

End If

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
313  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
3#
發表於 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
----------------------------------

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
2#
發表於 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

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題