下個月新檔 - Excel程式區 - 麻辣家族討論版版

1 23

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

[發問] 下個月新檔

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

21^# 跳轉到 »

發表於 2020-2-11 12:57 | 只看該作者

回復 20# PJChen
Sheets("1").Range("A2")的日期(2020/4/1),抓月底日
Lastday = DateSerial(Year(BK.Sheets("1").Range("A2")), Month(BK.Sheets("1").Range("A2")), 0) '月底日
這樣Lastday是2020/3/31
mDay = Day(Lastday)是31
改成Lastday = DateSerial(Year(BK.Sheets("1").Range("A2")), Month(BK.Sheets("1").Range("A2")) +1, 0) '月底日
Lastday是2020/4/30
mDay = Day(Lastday)是30

TOP

PJChen