返回列表 上一主題 發帖

[發問] 請問如何彈出視窗0..0

天魔黑羽

帖子
12 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
EXCEL 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-12-22 
最後登錄
2015-3-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-12-28 21:43 | 只看該作者

[發問] 請問如何彈出視窗0..0

小弟在執行程式碼時,是否可以讓他彈出視窗是否作確認執行!
如附件!
小弟看以往的問題文章...>W< EXCEL的VB會出現DLL無法顯示!
請問是否可以教教小弟如何讓他彈出視窗...

Q2.rar (7.67 KB)

Q2.rar (7.67 KB)

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
279  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-12-28 22:20 | 只看該作者
本帖最後由 Hsieh 於 2010-12-28 22:23 編輯
  1. Sub 執行()

  3. yn = MsgBox("是否執行", vbOKCancel)
  4. If yn = 1 Then
  5. With Sheets("總表")
  6. .Unprotect "0000"
  7.   Sheets("key").Range("A2:C5").Copy .[A2]
  8. .Protect "0000"
  9. End With
  10. Sheets("key").Select
  11. End If
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

天魔黑羽

帖子
12 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
EXCEL 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-12-22 
最後登錄
2015-3-17 
3#
發表於 2010-12-29 23:12 | 只看該作者
yn = MsgBox("是否執行", vbOKCancel)
If yn = 1 Then
End If
感謝大大幫忙
還有請問大大他不能依自已的設定版面出現嗎?

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
279  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-12-29 23:26 | 只看該作者
你要用甚麼樣的介面?
USERFORM=自找麻煩
若要設定不同按鈕，請參閱MsgBox的VBA說明
學海無涯_不恥下問

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題