返回列表 上一主題 發帖

計算每天的剩餘金額

518587

帖子
63 
主題
15 
精華
0 
積分
81 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2014-3-16 
最後登錄
2015-9-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-20 16:45 | 只看該作者

計算每天的剩餘金額

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2015-9-20 19:37 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-25 

熱烈參與勳章
3#
發表於 2015-9-21 15:26 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/344426627

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題