Jak kliknout na písmeno abecedy a přejít do buňky, která začíná tímto písmenem v aplikaci Excel?
Víte, jak při používání listu aplikace Excel s velkým množstvím dat rychle přejít nebo najít určité buňky, které obsahují zadaný obsah? Pomocí metody v tomto článku můžete klepnutím na buňku abecedního písmene přejít do buňky, jejíž obsah začíná tímto písmenem abecedy automaticky.
Kliknutím na písmeno abecedy přejděte do buňky, která začíná daným písmenem s kódem VBA
Kliknutím na písmeno abecedy přejděte do buňky, která začíná daným písmenem s kódem VBA
Chcete-li přejít do buňky kliknutím na buňku abecedy v aplikaci Excel, postupujte následovně.
1. V listu musíte přejít na buňku kliknutím na buňku abecedy, pravým tlačítkem myši na kartu listu a poté na Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:
2. Pak a Microsoft Visual Basic pro aplikace objeví se okno, zkopírujte a vložte pod kód VBA do okna Kód.
Kód VBA: Kliknutím na písmeno abecedy přejdete do buňky, která začíná tímto písmenem
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 SubPoznámka: V kódu 1: 1 znamená, že písmena abecedy jsou umístěna v prvním řádku listu.
3. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.
Od nynějška se po kliknutí na buňku abecedy automaticky v listu vyberou všechny buňky začínající daným písmenem najednou.
Pokud žádná buňka nezačíná vybraným písmenem, zobrazí se dialogové okno Kutools pro Excel, jak je uvedeno níže.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
