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

Hogyan mozgassa a Pivot Table szeletelőjét az Excel munkalap lapozásával?

A Pivot Table használatakor szeletelőket illeszthet be az adatok vizuális szűréséhez. Ez a cikk arról szól, hogy a Pivot Table szeletelője mindig látható maradjon a munkalap görgetése közben.

Tartsa a Pivot tábla szeletelőjét VBA kóddal görgető munkalapon


Tartsa a Pivot tábla szeletelőjét VBA kóddal görgető munkalapon

A következő VBA-szkript segíthet abban, hogy a Pivot-tábla szeletelője munkalappal mozogjon. Kérjük, tegye a következőket.

1. megnyomni a más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson duplán Ez a munkafüzet a bal oldali Projekt ablaktáblán, majd másolja és illessze be az alábbi VBA kódot a Ez a munkafüzet (kód) ablak. Lásd a képernyőképet:

VBA kód: A Pivot Table szeletelőjét folyamatosan mozgassa munkalap görgetésével

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

Megjegyzések:

1). A kódban az 1. oszlop és a 2. oszlop a szeletelők nevei.

2). Megadhatja a szeletelők helyzetét, miközben görgeti a munkalapot a kódban.

3). És felvehet további szeletelőket a kódba, vagy szükség szerint eltávolíthatja a szeletelőket.

3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak párbeszédpanel.

Ezentúl a megadott szeletelőket az aktív cellával együtt áthelyezik a munkalap görgetése közben. Lásd a képernyőképet:


Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (10)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Köszönöm ezt a VBA-t.

Fogalmam sincs a VBA-ról, ezért a kérdésem.

Ezt a VBA-t használtam, és volt egy kérdésem.
Hogyan módosíthatom ezt a VBA-t úgy, hogy csak egy lapon működjön?

Jelenleg 8 lapom van, és minden alkalommal, amikor egy másik lapra lépek, meghibásodik, és megkér, hogy fejezzem be vagy hibakeresést végezzek.
Pontosan a fent látható módon jártam el.


Ez itt az én VBA-m..
Private Sub Workbook_SheetSelectionChange (ByVal Sh mint objektum, ByVal Target mint tartomány)
Dim ShF As Shape
Dim ShM As Shape
'adjon meg egy szeletelőt
Application.ScreenUpdating = Hamis
ShF beállítása = ActiveSheet.Shapes("Client 1")
ShM beállítása = ActiveSheet.Shapes("1. emlékeztető")
'módosítsa a szeletelő helyzetét
Windows(1) esetén.VisibleRange.Cells(1, 1)
ShF.Top = .Top + 2
ShF.Left = .Bal + 475
ShM.Top = .Top + 180
ShM.Bal = .Bal + 475
Vége
Application.ScreenUpdating = Igaz
End Sub


Kérem, segítsen.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Köszönöm ezt a VBA-t.

Fogalmam sincs a VBA-ról, ezért a kérdésem.

Ezt a VBA-t használtam, és volt egy kérdésem.
Hogyan módosíthatom ezt a VBA-t úgy, hogy csak egy lapon működjön?

Jelenleg 8 lapom van, és minden alkalommal, amikor egy másik lapra lépek, meghibásodik, és megkér, hogy fejezzem be vagy hibakeresést végezzek.
Pontosan a fent látható módon jártam el.


Ez itt az én VBA-m..
Private Sub Workbook_SheetSelectionChange (ByVal Sh mint objektum, ByVal Target mint tartomány)
Dim ShF As Shape
Dim ShM As Shape
'adjon meg egy szeletelőt
Application.ScreenUpdating = Hamis
ShF beállítása = ActiveSheet.Shapes("Client 1")
ShM beállítása = ActiveSheet.Shapes("1. emlékeztető")
'módosítsa a szeletelő helyzetét
Windows(1) esetén.VisibleRange.Cells(1, 1)
ShF.Top = .Top + 2
ShF.Left = .Bal + 475
ShM.Top = .Top + 180
ShM.Bal = .Bal + 475
Vége
Application.ScreenUpdating = Igaz
End Sub


Kérem, segítsen.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves John,
Váltson arra a munkalapra, amelyen csak a VBA-kódot szeretné használni, majd kattintson a jobb gombbal a Lap fülre, és válassza a Kód megtekintése lehetőséget a helyi menüből.
Ezután másolja ki és illessze be az alábbi VBA kódot a megnyíló kód ablakba. Lásd az alábbi képernyőképet:

Private Sub Worksheet_SelectionChange (ByVal Target as Range)
Dim ShF As Shape
Dim ShM As Shape
'adjon meg egy szeletelőt
Application.ScreenUpdating = Hamis
Set ShF = ActiveSheet.Shapes("Fruit")
ShM beállítása = ActiveSheet.Shapes("Akció")
'módosítsa a szeletelő helyzetét
Windows(1) esetén.VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Bal + 300
ShM.Top = .Top
ShM.Bal = .Bal + 100
Vége
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Crystal!

Nagyon szépen köszönöm a kódot.
Pontosan úgy tettem, ahogy mondtad, és úgy működik, mint egy varázslat.

Nagyra értékelem.
Egészségére :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Frissítettem a kódomat, ahogy jelezted. A szeletelő már nem gördül együtt az ablakkal, de ha új cellára kattintok, akkor a szeletelő elmozdul. Ez a helyes viselkedés?
A weboldal moderátora ezt a megjegyzést minimalizálta
Mit jelöl az első sor, és hogyan szabhatjuk a szeletelőnkhöz?
Nagyon zavarban vagyok ettől gyakorlatilag minden soron.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Katie!
Nem tudom, hogy teljesen értem-e a kérdésedet.
Amint azt a fenti megjegyzésekben említettem, az 1. oszlopot és a 2. oszlopot le kell cserélnie a szeletelők nevére a kódban, hogy a szeletelő folyamatosan görgessen a munkalappal.
A weboldal moderátora ezt a megjegyzést minimalizálta
4 szeletelőm van, amelyeket úgy csoportosítottam, hogy mind a 4-et kijelöltem, és a jobb gombbal kattintson a csoport parancs használatára.

Lehetséges csoportonként hozzárendelni ezt a VBA-t? Hogyan címkézze fel a csoportot, és írja be a VBA-t, hogy felismerje egyként?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Michael,
Sajnos ebben nem tudok segíteni. Köszönöm a hozzászólásod.
A weboldal moderátora ezt a megjegyzést minimalizálta
Rendben, a cím így szól: „Hogyan tartsuk mozgásban a kimutatás szeletelőjét munkalappal Gördülő Excelben?", de ez a VBA-kód csak az aktuálisan kiválasztott cellára teszi ezt, hogyan tehetjük meg a görgetés a munkafüzetből, és nem csak a kiválasztott cellát?
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi