按鈕防呆裝置製作

chaoyiho

請問各位前輩，
目前小弟做了一個Userform 方便資料輸入時可以做資料分析

下載 (79.25 KB)

2016-4-7 10:40

但是小弟不知道要如何讓別人於尚未開啟母檔(另一個檔案)時 如果錯誤點擊到按鈕 這些按鈕會顯是錯誤訊息"您尚未開啟母檔"    是msgbox形式的
而不是跑出執行錯誤或程式碼錯誤必須偵錯或關閉的訊息
請問要如何寫呢?

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

准提部林

相對簡單方法：

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

回復 2# 准提部林

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

chaoyiho

回復 2# 准提部林

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

下載 (27.57 KB)

2016-4-8 09:56

要如何讓按鈕按完之後

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

懇請前輩賜教

准提部林

回復 4# chaoyiho


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

chaoyiho

回復 5# 准提部林

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


    萬分感謝!!