帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-4-7 10:46 | 只看該作者

按鈕防呆裝置製作

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

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

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

樓主熱帖

chaoyiho

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

6^#

發表於 2016-4-8 14:49 | 只看該作者

回復 5# 准提部林

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

萬分感謝!!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

5^#

發表於 2016-4-8 12:36 | 只看該作者

回復 4# chaoyiho

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

TOP

chaoyiho

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

4^#

發表於 2016-4-8 10:00 | 只看該作者

回復 2# 准提部林

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

要如何讓按鈕按完之後

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

懇請前輩賜教

TOP

chaoyiho

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

3^#

發表於 2016-4-8 08:46 | 只看該作者

回復 2# 准提部林

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

2^#

發表於 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

TOP