打開excel工作簿后自動跳轉到當前日期所在列？

打開excel工作簿后自動跳轉到當前日期所在列？

Q：在Excel工作表中的第1行的每一列，都是按順序排列的日期，如何在打開工作簿時自動跳轉到當前日期所在的列？如下所示，如果今天是2 19年4月6日，打開工作簿后自動選擇這一列。

A：很簡單。在Workbook_Open過程中輸入下面的代碼：

Private Sub Workbook_Open()

Dim wks As Worksheet

Dim rngSearch As Range

Dim lngLastColumn As Long

Set wks = Worksheets(“Sheet1”)

‘第一行中最后一列數據所在的列號

lngLastColumn =wks.Range(“A1”).End(xlToRight).Column

‘第一行中的數據區域

Set rngSearch = wks.Range(“A1”).Offset( , ).Resize(1, lngLastColumn)

‘查找當前日期所在的單元格并激活該單元格

rngSearch.Find(Date).Activate

End Sub

代碼在工作簿打開時，先確定工作表Sheet1的第一行中所有已使用的單元格區域，然后使用Find方法在該區域查找到當前日期，并激活當前日期所在的單元格。

注意，代碼要放置在ThisWorkbook模塊中。

代碼的圖片版如下：

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。