İ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

Excel-də Pivot Cədvəlini avtomatik olaraq necə yeniləyə bilərəm?

Normal olaraq pivot masasının qaynaq məlumatlarını yenilədikdə, pivot masası tıklayana qədər güncəlləşməyəcəkdir Təhlil etmək > təzələmək əllə. Pivot masası başqa bir iş yerində qaldıqda bu olduqca darıxdırıcı olacaq və yeniləməyi unutma. Burada, bu məqalə Excel-də pivot cədvəlini avtomatik olaraq yeniləmək üçün bir VBA təqdim edəcəkdir.

VBA tərəfindən Pivot Cədvəlini avtomatik olaraq yeniləyin

Asanlıqla bir çox iş səhifəsi / workbook / CSV faylını bir iş səhifəsinə / iş kitabına birləşdirin

Müxtəlif iş dəftərlərindən bir çox təbəqəni bir təbəqəyə birləşdirmək çətin ola bilər. Lakin Excel üçün Kutools ilə Birləşdirin (iş və iş dəftəri) kommunal, bunu bir neçə klik ilə əldə edə bilərsiniz! Tam xüsusiyyətli 60-sınaq sınaq!
reklam birləşmələri 1 kitablarını birləşdirir



arrow mavi sağ bubbleVBA tərəfindən Pivot Cədvəlini avtomatik olaraq yeniləyin

Excel-də göstərilən pivot cədvəlini avtomatik olaraq yeniləşdirmək üçün VBA tətbiq etmək üçün aşağıdakı addımları edin.

1. Sehife sekmesinde, qaynaq məlumatlarını ehtiva edən hesabatı sekmesini sağ basın və seçin Kodları baxın kontekst menyusunda. Ekran görüntüsünə baxın:

2. Açılış Microsoft Visual Basic for Applications proqramı penceresinde, kodu yapıştırın.

VBA: Avtomatik olaraq göstərilən pivot cədvəlini yeniləyin

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

Qeydlər:
(1) Worksheets kodunda ("hesabatı adı") .Pivot Tables ("PivotTable adı".PivotCache.Refresh, əvəz edin hesabatı adı göstərilən pivot cədvəlini əks etdirən hesabatın adı ilə dəyişdirin PivotTable adı göstərilən pivot masanın adı ilə.
(2) Belirtilen pivot masa içərisində hər hansı bir hüceyrəni seçin, onun adını alacaqsınız Təhlil etmək sekme (və ya Nizamlamalar nişanı). Ekran görüntüsünə baxın:

3. Kodu saxla.

İndi, qaynaq verilənlərindəki məlumatları dəyişdikdə, müəyyən pivot cədvəli avtomatik olaraq yenilənəcəkdir.


arrow mavi sağ bubbleRelated articles:



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.
    César Augusto Betanc · 1 years ago
    If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("M:M")) Is Nothing Then
    Exit Sub
    Else
    'MsgBox "You just changed" & Target.Address
    Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
    End If

    End Sub