Hur döljer eller visar jag angivna rader eller kolumner när du dubbelklickar på en cell i Excel?

Normalt kan rader och kolumner döljas eller visas genom att högerklicka och välja alternativet Dölj eller Ta bort från snabbmenyn. I den här artikeln pratar vi om att snabbt dölja eller visa angivna rader eller kolumner genom att dubbelklicka på en cell i Excel.

Dölj eller ta bort angivna rader eller kolumner när du dubbelklickar på en cell med VBA-kod

Dölj eller ta bort angivna rader eller kolumner när du dubbelklickar på en cell med VBA-kod

Följande VBA-koder kan hjälpa dig att snabbt dölja eller ta bort angivna rader eller kolumner i ett kalkylblad genom att dubbelklicka på en viss cell. Gör så här.

1. Öppna kalkylbladet du vill dölja rader eller kolumner inuti. Högerklicka på arkfliken och klicka sedan på Visa kod från snabbmenyn.

2. I öppningen Microsoft Visual Basic för applikationer kopiera en av följande VBA-koder du behöver till kodfönstret.

VBA: Dölj / ta bort angivna rader genom att dubbelklicka på celler i kalkylbladet:

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: Dölj/visa angivna kolumner genom att dubbelklicka på celler i kalkylbladet:

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

Anmärkningar: I koden, A1: A4, 10:13 och D: E indikera att när du dubbelklickar på en cell i intervallet A1:A4, kommer raden 10:13 eller kolumn D:E att döljas automatiskt.

3. tryck på andra + F11 för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu, när du dubbelklickar på en cell i intervallet A1:A4, kommer rad 10:13 eller kolumn D:E att döljas automatiskt. Och dubbelklicka på cellen igen för att visa alla dolda rader eller kolumner omedelbart.

Relaterade artiklar:

• Hur klickar eller dubbelklickar du på en cell för att öppna ett angivet användarformulär i Excel?
• Hur lägger jag till bock i en cell med dubbelklicka i Excel?
• Hur lägger jag till / anger automatiskt aktuellt datum / tid i en cell genom att dubbelklicka i Excel?
• Hur dubbelklickar jag på en cell och lägger till 1 till det cellvärdet i Excel?
• Hur dyker upp en kalender när du klickar på en specifik cell i Excel?