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

2025年全勤獎章 2024年全勤獎章 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)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2015-12-22 12:15 | 只看該作者

回復 3# lcctno

If msg = vbOK Then

End If

TOP

lcctno

中學生 Rank: 2

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

2025年全勤獎章 2024年全勤獎章 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

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