返回列表 上一主題 發帖

資料回饋

koala2099

帖子
58 
主題
21 
精華
0 
積分
97 
點名
0  
作業系統
win8 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-2-28 
最後登錄
2024-10-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-15 00:54 | 只看該作者

資料回饋

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

活頁簿1.rar (10.04 KB)

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
267  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題