Cum să faceți clic pe litera alfabetului pentru a merge la celula care începe cu litera respectivă în Excel?
În timp ce utilizați o foaie de lucru Excel cu o cantitate mare de date, știți cum să navigați sau să găsiți rapid anumite celule care conțin conținut specificat? Cu metoda din acest articol, puteți face clic pe o celulă cu litere alfabetice pentru a naviga la celulă, conținutul care începe automat cu litera respectivă.
Faceți clic pe litera alfabetului pentru a merge la celula care începe cu litera respectivă cu codul VBA
Vă rugăm să procedați după cum urmează pentru a merge la o celulă făcând clic pe o celulă alfabetică în Excel.
1. În foaia de lucru, trebuie să mergeți la o celulă făcând clic pe o celulă alfabetică, faceți clic dreapta pe fila de foaie, apoi faceți clic pe Afișați codul din meniul cu clic dreapta. Vedeți captura de ecran:
2. Apoi a Microsoft Visual Basic pentru aplicații fereastra apare, vă rugăm să copiați și să lipiți mai jos codul VBA în fereastra Cod.
Cod VBA: Faceți clic pe litera alfabetului pentru a merge la celula care începe cu litera respectivă
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
notițe: În cod, 1: 1 înseamnă că literele alfabetului se află pe primul rând al foii de lucru.
3. apasă pe Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
De acum înainte, când faceți clic pe o celulă alfabetică, toate celulele care încep cu litera respectivă sunt selectate simultan în foaia de lucru.
Dacă nicio celulă nu începe cu litera selectată, veți primi o casetă de dialog Kutools pentru Excel, așa cum se arată mai jos.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!