Jak dvakrát kliknout na buňku a otevřít určený list v aplikaci Excel?
Chcete rychle přejít na zadaný list v sešitu aplikace Excel? Tento článek poskytne metodu VBA k otevření zadaného listu poklepáním na určitou buňku v aplikaci Excel.
Poklepáním na buňku otevřete zadaný list s kódem VBA
Poklepáním na buňku otevřete zadaný list s kódem VBA
Chcete-li otevřít určený list dvojitým kliknutím na buňku v aplikaci Excel, postupujte takto.
1. Klepněte pravým tlačítkem myši na kartu listu, která obsahuje buňku, kterou chcete otevřít, kliknutím na ni. A pak klikněte Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
2. V otvoru Microsoft Visual Basic pro aplikace zkopírujte následující kód VBA do okna Kód.
Kód VBA: dvojitým kliknutím na buňku otevřete určený list v aplikaci Excel
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20180822
Dim xArray, xAValue As Variant
Dim xFNum As Long
Dim xStr, xStrRg, xStrSheetName As String
xRgArray = Array("A1;Sheet2", "A12;Sheet3", "A4;Sheet4", "A100;Sheet5")
On Error Resume Next
For xFNum = LBound(xRgArray) To UBound(xRgArray)
xStr = ""
xStr = xRgArray(xFNum)
xAValue = ""
xAValue = Split(xStr, ";")
xStrRg = ""
xStrRg = xAValue(0)
xStrSheetName = ""
xStrSheetName = xAValue(1)
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then
Sheets(xStrSheetName).Activate
End If
Next
End Sub
Poznámka: V kódu VBA „A1;List2""A12;List3""A4;List4""A100;List5“ znamená, že dvojitým kliknutím na buňku A1 otevřete List2, dvojitým kliknutím na A2 otevřete List3..., změňte je podle svých potřeb.
3. zmáčkni Další + Q klávesy společně zavřete Microsoft Visual Basic pro aplikace okno.
Od nynějška, když dvakrát kliknete na buňku A1 v aktuálním listu, zadaný list se okamžitě aktivuje.
Související články:
- Jak kliknutím nebo dvojitým kliknutím na buňku otevřete zadaný formulář uživatele v aplikaci Excel?
- Jak přidat zaškrtnutí do buňky dvojitým kliknutím v aplikaci Excel?
- Jak automaticky přidat / zadat aktuální datum a čas v buňce dvojitým kliknutím v aplikaci Excel?
- Jak dvakrát kliknout na buňku a přidat 1 k této hodnotě buňky v aplikaci Excel?
- Jak zobrazit kalendář při kliknutí na konkrétní buňku v aplikaci Excel?
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!