Jak udržet posuvník kontingenční tabulky v pohybu pomocí posouvání listu v aplikaci Excel?
Při práci s kontingenční tabulkou můžete vložit průřezy pro vizuální filtrování dat tabulky. Tento článek hovoří o udržování průřezu kontingenční tabulky vždy viditelném při posouvání listu.
Udržujte posuvník kontingenční tabulky v pohybu pomocí posouvání listu pomocí kódu VBA
Udržujte posuvník kontingenční tabulky v pohybu pomocí posouvání listu pomocí kódu VBA
Následující skript VBA vám pomůže udržet průřez kontingenční tabulky v pohybu s listem. Postupujte prosím následovně.
1. zmáčkni Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte Tato pracovní kniha v levém podokně projektu a poté zkopírujte a vložte níže uvedený kód VBA do Tento sešit (kód) okno. Viz snímek obrazovky:
Kód VBA: Udržujte posuvník kontingenční tabulky v pohybu pomocí posouvání listu
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
Poznámky:
1). V kódu jsou sloupce1 a sloupce2 názvy průřezů.
2). Při posouvání listu v kódu můžete určit polohu průřezů.
3). A do kódu můžete přidat další průřezy nebo z něj průřezy odstranit, jak potřebujete.
3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace dialogové okno.
Od této chvíle budou zadané průřezy přesunuty s aktivní buňkou při posouvání listu. Viz screenshot:
Související články:
- Jak zachovat rozšiřitelnost tabulky vložením řádku tabulky do chráněného listu v aplikaci Excel?
- Jak kombinovat buňky a zachovat formátování buněk v aplikaci Excel?
- Jak odstranit duplikáty, ale zachovat první instanci v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!