Hogyan lehet duplán kattintani egy cellára egy megadott munkalap megnyitásához az Excelben?

Gyorsan el akar navigálni egy megadott munkalapra egy Excel-munkafüzetben? Ez a cikk egy VBA-módszert ismertet egy megadott munkalap megnyitásához, duplán kattintva az Excel bizonyos cellájára.

Kattintson duplán egy cellára egy VBA kóddal ellátott munkalap megnyitásához

Kattintson duplán egy cellára egy VBA kóddal ellátott munkalap megnyitásához

Kérjük, tegye a következőket egy megadott munkalap megnyitásához, kattintson duplán az Excel egyik cellájára.

1. Kattintson a jobb gombbal arra a lapfülre, amely tartalmazza a munkalap megnyitni kívánt celláját. Ezután kattintson Kód megtekintése a helyi menüből. Lásd a képernyőképet:

2. A nyílásban Microsoft Visual Basic for Applications ablakba, kérjük, másolja a következő VBA kódot a Kód ablakba.

VBA kód: Kattintson duplán a cellára a megadott munkalap megnyitásához az Excelben

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

Megjegyzések: A VBA kódban "A1; 2. lap""A12; 3. lap""A4; 4. lap""A100; 5. lap"azt jelenti, hogy az A1 dupla kattintási cella megnyitja a 2. lapot, dupla kattintással az A2 pedig a 3. lapot nyitja meg.

3. megnyomni a más + Q billentyűk együttes bezárásához Microsoft Visual Basic for Applications ablak.

Mostantól, amikor duplán kattint az A1 cellára az aktuális munkalapon, a megadott munkalap azonnal aktiválódik.

Kapcsolódó cikkek:

• Hogyan lehet kattintani vagy duplán kattintani egy cellára egy megadott felhasználói űrlap megnyitásához az Excelben?
• Hogyan adhat hozzá pipát egy cellába duplán kattintva az Excel programban?
• Hogyan adhatjuk meg / adhatjuk meg automatikusan az aktuális dátumot / időt egy cellában, duplán kattintva az Excelben?
• Hogyan lehet duplán kattintani egy cellára, és hozzáadni 1-et ehhez a cellához az Excelben?
• Hogyan jelenjen meg egy naptár, amikor egy adott cellára kattint az Excelben?