Note: The other languages of the website are Google-translated. Back to English

Sut i gadw tafell o Dabl Pivot i symud gyda sgrolio taflen waith yn Excel?

Wrth weithio gyda Pivot Table, gallwch fewnosod sleiswyr i hidlo data yn weledol o'r tabl. Mae'r erthygl hon yn sôn am gadw sleisen o Dabl Pivot bob amser yn weladwy wrth sgrolio'r daflen waith.

Cadwch slicer o Dabl Pivot i symud gyda sgrolio taflen waith gyda chod VBA


Cadwch slicer o Dabl Pivot i symud gyda sgrolio taflen waith gyda chod VBA


Gall y sgript VBA ganlynol eich helpu i gadw tafell o Dabl Pivot i symud gyda thaflen waith. Gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn yn y cwarel Prosiect chwith, ac yna copïwch a gludwch y cod VBA isod i'r Y Llyfr Gwaith hwn (Cod) ffenestr. Gweler y screenshot:

Cod VBA: Cadwch sleisiwr y Tabl Pivot i symud gyda sgrolio taflen waith

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

Nodiadau:

1). Yn y cod, Colofn1 a Cholofn2 yw enwau'r sleiswyr.

2). Gallwch chi nodi lleoliad sleiswyr wrth sgrolio'r daflen waith yn y cod.

3). A gallwch ychwanegu mwy o sleiswyr i'r cod neu dynnu sleiswyr ohono yn ôl yr angen.

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau blwch deialog ffenestr.

O hyn ymlaen, bydd y sleiswyr penodedig yn cael eu symud gyda'r gell weithredol wrth sgrolio'r daflen waith. Gweler y screenshot:


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Diolch am y VBA hwn.

Nid oes gennyf unrhyw syniad o gwbl am VBA ac felly fy nghwestiwn.

Defnyddiais y VBA hwn ac roedd gen i gwestiwn.
Sut alla i newid y VBA hwn fel ei fod yn gweithio ar gyfer un ddalen yn unig.

Ar hyn o bryd, mae gen i 8 tudalen a bob tro rwy'n mynd i ddalen arall, mae'n methu ac yn gofyn imi ddod i ben neu ddadfygio.
Rwyf wedi gwneud yn union fel y dangosir uchod.


Dyma fy VBA yma ..
Is Gweithlyfr Preifat_TaflenSelectionChange(ByVal Sh Fel Gwrthrych, ByVal Target As Range)
Dim ShF Fel Siâp
Dim ShM Fel Siâp
' pennwch sleisiwr
Application.ScreenUpdating = Anghywir
Gosod ShF = ActiveSheet.Shapes ("Cleient 1")
Gosod ShM = ActiveSheet.Shapes("Atgoffa 1")
'newid safle'r sleisiwr
Gyda Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top+2
ShF.Left = .Chwith + 475
ShM.Top = .Top + 180
ShM.Left = .Chwith + 475
Diwedd Gyda
Application.ScreenUpdating = Gwir
Is-End


Os gwelwch yn dda helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Diolch am y VBA hwn.

Nid oes gennyf unrhyw syniad o gwbl am VBA ac felly fy nghwestiwn.

Defnyddiais y VBA hwn ac roedd gen i gwestiwn.
Sut alla i newid y VBA hwn fel ei fod yn gweithio ar gyfer un ddalen yn unig.

Ar hyn o bryd, mae gen i 8 tudalen a bob tro rwy'n mynd i ddalen arall, mae'n methu ac yn gofyn imi ddod i ben neu ddadfygio.
Rwyf wedi gwneud yn union fel y dangosir uchod.


Dyma fy VBA yma ..
Is Gweithlyfr Preifat_TaflenSelectionChange(ByVal Sh Fel Gwrthrych, ByVal Target As Range)
Dim ShF Fel Siâp
Dim ShM Fel Siâp
' pennwch sleisiwr
Application.ScreenUpdating = Anghywir
Gosod ShF = ActiveSheet.Shapes ("Cleient 1")
Gosod ShM = ActiveSheet.Shapes("Atgoffa 1")
'newid safle'r sleisiwr
Gyda Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top+2
ShF.Left = .Chwith + 475
ShM.Top = .Top + 180
ShM.Left = .Chwith + 475
Diwedd Gyda
Application.ScreenUpdating = Gwir
Is-End


Os gwelwch yn dda helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl John,
Symudwch i'r daflen waith rydych chi am i'r cod VBA weithio iddi yn unig, yna cliciwch ar y dde ar y tab Taflen a dewiswch Gweld Cod o'r ddewislen cyd-destun.
Ac yna copïwch a gludwch isod y cod VBA i mewn i'r ffenestr Cod agoriadol. Gweler y sgrinlun isod:

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim ShF Fel Siâp
Dim ShM Fel Siâp
' pennwch sleisiwr
Application.ScreenUpdating = Anghywir
Gosod ShF = ActiveSheet.Shapes ("Ffrwythau")
Gosod ShM = ActiveSheet.Shapes("Gwerthu")
'newid safle'r sleisiwr
Gyda Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Chwith + 300
ShM.Top = .Top
ShM.Left = .Chwith + 100
Diwedd Gyda
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Grisial,

Diolch yn fawr iawn am y cod.
Fe wnes yn union fel y dywedasoch ac mae'n gweithio fel swyn.

Yn wir yn ei werthfawrogi.
Hwyl :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf wedi diweddaru fy nghod fel yr ydych wedi nodi. Nid yw'r sleisiwr bellach yn sgrolio ynghyd â'r ffenestr, fodd bynnag, os byddaf yn clicio mewn cell newydd yna bydd y sleisiwr yn symud. Ai dyma'r ymddygiad cywir?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth mae'r rhes gyntaf yn ei ddangos a sut ydyn ni'n ei haddasu i weddu i'n sleisiwr?
Rwy'n ddryslyd iawn am hynny ar bob llinell yn y bôn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Katie
Nid wyf yn gwybod a wyf yn deall eich cwestiwn yn llwyr.
Fel y soniais yn y Nodiadau uchod, mae angen i chi ddisodli Colofn1 a Colofn2 ag enwau eich sleiswyr yn y cod er mwyn cadw'ch sleiswr yn sgrolio gyda'r daflen waith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i 4 sleisiwr sydd wedi'u grwpio gyda'i gilydd trwy ddewis pob un o'r 4 a chlicio ar y dde i ddefnyddio'r gorchymyn grŵp.

A yw'n bosibl aseinio'r VBA hwn gan grŵp? Sut ydych chi'n labelu'r grŵp ac yn ysgrifennu'r VBA i'w adnabod fel un?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Michael,
Mae'n ddrwg gennym ni all helpu gyda hyn. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Iawn, felly mae'r teitl yn dweud "Sut i Gadw Slicer Of Pivot Table Symud Gyda Taflen Waith Sgrolio Yn Excel?", Ond dim ond ar gyfer y gell ddethol gyfredol y mae'r cod VBA hwn yn ei wneud, sut allwn ni ei wneud ar gyfer y sgrolio o'r llyfr gwaith, ac nid y gell ddethol yn unig?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir