標題: 請問是否能做到 [打印本頁]

---

作者: 小yoyo    時間: 2013-2-1 13:50     標題: 請問是否能做到

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

---

作者: Hsieh    時間: 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

複製代碼

---

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