Hoe zorgt u ervoor dat de draaitabelslicer meebeweegt tijdens het scrollen van het werkblad in Excel?
Tijdens het werken met een draaitabel kunt u slicers invoegen om de tabelgegevens visueel te filteren. In dit artikel leest u hoe u de slicer van de draaitabel altijd zichtbaar houdt terwijl u door het werkblad scrolt.
Houd de slicer van Draaitabel meebewegend met het scrollen van het werkblad met VBA-code
Houd de slicer van Draaitabel meebewegend met het scrollen van het werkblad met VBA-code
Het volgende VBA-script zorgt ervoor dat de slicer van uw draaitabel automatisch meebeweegt met het werkblad. Volg deze stappen.
1. Druk tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het venster Microsoft Visual Basic for Applications in het linkerdeelvenster Project op ThisWorkbook en plak vervolgens de onderstaande VBA-code in het venster ThisWorkbook (Code). Zie de schermafbeelding:
VBA-code: Houd de slicer van Draaitabel meebewegend met het scrollen van het werkblad
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 SubOpmerkingen:
1). In de code zijn Column1 en Column2 de namen van de slicers.
2). U kunt in de code de positie van de slicers instellen tijdens het scrollen door het werkblad.
3). U kunt naar behoefte extra slicers toevoegen aan of verwijderen uit de code.
3. Druk op de toetsen Alt+Q om het dialoogvenster Microsoft Visual Basic for Applications te sluiten.
Vanaf nu scrollen de opgegeven slicers automatisch mee met de actieve cel wanneer u door het werkblad bladert. Zie de schermafbeelding:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- Hoe houdt u een tabel uitbreidbaar door een rij in te voegen in een beveiligd werkblad in Excel?
- Hoe combineert u cellen in Excel en behoudt u daarbij de opmaak?
- Hoe verwijder je dubbele items in Excel, maar behoud je het eerste exemplaar?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins