Hoe klikt u op een letter van het alfabet om direct naar de cel te springen die met die letter begint in Excel?
Wanneer u werkt met een Excel-werkblad vol gegevens, weet u dan hoe u snel naar specifieke cellen kunt navigeren of diegene kunt vinden die een bepaalde inhoud bevatten? Met de methode in dit artikel klikt u op een cel met een alfabetletter en springt u automatisch naar de eerste cel waarvan de inhoud met die letter begint.
Klik op een letter van het alfabet om naar de cel te gaan die met die letter begint met VBA-code
Klik op een letter van het alfabet om naar de cel te gaan die met die letter begint met VBA-code
Voer de volgende stappen uit om naar een cel te navigeren door op een kolomletter in Excel te klikken.
1. Ga op het werkblad naar een cel door op een kolomletter te klikken, klik met de rechtermuisknop op het bladtabblad en selecteer vervolgens Code weergeven in het contextmenu. Zie onderstaande afbeelding:
2. Vervolgens verschijnt een Microsoft Visual Basic for Applications-venster. Kopieer de onderstaande VBA-code en plak deze in het codovenster.
VBA-code: Klik op een letter van het alfabet 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 SubOpmerking: In de code betekent 1:1 dat de alfabetletters zich op rij 1 van het werkblad bevinden.
3. Druk tegelijkertijd op de Alt+Q-toetsen om het Microsoft Visual Basic for Applications-venster te sluiten.
Vanaf nu worden alle cellen die beginnen met de gekozen letter automatisch en tegelijkertijd geselecteerd in het werkblad zodra u op een alfabetcel klikt.
Als er geen cel is die met de geselecteerde letter begint, verschijnt er een Kutools voor Excel-dialoogvenster, zoals hieronder in de afbeelding wordt getoond.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins