Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe houd je de slicer van de draaitabel bewogen met het scrollen van het werkblad in Excel?

Tijdens het werken met draaitabel kunt u snijmachines invoegen om gegevens visueel van de tabel te filteren. In dit artikel wordt gesproken over het altijd zichtbaar houden van de slicer van de draaitabel tijdens het scrollen van het werkblad.

Houd de slicer of Pivot Table in beweging met het scrollen van het werkblad met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbelHoud de slicer of Pivot Table in beweging met het scrollen van het werkblad met VBA-code


Het volgende VBA-script kan u helpen om de slicer van de draaitabel op een werkblad te houden. Doe het als volgt.

1. druk de anders + F11 toetsen tegelijkertijd om de Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik ThisWorkbook in het linkse projectvenster en kopieer en plak de onderstaande VBA-code in de ThisWorkbook (Code) venster. Zie screenshot:

VBA-code: houd de slicer van de draaitabel in beweging 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 Sub

Notes:

1). In de code zijn Column1 en Column2 namen van de slicers.

2). U kunt de positie van slicers opgeven tijdens het scrollen van het werkblad in de code.

3). En u kunt meer slicers aan de code toevoegen of er slicers uit verwijderen als u dat wilt.

3. druk de anders + Q toetsen om het te sluiten Microsoft Visual Basic voor toepassingen venster dialoogvenster.

Vanaf nu worden de opgegeven slicers verplaatst met de actieve cel tijdens het scrollen van het werkblad. Zie screenshot:


pijl blauwe rechterbelGerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MICHAEL · 1 years ago
    I have 4 slicers which have been grouped together by selecting all 4 and the right clicking to use the group command.

    Is it possible to assign this VBA by a group? How do you label the group and write the VBA to recognize it as one?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Michael,
      Sorry can't help with this. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Katie · 1 years ago
    What does the first row indicate and how do we customize it to suit our slicer?
    I'm very confused about that on basically every line.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Katie
      I don't know if I totally understand your question.
      As I mentioned in above Notes, you need to replace Column1 and Column2 with the names of your slicers in the code in order to keep your slicer scrolling with the worksheet.
  • To post as a guest, your comment is unpublished.
    John Fernandes · 1 years ago
    Hi,
    Thank you for this VBA.

    I have absolutely no idea about VBA and hence my question.

    I used this VBA and I had a question.
    How can i alter this VBA so that it works only for one sheet.

    Right now, I have 8 sheets and every time i go to another sheet, it fails and asks me to end or debug.
    I have done exactly the way as shown above.


    This is my VBA here..
    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("Client 1")
    Set ShM = ActiveSheet.Shapes("Reminder 1")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
    ShF.Top = .Top + 2
    ShF.Left = .Left + 475
    ShM.Top = .Top + 180
    ShM.Left = .Left + 475
    End With
    Application.ScreenUpdating = True
    End Sub


    Please help.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear John,
      Shift to the worksheet you want the VBA code only work for, then right click the Sheet tab and select View Code from the context menu.
      And then copy and paste below VBA code into the opening Code window. See below screenshot:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim ShF As Shape
      Dim ShM As Shape
      'specify a slicer
      Application.ScreenUpdating = False
      Set ShF = ActiveSheet.Shapes("Fruit")
      Set ShM = ActiveSheet.Shapes("Sale")
      '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
      • To post as a guest, your comment is unpublished.
        John · 1 years ago
        Dear Crystal,

        Thank you so very much for the code.
        I did exactly as you said and it works like a charm.

        Really appreciate it.
        Cheers :)
  • To post as a guest, your comment is unpublished.
    John · 1 years ago
    Hi,
    Thank you for this VBA.

    I have absolutely no idea about VBA and hence my question.

    I used this VBA and I had a question.
    How can i alter this VBA so that it works only for one sheet.

    Right now, I have 8 sheets and every time i go to another sheet, it fails and asks me to end or debug.
    I have done exactly the way as shown above.


    This is my VBA here..
    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("Client 1")
    Set ShM = ActiveSheet.Shapes("Reminder 1")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
    ShF.Top = .Top + 2
    ShF.Left = .Left + 475
    ShM.Top = .Top + 180
    ShM.Left = .Left + 475
    End With
    Application.ScreenUpdating = True
    End Sub


    Please help.