Ugrás a tartalomra

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

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

kte lap 201905


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
That's a really good implementation of "find the word that starts with the letter . . ."
I don't want the cells selected though as that can lead to data changes or worse, deletions.
I know that because I just did it. ;-(
I will figure out how to jump to the first cell and not select all (or any) of them.
Meantime, I thank you for your assistance. I appreciate this.
pip
This comment was minimized by the moderator on the site
Hi,
Sorry for the inconvenience, the following VBA code can help to jump to the first cell in current sheet when clicking on a cell that contains a specific letter.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220520
    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
                    Exit For
                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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations