計算每天的剩餘金額

518587

各位大大個我的困惑如題，我要如何算出每天的剩餘金額，金額是以每個月10,000元為基準
例如
2015/7/1，花150元，所剩餘金額為9,850元
2015/7/2，花200元，所剩餘金額為9,650元
依此類推
一直計算下去，直到
2015/8/1，花300元，所剩餘金額為9,800元(每月1號又會從新計算)
如圖下

下載 (14.23 KB)

2015-9-20 16:44

hcm19522

http://blog.xuite.net/hcm19522/twblog/344426627

GBKEE

回復 1# 518587
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     With Range("A2", Range("A2").End(xlDown)).Columns(3) 'A2 往下日期的儲存格 的第3欄
   
4.         '儲存格的公式=IF(DAY(A2)=1,10000-B2,C1-B2)
   
5.         .Cells = "=IF(DAY(RC[-2])=1,10000-RC[-1],R[-1]C-RC[-1]) " '如工作表C2輸入公式後下拉
   
6.        ' .Value = .Value '公式轉為值
   
7.     End With
   
8. End Sub

複製代碼