如何让LibreOffice Calc打开时自动定位到今日日期单元格

要实现打开表格时自动定位到A列的今日日期单元格，得用VBA宏来完成，具体步骤如下：

1. 打开目标表格，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里找到当前工作簿，右键点击它，选择「插入」→「模块」
3. 在弹出的代码窗口里粘贴以下代码：

Sub AutoOpen()
    Dim targetCell As Range
    Dim searchRange As Range
    
    ' 替换Sheet1为你实际的工作表名称，搜索范围限定为A列的数字型单元格（日期本质是数字）
    Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
    
    ' 精确查找今日日期
    On Error Resume Next
    Set targetCell = searchRange.Find(What:=Date, LookIn:=xlValues, LookAt:=xlWhole)
    On Error GoTo 0
    
    If Not targetCell Is Nothing Then
        ' 定位到目标单元格，若要跳转到该行特定列（比如C列），修改Offset的第二个参数：A到C是偏移2列
        targetCell.Offset(0, 2).Select
    Else
        MsgBox "A列里没找到今日日期的单元格，请检查数据。"
    End If
End Sub

关键参数说明 #

• 把代码里的Sheet1改成你实际使用的工作表名称（比如「日报表」）
• Offset(0, 2)：第一个数字是行偏移（0代表不换行），第二个是列偏移。比如要定位到该行的D列，就改成Offset(0, 3)
• SpecialCells筛选了A列的数字型单元格，自动跳过空白行和非日期内容，避免无效查找

后续设置 #

• 保存文件时，选择「Excel启用宏的工作簿（.xlsm）」格式，否则宏会丢失
• 下次打开表格时，如果弹出「安全警告」，点击「启用内容」，宏就会自动运行并定位到目标单元格

内容的提问来源于stack exchange，提问作者David Wall