İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Pivot Cədvəlinin sütununu Excel-də iş səhifəsi ilə hərəkət etməklə necə hərəkət etmək olar?

Pivot Cədvəli ilə işləyərkən, sütunları əyani olaraq cədvəldə süzgəc üçün dilimleyiciler əlavə edə bilərsiniz. Bu məqalə, iş səhifəsini hərəkət edərkən Pivot Masası'nın dilimleyicisini həmişə görünən saxlayır.

Pivot Cədvəlinin dilimçisini VBA kodu ilə işləmə səhifəsi ilə hərəkət etdirin


arrow mavi sağ bubblePivot Cədvəlinin dilimçisini VBA kodu ilə işləmə səhifəsi ilə hərəkət etdirin


Aşağıdakı VBA skripti, Pivot Cədvəlinin iş səhifəsi ilə hərəkət edən dilimleyicinin saxlanmasına kömək edə bilər. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə, cüt klik BuWorkbook sol Layihə bölməsində yerləşdirin və sonra aşağıdakı VBA kodunu kopyalayıb yapışdırın BuWorkbook (Kod) pəncərə. Ekran görüntüsünə baxın:

VBA kodu: Pivot Cədvəlinin dilimatını iş səhifəsi ilə hərəkət edərək hərəkət edin

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

Qeydlər:

1). Kodda, Column1 və Column2 dilimleyicilerin adlarıdır.

2). Koddakı iş səhifəsini hərəkət edərkən dilimleyicilerin mövqeyini təyin edə bilərsiniz.

3). Və kodunuza daha çox dilimleyici əlavə edə bilərsiniz və ya lazım olduğunuzdan dilimleyicileri çıxarın.

3. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə informasiya qutusu.

İş sayfasını kaydırırken, bundan sonra belirtilen dilimleyiciler aktif hücre ile taşınır. Ekran görüntüsünə baxın:


arrow mavi sağ bubbleƏlaqəli məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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 · 11 months 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 · 9 months 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.