Kako se rezalnik vrtilne tabele premika s premikanjem delovnega lista v Excelu?
Med delom s pivot tabelo lahko vstavite rezalnike za vizualno filtriranje podatkov v tabeli. Ta članek govori o tem, da je rezalnik vrtilne tabele med drsenjem delovnega lista vedno viden.
Rezalnik vrtilne tabele naj se premika s pomikanjem delovnega lista s kodo VBA
Rezalnik vrtilne tabele naj se premika s pomikanjem delovnega lista s kodo VBA
Naslednji skript VBA vam lahko pomaga, da se rezalnik vrtilne tabele premika z delovnim listom. Naredite naslednje.
1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Ta delovni zvezek v levo podokno Project, nato pa kopirajte in prilepite spodnjo kodo VBA v ThisWorkbook (koda) okno. Oglejte si posnetek zaslona:
Koda VBA: Rezalnik vrtilne tabele naj se premika z drsenjem delovnega lista
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
Opombe:
1). V kodi sta stolpca1 in stolpec2 ime rezalnikov.
2). Med listanjem delovnega lista v kodi lahko določite položaj rezalnikov.
3). In lahko v kodo dodate več rezalnikov ali pa po potrebi odstranite rezalnike iz nje.
3. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno pogovorno okno.
Od zdaj naprej se bodo določeni rezalniki med pomikanjem po delovnem listu premikali z aktivno celico. Oglejte si posnetek zaslona:
Sorodni članki:
- Kako ohraniti razširljivost tabele z vstavljanjem vrstice tabele v zaščiteni delovni list v Excelu?
- Kako združiti celice in obdržati oblikovanje celic v Excelu?
- Kako odstraniti dvojnike, vendar obdržati prvi primerek v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!