Hur håller jag skäraren av pivottabellen i rörelse med rullning av kalkylblad i Excel?
När du arbetar med pivottabell kan du infoga skivor för att filtrera data visuellt i tabellen. Den här artikeln talar om att hålla skivaren av pivottabellen alltid synlig när du rullar kalkylbladet.
Håll skivaren av pivottabellen i rörelse med kalkylbladet med VBA-kod
Håll skivaren av pivottabellen i rörelse med kalkylbladet med VBA-kod
Följande VBA-skript kan hjälpa dig att hålla skivaren av pivottabellen i rörelse med kalkylbladet. Gör så här.
1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer dubbelklicka Denna arbetsbok i den vänstra projektfönstret och kopiera sedan och klistra in nedanstående VBA-kod i Denna arbetsbok (kod) fönster. Se skärmdump:
VBA-kod: Håll skivan av pivottabellen i rörelse med rullning av kalkylbladet
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 SubAnmärkningar:
1). I koden är Column1 och Column2 namn på skivorna.
2). Du kan ange positionen för skivor medan du rullar kalkylbladet i koden.
3). Och du kan lägga till fler skivor i koden eller ta bort skivor från den efter behov.
3. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer dialogrutan i fönstret.
Från och med nu flyttas de angivna skivorna med den aktiva cellen medan du bläddrar i kalkylbladet. Se skärmdump:
Relaterade artiklar:
- Hur håller jag tabellen expanderbar genom att infoga tabellrad i ett skyddat kalkylblad i Excel?
- Hur kombinerar man celler och behåller cellformateringen i Excel?
- Hur tar jag bort dubbletter men behåller första instansen i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
