Làm cách nào để nhanh chóng chuyển đến ô có ngày hiện tại trong Excel?
Đây là một sheet có danh sách ngày tháng, bạn muốn chuyển nhanh đến ô có ngày tháng hiện tại, làm thế nào để giải quyết vấn đề này?
Chuyển đến ngày hiện tại với VBA
Chuyển đến ngày hiện tại với Tìm và Thay thế
Chuyển đến ngày hiện tại với VBA
Đây là mã VBA có thể giúp bạn nhanh chóng chuyển đến ô có ngày hiện tại.
1. Bật sổ làm việc bạn muốn sử dụng và nhấn Alt + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đun, dán mã bên dưới vào Mô-đun.
VBA: Chuyển đến ngày hiện tại
Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. nhấn F5 , sau đó con trỏ nhảy đến ô có ngày hiện tại ở bất kỳ vị trí nào bạn định vị trong sổ làm việc.
Chuyển đến ngày hiện tại với Tìm và Thay thế
Nếu bạn không quen thuộc với mã VBA, bạn cũng có thể áp dụng Tìm và Thay thế tiện ích để chuyển đến ngày hiện tại.
1. Bật trang tính chứa danh sách ngày tháng và chọn một ô trống, nhập công thức này = HÔM NAY (), nhấn đăng ký hạng mục thi chìa khóa, bây giờ bạn nhận được ngày hôm nay.
2. nhấn Ctrl + C để sao chép ngày hôm nay và đi tới chọn danh sách ngày, sau đó bấm Ctrl + F để cho phép Tìm và Thay thế hộp thoại, trong Tìm hộp văn bản, nhấn Ctrl + V để dán ngày hôm nay vào. Xem ảnh chụp màn hình:
3. nhấp chuột Tìm tất cả. Bây giờ con trỏ sẽ nhảy đến ô có ngày hôm nay trong danh sách đã chọn.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!