Question

excel中range.select问题

我的单元格第一列是日期，我想让excel打开的时候，单元格自动停留当天日期与第一列对应日期的第二列单元格上，在thisworkbook中代码该怎么写？

Answer 1

Thisworkbook中复制粘贴以下代码，保存后再次打开文件即可。

Private Sub Workbook_Open()
    Dim iRow As Long, i As Long
    Application.ScreenUpdating = False
    iRow = Worksheets(1).Range("A60000").End(xlUp).Row
    For i = 2 To iRow
        If Range("A" & i) = Date Then Range("A" & i, "B" & i).Select
    Next
    Application.ScreenUpdating = True
End Sub

Answer 2

Private Sub Workbook_Open()
Dim arr
arr = Range("a1:a" & [a65536].End(3).Row)
For i = 1 To UBound(arr)
If arr(i, 1) = Date Then Cells(i, "b").Select: End
Next
End Sub