Hogyan kell kattintani az ábécé betűjére, hogy az Excelben ezzel a betűvel kezdődő cellába ugorjon?
Nagy mennyiségű adatot tartalmazó Excel munkalap használata közben tudja-e, hogyan lehet gyorsan navigálni vagy megtalálni azokat a cellákat, amelyek meghatározott tartalmat tartalmaznak? Az ebben a cikkben leírt módszerrel rákattinthat egy ábécé betű cellájára, és eljuthat arra a cellára, amelyik tartalom automatikusan kezdődik az ábécé betűjével.
Kattintson az ábécé betűjére, hogy abba a cellába ugorjon, amely VBA kóddal kezdődik
Kattintson az ábécé betűjére, hogy abba a cellába ugorjon, amely VBA kóddal kezdődik
Kérjük, tegye a következőket, ha egy cellába szeretne lépni, ha az ábécé cellájára kattint az Excelben.
1. A munkalapon el kell jutnia egy cellába egy ábécés cellára kattintva, jobb gombbal kattintson a lap fülre, majd kattintson a Kód megtekintése a jobb egérgombbal kattintva. Lásd a képernyőképet:
2. Ezután a Microsoft Visual Basic for Applications megjelenik az ablak, kérjük, másolja és illessze be a VBA kód alá a Kód ablakba.
VBA kód: Kattintson az ábécé betűjére, hogy az adott betűvel kezdődő cellába ugorjon
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
Megjegyzések: A kódban az 1: 1 azt jelenti, hogy az ábécé betűi a munkalap első sorában találhatók.
3. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.
Mostantól kezdve, ha egy ábécés cellára kattint, az adott betűvel kezdődő összes cellát automatikusan kiválasztja a munkalap.
Ha egyetlen cella sem kezdődik a kiválasztott betűvel, akkor egy Kutools for Excel párbeszédpanel jelenik meg az alábbi képernyőkép szerint.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!