Question

我想在工作表中插入日期栏。但我只希望显示年初至今的数据并自动更新。例如：此日期列将显示从1/1/2018到今天（6/6/2018）的数据，然后从明天的1/1/2018到7/6/2018（自动）。

如果你知道这个功能，请帮助我！

非常感谢。

Answer 1

根据需要改变一些假设：带日期的列是A列第一个日期在单元格A1中在应该是年初的第一个单元格中输入以下公式，这将每年更新：

=DATE(YEAR(TODAY()),1,1)

然后在下面输入以下公式并向下拖动：

=IF(A1="","",IF(A1=TODAY(),"",A1+1))

Answer 2

如果感兴趣的话，这是一个VBA解决方案。按ThisWorkbook将以下代码放入Visual Basic Editor (Alt + F11)对象中：

Option Explicit

Private Sub Workbook_Open()
    Dim wks As Excel.Worksheet
    Set wks = ActiveWorkbook.Worksheets("Sheet1")  '''Change to name of worksheet.

    Dim rng As Excel.Range
    Set rng = wks.Cells(Rows.Count, 1).End(xlUp)  '''Change column if necessary (ex. column h = 8).

    Dim iCount As Integer
    Dim i As Integer

    If Not rng = Date Then
        iCount = Date - rng.Value
        For i = 1 To iCount
            rng.Offset(i, 0).Value = rng.Value + i
        Next i
    End If
End Sub

每次打开工作簿时都会运行此代码。即使您在几天内没有打开它，它仍然会将A列中的每一行从最后一个记录日期增加一个。只需在单元格A1中输入日期即可。不需要配方。您需要使用.xlsm文件扩展名（启用宏的工作簿）保存文件。希望它有所帮助！

Excel - 显示日期（月初至今）

2 个答案: