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 SubMegjegyzé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:
- Hogyan lehet a táblázatot kibővíteni úgy, hogy táblázat sorokat illeszt be egy védett munkalapba az Excelben?
- Hogyan lehet kombinálni a cellákat és megtartani a cellák formázását az Excelben?
- Hogyan lehet eltávolítani az ismétlődéseket, de első példányt megtartani az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos felületet hoz 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!
