返回列表 上一主題 發帖

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

lcctno

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

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.jpg
2015-12-22 08:51



Book1.zip (62.26 KB)
收藏 分享

lcctno

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

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

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題