天魔黑羽

小學生 Rank: 1

帖子: 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)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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 編輯

Sub 執行()
yn = MsgBox("是否執行", vbOKCancel)
If yn = 1 Then
With Sheets("總表")
.Unprotect "0000"
Sheets("key").Range("A2:C5").Copy .[A2]
.Protect "0000"
End With
Sheets("key").Select
End If
End Sub

複製代碼

學海無涯_不恥下問

TOP

天魔黑羽

小學生 Rank: 1

帖子: 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

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-12-29 23:26 | 只看該作者

你要用甚麼樣的介面?
USERFORM=自找麻煩
若要設定不同按鈕，請參閱MsgBox的VBA說明

學海無涯_不恥下問

TOP