Hogyan lehet elrejteni vagy elrejteni a megadott sorokat vagy oszlopokat, amikor duplán kattint egy cellára az Excelben?
Normális esetben a sorok és oszlopok elrejthetők vagy megjeleníthetők, ha jobb gombbal kattintanak, és a helyi menüből kiválasztják az Elrejt vagy az Elrejtés lehetőséget. Ebben a cikkben a megadott sorok vagy oszlopok gyors elrejtéséről vagy megjelenítéséről beszélünk, ha duplán kattintunk egy cellára az Excelben.
A megadott sorok vagy oszlopok elrejtése vagy elrejtése, amikor duplán kattint egy VBA kóddal ellátott cellára
A következő VBA-kódok segítségével egy adott cellára duplán kattintva gyorsan elrejtheti vagy elrejtheti a munkalap bizonyos sorait vagy oszlopait. Kérjük, tegye a következőket.
1. Nyissa meg azt a munkalapot, amelybe el akarja rejteni a sorokat vagy oszlopokat. Kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a helyi menüből.
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: A megadott sorok elrejtése / elrejtése duplán kattintva a munkalap celláira:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("10:13")
xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
End If
End Sub
VBA: A megadott oszlopok elrejtése / elrejtése duplán kattintva a munkalap celláira:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("D:E")
xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
End If
End Sub
Megjegyzések: A kódban A1: A4, 10:13 és a D: E jelezze, hogy amikor duplán kattint az A1: A4 tartomány bármely cellájára, a 10:13 sor vagy a D: E oszlop automatikusan el lesz rejtve.
3. megnyomni a más + F11 gombok a Microsoft Visual Basic for Applications ablak.
Mostantól, amikor duplán kattint az A1: A4 tartomány bármely cellájára, a 10:13 sor vagy a D: E oszlop automatikusan el lesz rejtve. És kattintson duplán a cellára, hogy azonnal megjelenítse az összes rejtett sort vagy oszlopot.
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?
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!