標題: 資料回饋 [打印本頁]

---

作者: koala2099    時間: 2012-6-15 00:54     標題: 資料回饋

總需要各單位回饋資料
但~........
每個單位回饋回來的資料總是零散沒一個完整的
可設定一個只要A欄姓名填入資料後B~F其中一格未填寫就無法儲存
強制資料要整存才能存檔

---

作者: Hsieh    時間: 2012-6-15 09:58

回復 1# koala2099
ThisWorkbook模組

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2. If Application.CountBlank(Sheets(1).Range("A1").CurrentRegion) > 0 Then
   
3.    MsgBox "資料不全，請檢查" & Chr(10) & "檔案未儲存"
   
4.    Cancel = True
   
5. End If
   
6. End Sub

複製代碼

---

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