標題: 按鈕防呆裝置製作 [打印本頁]

---

作者: chaoyiho    時間: 2016-4-7 10:46     標題: 按鈕防呆裝置製作

請問各位前輩，
目前小弟做了一個Userform 方便資料輸入時可以做資料分析
[attach]23743[/attach]
但是小弟不知道要如何讓別人於尚未開啟母檔(另一個檔案)時 如果錯誤點擊到按鈕 這些按鈕會顯是錯誤訊息"您尚未開啟母檔"    是msgbox形式的
而不是跑出執行錯誤或程式碼錯誤必須偵錯或關閉的訊息
請問要如何寫呢?

研究很久就是無法寫出來這個迴圈 還請前輩們賜教

---

作者: 准提部林    時間: 2016-4-7 12:33

相對簡單方法：

Sub 檢測檔案開啟()
If TestBookOpen("abc.xls") = "" Then MsgBox "檔案未開啟"
End Sub

藍色字改成要檢測的〔檔名.副檔名〕

模組內共用自訂函數：
Function TestBookOpen(BookName$) As String
On Error Resume Next
TestBookOpen = Workbooks(BookName).Name
End Function

---

作者: chaoyiho    時間: 2016-4-8 08:46

回復 2# 准提部林

感謝前輩的提點，我立刻試看看!@@

---

作者: chaoyiho    時間: 2016-4-8 10:00

回復 2# 准提部林

前輩您好  我剛剛測試過後  雖然跑出尚未開啟檔案的警告窗 是正確的
但是接著就還是會出現如下的畫面
[attach]23758[/attach]

要如何讓按鈕按完之後

1.如果沒有開啟檔案則會顯示沒有開啟檔案
2.如果開啟檔案了就會不顯示沒有開啟檔案
3. 如何不會跳出如上圖的警告 只會出現沒有開啟檔案視窗

懇請前輩賜教

---

作者: 准提部林    時間: 2016-4-8 12:36

回復 4# chaoyiho


If TestBookOpen("abc.xls") = "" Then MsgBox "檔案未開啟" :Exit Sub '跳出程序

---

作者: chaoyiho    時間: 2016-4-8 14:49

回復 5# 准提部林

感謝版主  已經解決了!!!


    萬分感謝!!

---

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