返回列表 上一主題 發帖

請問是否能做到

小yoyo

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
windows 
軟體版本
office 2010&2003 
閱讀權限
10 
性別
男 
註冊時間
2013-2-1 
最後登錄
2013-2-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-2-1 13:50 | 只看該作者

請問是否能做到

假使我要監控某項數據，如長度，
由於每日都會新增不同的數值，Ex: 200, 102.32, 88.52, 100....
但只要加總後達到上限1000，數字即設定變紅，
但接下來能否在使用者鍵入下一個數值時，
加總值從新的數值開始計算而不是1000繼續往上累加?
收藏 分享

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-2-1 15:04 | 只看該作者
回復 1# 小yoyo
試試看在該工作表模組內的程式碼
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. r = Target.Row: k = Target.Column
  3. Do Until cnt >= 1000 Or Cells(r, k).Interior.ColorIndex = 3
  4.    cnt = cnt + Cells(r, k)
  5.    r = r - 1
  6.    If r < 1 Then Exit Do
  7. Loop
  8. If Application.Sum(Range(Cells(r + 1, k), Target)) >= 1000 Then Target.Interior.ColorIndex = 3
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題