Hur håller jag skäraren av pivottabellen i rörelse med rullning av kalkylblad i Excel?

När du arbetar med pivottabell kan du infoga skivor för att filtrera data visuellt i tabellen. Den här artikeln talar om att hålla skivaren av pivottabellen alltid synlig när du rullar kalkylbladet.

Håll skivaren av pivottabellen i rörelse med kalkylbladet med VBA-kod

Håll skivaren av pivottabellen i rörelse med kalkylbladet med VBA-kod

Följande VBA-skript kan hjälpa dig att hålla skivaren av pivottabellen i rörelse med kalkylbladet. Gör så här.

1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka Denna arbetsbok i den vänstra projektfönstret och kopiera sedan och klistra in nedanstående VBA-kod i Denna arbetsbok (kod) fönster. Se skärmdump:

VBA-kod: Håll skivan av pivottabellen i rörelse med rullning av kalkylbladet

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("Column1")
    Set ShM = ActiveSheet.Shapes("Column2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top
        ShF.Left = .Left + 300
        ShM.Top = .Top
        ShM.Left = .Left + 100
    End With
    Application.ScreenUpdating = True
End Sub

Anmärkningar:

1). I koden är Column1 och Column2 namn på skivorna.

2). Du kan ange positionen för skivor medan du rullar kalkylbladet i koden.

3). Och du kan lägga till fler skivor i koden eller ta bort skivor från den efter behov.

3. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer dialogrutan i fönstret.

Från och med nu flyttas de angivna skivorna med den aktiva cellen medan du bläddrar i kalkylbladet. Se skärmdump:

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Relaterade artiklar:

• Hur håller jag tabellen expanderbar genom att infoga tabellrad i ett skyddat kalkylblad i Excel?
• Hur kombinerar man celler och behåller cellformateringen i Excel?
• Hur tar jag bort dubbletter men behåller första instansen i Excel?