Note: The other languages of the website are Google-translated. Back to English

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:


Relaterede artikler:


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.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (10)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Tak for denne VBA.

Jeg har absolut ingen idé om VBA og derfor mit spørgsmål.

Jeg brugte denne VBA, og jeg havde et spørgsmål.
Hvordan kan jeg ændre denne VBA, så den kun virker for ét ark.

Lige nu har jeg 8 ark, og hver gang jeg går til et andet ark, mislykkes det og beder mig om at afslutte eller fejlfinde.
Jeg har gjort præcis på den måde som vist ovenfor.


Dette er min VBA her..
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShF som form
Dim ShM As Shape
'angiv en skæremaskine
Application.ScreenUpdating = False
Indstil ShF = ActiveSheet.Shapes("Client 1")
Indstil ShM = ActiveSheet.Shapes("Reminder 1")
'skift skæremaskinens position
Med Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top + 2
ShF.Left = .Left + 475
ShM.Top = .Top + 180
ShM.Left = .Left + 475
Slut med
Application.ScreenUpdating = True
End Sub


Please hjælp.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Tak for denne VBA.

Jeg har absolut ingen idé om VBA og derfor mit spørgsmål.

Jeg brugte denne VBA, og jeg havde et spørgsmål.
Hvordan kan jeg ændre denne VBA, så den kun virker for ét ark.

Lige nu har jeg 8 ark, og hver gang jeg går til et andet ark, mislykkes det og beder mig om at afslutte eller fejlfinde.
Jeg har gjort præcis på den måde som vist ovenfor.


Dette er min VBA her..
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShF som form
Dim ShM As Shape
'angiv en skæremaskine
Application.ScreenUpdating = False
Indstil ShF = ActiveSheet.Shapes("Client 1")
Indstil ShM = ActiveSheet.Shapes("Reminder 1")
'skift skæremaskinens position
Med Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top + 2
ShF.Left = .Left + 475
ShM.Top = .Top + 180
ShM.Left = .Left + 475
Slut med
Application.ScreenUpdating = True
End Sub


Please hjælp.
Denne kommentar blev minimeret af moderatoren på webstedet
Kære John,
Skift til det regneark, du ønsker, at VBA-koden kun skal virke for, højreklik derefter på fanen Ark, og vælg Vis kode i kontekstmenuen.
Og kopier og indsæt derefter VBA-koden i åbningsvinduet Kode. Se nedenstående skærmbillede:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ShF som form
Dim ShM As Shape
'angiv en skæremaskine
Application.ScreenUpdating = False
Indstil ShF = ActiveSheet.Shapes("Fruit")
Indstil ShM = ActiveSheet.Shapes("Sale")
'skift skæremaskinens position
Med Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Left + 300
ShM.Top = .Top
ShM.Left = .Left + 100
Slut med
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Crystal,

Mange tak for koden.
Jeg gjorde præcis som du sagde, og det virker som en charme.

Sætter virkelig pris på det.
Skål :)
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg har opdateret min kode, som du har angivet. Sliceren ruller ikke længere sammen med vinduet, men hvis jeg klikker i en ny celle, flytter sliceren sig. Er dette den korrekte adfærd?
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad indikerer den første række, og hvordan tilpasser vi den, så den passer til vores skæremaskine?
Jeg er meget forvirret over det på stort set hver linje.
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Katie
Jeg ved ikke om jeg helt forstår dit spørgsmål.
Som jeg nævnte i ovenstående noter, skal du erstatte Kolonne1 og Kolonne2 med navnene på dine udskæringsmaskiner i koden for at holde din udsnitsmaskine rullende med regnearket.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har 4 skæremaskiner, som er blevet grupperet sammen ved at vælge alle 4 og højreklikke for at bruge gruppekommandoen.

Er det muligt at tildele denne VBA af en gruppe? Hvordan mærker du gruppen og skriver VBA for at genkende den som én?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Michael,
Jeg kan desværre ikke hjælpe med dette. Tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
Okay, så titlen siger "Sådan holder du slicer of pivotbord i bevægelse med regneark rulning I Excel?", men denne VBA-kode gør det kun for den aktuelle valgte celle, hvordan kan vi gøre det for rulning af projektmappen, og ikke kun den valgte celle?
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL