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

Excel'de çalışma sayfası kaydırmasıyla Pivot Tablo dilimleyicisinin hareket etmesini nasıl sağlayabilirim?

Pivot Tablo ile çalışırken, verileri tabloya görsel olarak filtrelemek için dilimleyiciler ekleyebilirsiniz. Bu makale, çalışma sayfasını kaydırırken Pivot Tablo dilimleyicisini her zaman görünür tutmaktan bahsediyor.

Pivot Tablo dilimleyicisini VBA kodu ile çalışma sayfası kaydırarak hareket ettirin


Pivot Tablo dilimleyicisini VBA kodu ile çalışma sayfası kaydırarak hareket ettirin

Aşağıdaki VBA komut dosyası, Pivot Tablo dilimleyicisini çalışma sayfasıyla hareket ettirmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. Tuşuna basın. Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu Çalışma Kitabı Sol Proje bölmesinde ve ardından aşağıdaki VBA kodunu kopyalayıp Bu Çalışma Kitabı (Kod) pencere. Ekran görüntüsüne bakın:

VBA kodu: Çalışma sayfası kaydırma ile Pivot Tablo dilimleyicisini hareket ettirin

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

notlar:

1). Kodda, Sütun1 ve Sütun2 dilimleyicilerin adlarıdır.

2). Çalışma sayfasını kodda kaydırırken dilimleyicilerin konumunu belirtebilirsiniz.

3). Ve koda daha fazla dilimleyici ekleyebilir veya ihtiyaç duyduğunuzda dilimleyicileri kaldırabilirsiniz.

3. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere iletişim kutusu.

Şu andan itibaren, belirtilen dilimleyiciler çalışma sayfasını kaydırırken aktif hücre ile taşınacaktır. Ekran görüntüsüne bakın:


İlgili Makaleler:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (10)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Bu VBA için teşekkür ederiz.

VBA hakkında kesinlikle hiçbir fikrim yok ve dolayısıyla sorum.

Bu VBA'yı kullandım ve bir sorum vardı.
Bu VBA'yı yalnızca bir sayfa için çalışacak şekilde nasıl değiştirebilirim.

Şu anda 8 sayfam var ve başka bir sayfaya her gittiğimde başarısız oluyor ve bitirmemi veya hata ayıklamamı istiyor.
Tam olarak yukarıda gösterildiği gibi yaptım.


Bu benim VBA'm burada ..
Özel Alt Workbook_SheetSelectionChange(Nesne Olarak ByVal Sh, Aralık Olarak ByVal Target)
Şekil Olarak Dim ShF
Şekil Olarak Dim ShM
'bir dilimleyici belirtin
Application.ScreenUpdating = Yanlış
ShF = ActiveSheet.Shapes ("Client 1") olarak ayarlayın
Set ShM = ActiveSheet.Shapes("Hatırlatıcı 1")
'dilimleyicinin konumunu değiştir
Windows(1).VisibleRange.Cells(1, 1) ile
ShF.Üst = .Üst + 2
ShF.Sol = .Sol + 475
ShM.Top = .Üst + 180
ShM.Sol = .Sol + 475
İle bitmek
Application.ScreenUpdating = True
End Sub


Lütfen yardım edin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Bu VBA için teşekkür ederiz.

VBA hakkında kesinlikle hiçbir fikrim yok ve dolayısıyla sorum.

Bu VBA'yı kullandım ve bir sorum vardı.
Bu VBA'yı yalnızca bir sayfa için çalışacak şekilde nasıl değiştirebilirim.

Şu anda 8 sayfam var ve başka bir sayfaya her gittiğimde başarısız oluyor ve bitirmemi veya hata ayıklamamı istiyor.
Tam olarak yukarıda gösterildiği gibi yaptım.


Bu benim VBA'm burada ..
Özel Alt Workbook_SheetSelectionChange(Nesne Olarak ByVal Sh, Aralık Olarak ByVal Target)
Şekil Olarak Dim ShF
Şekil Olarak Dim ShM
'bir dilimleyici belirtin
Application.ScreenUpdating = Yanlış
ShF = ActiveSheet.Shapes ("Client 1") olarak ayarlayın
Set ShM = ActiveSheet.Shapes("Hatırlatıcı 1")
'dilimleyicinin konumunu değiştir
Windows(1).VisibleRange.Cells(1, 1) ile
ShF.Üst = .Üst + 2
ShF.Sol = .Sol + 475
ShM.Top = .Üst + 180
ShM.Sol = .Sol + 475
İle bitmek
Application.ScreenUpdating = True
End Sub


Lütfen yardım edin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayın John,
Yalnızca VBA kodunun çalışmasını istediğiniz çalışma sayfasına geçin, ardından Sayfa sekmesine sağ tıklayın ve içerik menüsünden Kodu Görüntüle'yi seçin.
Ardından VBA kodunun altına kopyalayıp açılan Kod penceresine yapıştırın. Aşağıdaki ekran görüntüsüne bakın:

Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
Şekil Olarak Dim ShF
Şekil Olarak Dim ShM
'bir dilimleyici belirtin
Application.ScreenUpdating = Yanlış
ShF = ActiveSheet.Shapes("Fruit") olarak ayarlayın
Set ShM = ActiveSheet.Shapes("Satış")
'dilimleyicinin konumunu değiştir
Windows(1).VisibleRange.Cells(1, 1) ile
ShF.Üst = .Üst
ShF.Sol = .Sol + 300
ShM.Üst = .Üst
ShM.Sol = .Sol + 100
İle bitmek
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
sevgili kristal,

Kod için çok teşekkür ederim.
Aynen dediğin gibi yaptım ve bir cazibe gibi çalışıyor.

Gerçekten takdir ediyorum.
Şerefe :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, belirttiğiniz gibi kodumu güncelledim. Dilimleyici artık pencereyle birlikte kaymıyor, ancak yeni bir hücreye tıklarsam dilimleyici hareket edecek. Bu doğru davranış mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk satır neyi gösterir ve onu dilimleyicimize uyacak şekilde nasıl özelleştirebiliriz?
Temelde her satırda bu konuda kafam çok karıştı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
sevgili Katie
Sorunuzu tam olarak anladım mı bilmiyorum.
Yukarıdaki Notlar'da bahsettiğim gibi, dilimleyicinizin çalışma sayfasıyla kaymasını sağlamak için, koddaki Sütun1 ve Sütun2'yi dilimleyicilerinizin adlarıyla değiştirmeniz gerekir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
4 dilimleyicim var ve 4 tanesini seçip grup komutunu kullanmak için sağ tıklayarak birlikte gruplandırdım.

Bu VBA'yı bir grup tarafından atamak mümkün müdür? Grubu nasıl etiketlersiniz ve onu bir grup olarak tanımak için VBA'yı nasıl yazarsınız?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Michael,
Üzgünüm bu konuda yardımcı olamam. Yorumun için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tamam, başlıkta "Pivot Tablonun Dilimleyicisini Çalışma Sayfasıyla Hareket Ettirme Nasıl Tutulur" yazıyor. kaydırma Excel'de mi?", ancak bu VBA kodu yalnızca geçerli seçili hücre için yapıyor, bunu nasıl yapabiliriz? kaydırma çalışma kitabının değil, yalnızca seçilen hücrenin değil mi?
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır