麻辣家族討論版版 » Excel程式區 » 計算每天的剩餘金額

返回列表下一主題上一主題發帖

計算每天的剩餘金額

中學生 Rank: 2

帖子: 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

新圖片 (1).jpg

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 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
試試看

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

大學生 Rank: 4

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

熱烈參與勳章

3^#

發表於 2015-9-21 15:26 | 只看該作者

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

靜思自在 : 天上最美是星星，人生最美是溫情。

返回列表下一主題上一主題