Hvordan holder jeg skiver af pivottabel i bevægelse med regnearkrulning i Excel?

Mens du arbejder med Pivot Table, kan du indsætte skiver til at filtrere data visuelt i tabellen. Denne artikel taler om at holde slicer af Pivot Table altid synlig, mens du ruller på regnearket.

Hold skiver af pivottabellen i bevægelse med regnearkrulning med VBA-kode

Hold skiver af pivottabellen i bevægelse med regnearkrulning med VBA-kode

Følgende VBA-script kan hjælpe dig med at holde skiver af pivottabellen i bevægelse med regnearket. Gør som følger.

1. Tryk på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet ThisWorkbook i den venstre projektrude, og kopier og indsæt derefter nedenstående VBA-kode i Denne arbejdsbog (kode) vindue. Se skærmbillede:

VBA-kode: Hold skiver af pivottabellen i bevægelse med regnearkrulning

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

Noter:

1). I koden er Kolonne1 og Kolonne2 navne på skiverne.

2). Du kan angive placeringen af ​​snittere, mens du ruller regnearket i koden.

3). Og du kan tilføje flere udskærere i koden eller fjerne udskæringer fra den, som du har brug for.

3. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vinduesdialogboks.

Fra nu af flyttes de angivne udsnit med den aktive celle, mens du ruller på regnearket. Se skærmbillede:

Lås op for Excel Magic med Kutools AI

• Smart udførelse: Udfør cellehandlinger, analyser data og opret diagrammer – alt sammen drevet af simple kommandoer.
• Brugerdefinerede formler: Generer skræddersyede formler for at strømline dine arbejdsgange.
• VBA kodning: Skriv og implementer VBA-kode uden besvær.
• Formel fortolkning: Forstå komplekse formler med lethed.
• Tekstoversættelse: Bryd sprogbarrierer i dine regneark.

Forbedre dine Excel-funktioner med AI-drevne værktøjer. Hent nu og oplev effektivitet som aldrig før!

Relaterede artikler:

• Hvordan kan man holde bord udvideligt ved at indsætte tabelrækker i et beskyttet regneark i Excel?
• Hvordan kombineres celler og beholder celleformateringen i Excel?
• Hvordan fjernes dubletter, men beholder første instans i Excel?