Làm cách nào để nhanh chóng chuyển đến ô liền kề dựa trên lựa chọn trong danh sách thả xuống của Excel?
Bạn đã bao giờ chụp ảnh để chuyển đến ô liền kề dựa trên vùng chọn trong danh sách thả xuống trong Excel chưa? Ví dụ, ở đây tôi có một danh sách thả xuống trong ô C1 bao gồm tên các ngày trong tuần, cột A là danh sách ngày và cột B là danh sách thời gian. Bây giờ khi tôi chọn tên các ngày trong tuần, danh sách thả xuống, ví dụ: Thứ Năm, con trỏ sẽ nhảy đến B5 giáp với Thứ Năm trong cột A. Trong Excel, không có tính năng tích hợp nào để giải quyết công việc này, nhưng với mã VBA mạnh mẽ có thể.
Chuyển đến ô liền kề dựa trên giá trị trong danh sách thả xuống của VBA
Chuyển đến ô liền kề dựa trên giá trị trong danh sách thả xuống của VBA
1. Chọn một ngày bạn muốn sử dụng từ danh sách thả xuống, sau đó nhấn Alt + F11 các phím để kích hoạt 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 ô liền kề dựa trên giá trị
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
If Target.Address <> [C1].Address Then
Exit Sub
Else
JumpToCell
End If
End Sub
Sub JumpToCell()
Dim xRg, yRg As Range
Dim strAddress As String
strAddress = ""
Set yRg = Range("A2:A8")
For Each xRg In yRg
'MsgBox Cell.Value
If xRg.Value = ActiveCell.Value Then
strAddress = xRg.Address
End If
Next
If strAddress = "" Then
MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
vbInformation, "Kutools for Excel"
Exit Sub
Else
Range(strAddress).Offset(0, 1).Select
End If
End Sub
3. nhấn F5 , sau đó con trỏ nhảy đến ô liền kề dựa trên giá trị trong danh sách thả xuống.
Trong mã VBA, A2: A8 là danh sách chứa các giá trị phù hợp với các giá trị trong danh sách thả xuống, bạn có thể thay đổi tham chiếu này khi cầ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!