Hoe klik je op een alfabetletter om naar de cel te gaan die met die letter in Excel begint?
Als u een Excel-werkblad met een grote hoeveelheid gegevens gebruikt, weet u dan hoe u snel naar bepaalde cellen met bepaalde inhoud kunt navigeren of deze kunt vinden? Met de methode in dit artikel kun je op een alfabetlettercel klikken om naar de cel te navigeren waarvan de inhoud automatisch met die alfabetletter begint.
Klik op de alfabetletter om naar de cel te gaan die begint met die letter met VBA-code
Klik op de alfabetletter om naar de cel te gaan die begint met die letter met VBA-code
Ga als volgt te werk om naar een cel te gaan door in Excel op een alfabetcel te klikken.
1. In het werkblad moet u naar een cel gaan door op een alfabetcel te klikken, met de rechtermuisknop op de bladtab te klikken en vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:
2. Vervolgens een Microsoft Visual Basic voor toepassingen venster verschijnt, kopieer en plak de onderstaande VBA-code in het codevenster.
VBA-code: klik op de alfabetletter om naar de cel te gaan die met die letter begint
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: In de code betekent 1: 1 dat de alfabetletters op de eerste rij van het werkblad staan.
3. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.
Vanaf nu, wanneer u op een alfabetcel klikt, worden alle cellen die met die letter beginnen automatisch in 茅茅n keer in het werkblad geselecteerd.
Als geen enkele cel begint met de geselecteerde letter, krijgt u een dialoogvenster Kutools voor Excel zoals onderstaand screenshot.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!