Làm thế nào để nhấp vào ký tự bảng chữ cái để chuyển đến ô bắt đầu bằng ký tự đó trong Excel?
Trong khi sử dụng trang tính Excel với lượng dữ liệu lớn, bạn có biết cách điều hướng đến hoặc tìm các ô nhất định có chứa nội dung được chỉ định một cách nhanh chóng không? Với phương pháp trong bài viết này, bạn có thể nhấp vào ô ký tự bảng chữ cái để điều hướng đến ô có nội dung bắt đầu bằng ký tự bảng chữ cái đó tự động.
Nhấp vào chữ cái trong bảng chữ cái để chuyển đến ô bắt đầu bằng chữ cái đó với mã VBA
Nhấp vào chữ cái trong bảng chữ cái để chuyển đến ô bắt đầu bằng chữ cái đó với mã VBA
Vui lòng làm như sau để chuyển đến một ô bằng cách nhấp vào ô bảng chữ cái trong Excel.
1. Trong trang tính, bạn cần chuyển đến một ô bằng cách nhấp vào ô bảng chữ cái, nhấp chuột phải vào tab trang tính, sau đó nhấp vào Mã Chế độ xem từ menu chuột phải. Xem ảnh chụp màn hình:
2. Sau đó a Microsoft Visual Basic cho các ứng dụng cửa sổ bật lên, vui lòng sao chép và dán mã VBA bên dưới vào cửa sổ Mã.
Mã VBA: Nhấp vào chữ cái trong bảng chữ cái để chuyển đến ô bắt đầu bằng chữ cái đó
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim xRgRtn As Range
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("1:1")) Is Nothing Then
Set xRg = ActiveSheet.UsedRange
Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg
If Left(xCell.Value, 1) = Target.Value Then
If xRgRtn Is Nothing Then
Set xRgRtn = xCell
Else
Set xRgRtn = Application.Union(xRgRtn, xCell)
End If
End If
Next
If xRgRtn.Address = Target.Address Then
MsgBox "No matched cell found", , "KuTools For Excel"
Else
xRgRtn.Select
End If
End If
Application.EnableEvents = True
End Sub
Chú thích: Trong mã, 1: 1 có nghĩa là các chữ cái trong bảng chữ cái nằm trên hàng đầu tiên của trang tính.
3. Nhấn nút Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.
Từ bây giờ, khi nhấp vào một ô bảng chữ cái, tất cả các ô bắt đầu bằng chữ cái đó sẽ được chọn cùng một lúc trong trang tính tự động.
Nếu không có ô nào bắt đầu bằng chữ cái đã chọn, bạn sẽ nhận được hộp thoại Kutools cho Excel như hình minh họa bên dưới.
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!