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?
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
- Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
- Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
- Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
- Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
- Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
- Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
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!
