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 SubNoter:
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:
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?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
