Jak kliknąć literę alfabetu, aby przejść do komórki, która zaczyna się od tej litery w programie Excel?
Korzystając z arkusza programu Excel z dużą ilością danych, czy wiesz, jak szybko przejść do lub znaleźć określone komórki, które zawierają określoną zawartość? Korzystając z metody opisanej w tym artykule, możesz kliknąć komórkę z literą alfabetu, aby automatycznie przejść do komórki, której zawartość zaczyna się od tej litery alfabetu.
Kliknij literę alfabetu, aby przejść do komórki, która zaczyna się od tej litery z kodem VBA
Kliknij literę alfabetu, aby przejść do komórki, która zaczyna się od tej litery z kodem VBA
Wykonaj następujące czynności, aby przejść do komórki, klikając komórkę alfabetu w programie Excel.
1. W arkuszu należy przejść do komórki, klikając komórkę alfabetu, prawym przyciskiem myszy kartę arkusza, a następnie Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:
2. Następnie a Microsoft Visual Basic for Applications pojawi się okno, skopiuj i wklej poniższy kod VBA do okna kodu.
Kod VBA: kliknij literę alfabetu, aby przejść do komórki, która zaczyna się od tej litery
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
Note: W kodzie 1: 1 oznacza, że litery alfabetu znajdują się w pierwszym rzędzie arkusza.
3. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.
Odtąd po kliknięciu komórki alfabetu wszystkie komórki zaczynające się na tę literę są automatycznie zaznaczane w arkuszu jednocześnie.
Jeśli żadna komórka nie zaczyna się od wybranej litery, pojawi się okno dialogowe Kutools dla programu Excel, jak pokazano na poniższym zrzucie ekranu.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!