Hvordan klikker man på alfabetbogstav for at gå til celle, der starter med det bogstav i Excel?
Mens du bruger et Excel-regneark med store mængder data, ved du, hvordan du hurtigt navigerer til eller finder de bestemte celler, der indeholder specificeret indhold? Med metoden i denne artikel kan du klikke på en alfabetbogstavscelle for at navigere til cellen, hvilket indhold starter med det alfabetbogstav automatisk.
Klik på alfabetbogstav for at gå til celle, der starter med det bogstav med VBA-kode
Klik på alfabetbogstav for at gå til celle, der starter med det bogstav med VBA-kode
Gør venligst som følger for at gå til en celle ved at klikke på en alfabetcelle i Excel.
1. I regnearket skal du gå til en celle ved at klikke på en alfabetcelle, højreklikke på arkfanen og derefter klikke Vis kode fra højreklikmenuen. Se skærmbillede:
2. Derefter a Microsoft Visual Basic til applikationer vindue dukker op, skal du kopiere og indsætte under VBA-kode i kodevinduet.
VBA-kode: Klik på bogstavet for at gå til cellen, der starter med det bogstav
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
Bemærk: I koden betyder 1:1, at alfabetets bogstaver er placeret på den første række af regnearket.
3. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når du klikker på en alfabetcelle, bliver alle celler, der starter med det bogstav, automatisk valgt på én gang i regnearket.
Hvis ingen celle starter med det valgte bogstav, får du en Kutools til Excel-dialogboks som vist nedenfor.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!