[英]Populate date cells based on one cell's value?
我希望用戶能夠在單元格D1中輸入年份(例如“ 2013”)並按下觸發宏的按鈕。 此宏將自動為D2-O2單元(一年中每個月一個單元)分配一個函數,將這些單元轉換為實際日期類型。
例如,單元格D2的值為=DATE(2013, 1, 1)
2013,1,1 =DATE(2013, 1, 1)
,表示此單元格代表2013年1月1日。類似地,單元格E2的值為=DATE(2013, 2, 1)
,F2的值為=DATE(2013, 3, 1)
等
以下是我的偽代碼,請您幫我將其轉換為實際的VBA嗎?
var myYear = the value of cell D1
cell D2 value is =DATE(2013,1,1)
cell E2 value is =DATE(2013,2,1)
cell F2 value is =DATE(2013,3,1)
cell G2 value is =DATE(2013,4,1)
cell H2 value is =DATE(2013,5,1)
cell I2 value is =DATE(2013,6,1)
cell J2 value is =DATE(2013,7,1)
cell K2 value is =DATE(2013,8,1)
cell L2 value is =DATE(2013,9,1)
cell M2 value is =DATE(2013,10,1)
cell N2 value is =DATE(2013,11,1)
cell O2 value is =DATE(2013,12,1)
謝謝
嘗試這個:
Sub FillYear()
YearNum = Cells(1, 4) ' Cell D1
For MonthNum = 1 To 12
Cells(2, MonthNum + 3).Value = DateSerial(YearNum, MonthNum, 1)
Next
End Sub
更新:
如果希望日期值成為公式,以便用戶更改年份時日期也可以更改,請將For Loop
內的行更改為:
Cells(2, MonthNum + 3).Formula = "=Date(R1C4," & MonthNum & ", 1)"
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.