返回列表 上一主題 發帖

excel可以設定儲存條件嗎?

VANESSA

帖子
100 
主題
37 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
台灣 
註冊時間
2010-8-11 
最後登錄
2024-3-12 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-11-11 14:41 | 只看該作者

excel可以設定儲存條件嗎?

excel可以設定儲存條件嗎.zip (14.02 KB)

請教 儲存格C104  必須大於等於4%  才可以存檔,要如何設定?
收藏 分享

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2016-11-12 14:23 | 只看該作者
供參考,恐有不周

TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2016-11-12 14:27 | 只看該作者
[attach]25769[/attach]不好意思,新人還不清楚回復的操作

TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2016-11-12 14:49 | 只看該作者
  1. [attach]25769[/attach]
複製代碼

TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2016-11-12 14:50 | 只看該作者
  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  2. If 工作表3.Range("c104") < 0.4 Then
  3. MsgBox "數字很可觀喔,是不是預算有问題??"
  4. Cancel = True
  5. End If
  6. End Sub
複製代碼

TOP

VANESSA

帖子
100 
主題
37 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
台灣 
註冊時間
2010-8-11 
最後登錄
2024-3-12 

論壇贊助勳章
6#
發表於 2016-11-16 09:33 | 只看該作者
謝謝,請問我是不是把程式COPY到"檢視程式碼"這裡,儲存後就可以使用?
但是,,為什麼儲存格C104沒有等於大於4%,也可以儲存?

TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
7#
發表於 2016-11-18 14:52 | 只看該作者
回復 6# VANESSA
修改好了請參考[attach]25841[/attach]

TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
8#
發表於 2016-11-18 15:24 | 只看該作者
回復 6# VANESSA
附件上傳不了,直接步驟說明
1.按Alt+F11進入VBE頁面,左邊窗口Thisworkbook左鍵按兩下
再貼上下面程式
  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  2. If Range("c104") <= 0.04 Then
  3. MsgBox "C104 數字<=4%,無法存檔"
  4. cancle = True
  5. End If
  6. End Sub
複製代碼

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題