標題: [發問] 請問如何彈出視窗0..0 [打印本頁]

---

作者: 天魔黑羽    時間: 2010-12-28 21:43     標題: 請問如何彈出視窗0..0

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

---

作者: Hsieh    時間: 2010-12-28 22:20

本帖最後由 Hsieh 於 2010-12-28 22:23 編輯

1. Sub 執行()
   
2. 
   
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

複製代碼

---

作者: 天魔黑羽    時間: 2010-12-29 23:12

yn = MsgBox("是否執行", vbOKCancel)
If yn = 1 Then
End If
感謝大大幫忙
還有請問大大他不能依自已的設定版面出現嗎?

---

作者: Hsieh    時間: 2010-12-29 23:26

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)