Come fare clic sulla lettera dell'alfabeto per andare alla cella che inizia con quella lettera in Excel?
Durante l'utilizzo di un foglio di lavoro Excel con una grande quantità di dati, sai come navigare o trovare rapidamente determinate celle che contengono contenuto specificato? Con il metodo in questo articolo, puoi fare clic su una cella della lettera dell'alfabeto per passare alla cella il cui contenuto inizia automaticamente con quella lettera dell'alfabeto.
Fare clic sulla lettera dell'alfabeto per andare alla cella che inizia con quella lettera con il codice VBA
Si prega di fare quanto segue per andare a una cella facendo clic su una cella dell'alfabeto in Excel.
1. Nel foglio di lavoro, è necessario accedere a una cella facendo clic su una cella dell'alfabeto, fare clic con il tasto destro sulla scheda del foglio, quindi fare clic su Visualizza codice dal menu di scelta rapida. Vedi screenshot:
2. Quindi a Microsoft Visual Basic, Applications Edition si apre la finestra, copia e incolla sotto il codice VBA nella finestra del codice.
Codice VBA: fai clic sulla lettera dell'alfabeto per andare alla cella che inizia con quella lettera
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 SubNote:: Nel codice, 1: 1 significa che le lettere dell'alfabeto si trovano sulla prima riga del foglio di lavoro.
3. premi il altro + Q contemporaneamente i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.
D'ora in poi, quando si fa clic su una cella dell'alfabeto, tutte le celle che iniziano con quella lettera vengono selezionate contemporaneamente nel foglio di lavoro automaticamente.
Se nessuna cella inizia con la lettera selezionata, otterrai una finestra di dialogo Kutools per Excel come mostrato nell'immagine sottostante.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
