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?
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
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!
