İ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

Bir neçə sahəni pivot masasına necə əlavə etmək olar?

Bir pivə masası yaratdığımızda, sahələri Etiket və ya Qiymətlərə manuel olaraq bir-birinə sürükləmək lazımdır. Sahələrimizin uzun bir siyahısı varsa, bir neçə satır etiketini tez bir zamanda əlavə edə bilərik, qalan sahələr isə dəyər sahəsinə əlavə edilməlidir. Bütün digər sahələri pivot masasında bir klik ilə dəyər sahəsinə əlavə etmək üçün tez üsullar varmı?

VBA koduyla pivot masanın dəyər sahəsinə bir neçə sahə əlavə edin


arrow mavi sağ bubble VBA koduyla pivot masanın dəyər sahəsinə bir neçə sahə əlavə edin


Təəssüf ki, bir klik ilə Pivot Cədvəl Siyahısı Siyahısında bütün sahələri tez bir zamanda yoxlamaq üçün heç bir onay qutusu yoxdur, ancaq aşağıdakı VBA kodu ilə qalan sahələri bir dəfə dəyərlər alanına əlavə etməyə kömək edə bilərsiniz. Xahiş edirəm:

1. Bir pivə cədvəlini yaratdıqdan sonra, ilk növbədə satıcının etiket sahələrini ehtiyacınız olduğu kimi əlavə etməli və dəyər sahələrini tərk etməlisiniz Hesabata əlavə etmək üçün sahələri seçin siyahısına baxın: </ p>

doc-add-multiple-fields-1

2. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic.

3. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modul Pəncərəsi.

VBA kodu: Aktiv iş yerində pivot masalarının dəyər sahəsinə bir neçə sahə əlavə edin

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. Sonra basın F5 bu kodu çalıştırmak üçün açar, bütün qalan alanlar, eyni zamanda Değerler alanına eklenmiştir, ekran görüntüsüne baxın:

doc-add-multiple-fields-1

Qeyd: Bu VBA kodu aktiv iş səhifəsinin bütün pivə cədvəllərinə tətbiq edilir.


Related articles:

Bütün pivot cədvəlləri bir iş kitabını necə tərtib etmək olar?

Bir iş kitabçasında bir pivə cədvəlin olub olmadığını necə yoxlamaq olar?



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.
    Neville · 10 months ago
    Works like a charm. Thanks
  • To post as a guest, your comment is unpublished.
    Zeeshan · 1 years ago
    Hi.

    It gives me a compile error when I click on Run

    Please help
  • To post as a guest, your comment is unpublished.
    Shaun Sheys · 1 years ago
    Does "xlDataField" not work with PowerPivot? I've got the code below, which is used to add all measures to the pivot table. It works with "xlColumnField" and "xlRowField". Any ideas how to make this work?

    Sub AddAllFieldsValues()
    Dim pt As PivotTable
    Dim iCol As Long
    Dim iColEnd As Long

    Set pt = ActiveSheet.PivotTables(1)

    With pt

    iCol = 1
    iColEnd = .CubeFields.Count

    For iCol = 1 To iColEnd
    With .CubeFields(iCol)
    If .Orientation = xlHidden Then
    .Orientation = xlDataField
    End If
    End With
    Next iCol

    End With

    End Sub
  • To post as a guest, your comment is unpublished.
    Sajal · 1 years ago
    This is great! Thanks.
  • To post as a guest, your comment is unpublished.
    sourav · 1 years ago
    Its takiung value as count. how can i convert all count as Sum