Come mantenere lo slicer della Tabella pivot in movimento durante lo scorrimento del foglio di lavoro in Excel?

Mentre si lavora con la Tabella pivot, potresti inserire degli slicer per filtrare visivamente i dati della tabella. Questo articolo parla di come mantenere lo slicer della Tabella pivot sempre visibile durante lo scorrimento del foglio di lavoro.

Mantieni lo slicer della Tabella pivot in movimento durante lo scorrimento del foglio di lavoro con il codice VBA

Mantieni lo slicer della Tabella pivot in movimento durante lo scorrimento del foglio di lavoro con il codice VBA

Il seguente script VBA può aiutarti a mantenere lo slicer della Tabella pivot in movimento con il foglio di lavoro. Si prega di fare come segue.

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisWorkbook nel riquadro Progetto a sinistra, quindi copia e incolla il seguente codice VBA nella finestra ThisWorkbook (Codice). Vedi screenshot:

Codice VBA: Mantieni lo slicer della Tabella pivot in movimento durante lo scorrimento del foglio di lavoro

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

Note:

1). Nel codice, Colonna1 e Colonna2 sono i nomi degli slicer.

2). Puoi specificare la posizione degli slicer durante lo scorrimento del foglio di lavoro nel codice.

3). Inoltre, puoi aggiungere più slicer al codice o rimuoverli secondo necessità.

3. Premi i tasti Alt + Q per chiudere la finestra di dialogo di Microsoft Visual Basic for Applications.

Da ora in poi, gli slicer specificati si sposteranno con la cella attiva durante lo scorrimento del foglio di lavoro. Vedi screenshot:

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Articoli correlati:

• Come mantenere la tabella espandibile inserendo righe della tabella in un foglio di lavoro protetto in Excel?
• Come combinare celle e mantenere la formattazione delle celle in Excel?
• Come rimuovere i duplicati ma mantenere la prima istanza in Excel?