如何让当前日期行始终位于 excel 文件之上？

Question

我有一个电子表格，人们每天在其中一行中插入信息。

一行是一天，需要填写几列。

我们有很多数据，所以他们必须向下滚动。

我想保留旧数据并自动在顶部插入新行。

他们可能会忘记插入一些日期，所以新行应该是下一个日期，不一定是今天。

我不介意使用 xlwings 或 VBA。这就是为什么我在这里写下这个问题。但最简单的选项是首选。

Answer 1

根据猜测和假设，这可能有效。
我假设这是我们看到的 A 列，它的格式为日期。

如果日期是降序的，那么这将查看 A1 值并循环直到今天的日期，并在每个循环中插入新的行和日期。

Private Sub Workbook_Open()
    Set ws = ThisWorkbook.Sheets("YourSheetName")
    
    latest = CLng(ws.Range("A1").Value)
     
    While latest < CLng(Now())
        latest = latest + 1
        ws.Rows("1:1").Insert
        ws.Range("A1").Value = latest
    Wend
End Sub

如何让当前日期行始终位于 excel 文件之上？

How to have the current date row always on top of excel file?

excel

vba

excel-formula

xlwings