0

我希望用户能够在单元格 D1 中输入年份（例如“2013”​​）并按下触发宏的按钮。此宏将自动为单元格 D2-O2（一年中每个月一个单元格）分配一个函数，将这些单元格转换为实际日期类型。

例如，单元格 D2 的值为=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)

谢谢

4

1 回答 1

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)"
于 2012-12-17T18:55:33.270 回答