Microsoft Excel'de VBA kullanarak Özet Tablodan En Son Tarih Nasıl Seçilir

Günlük olarak güncellenmeye devam eden satış verileri üzerinde çalışıyorsanız. Pivot tablo kullanarak verilere girilen en son tarihteki satışların tamamını takip etmek. Bu yazıda, makroları kullanarak veritabanındaki en yeni tarihi seçmek için pivot tablonun nasıl kullanılacağını öğreneceğiz.

Sahip olduğumuz verilerin anlık görüntüsü aşağıdadır:

Yeni tarihi ve satışları otomatik olarak bulmak için pivot yapmamız gerekiyor
ALT + N + V kısayol tuşunu kullanın

Aşağıdaki adımları izlememiz gerekiyor:

Geliştirici sekmesine tıklayın
Kod grubundan Visual Basic'i seçin

Çalışma sayfası modülüne aşağıdaki kodu girin


Alt En SonTarihPivot()
 PivotItem Olarak Dim pfiPivFldItem
 Dim dtmDate As Date
 Çalışma Sayfaları ile(“Sayfa1”).PivotTables(1)
 .PivotCache.Yenile
 .Tüm Filtreleri Temizle
 .RowRange ile
 dtmDate = Evaluate(“Max(IF(ESNUMBER(“ & .Adres(0, 0) & “),” & .Adres(0, 0) & “,))”)


 İle bitmek
 .PivotFields(“Dates”).PivotItems içindeki her pfiPivFldItem için
 pfiPivFldItem.Value = “(boş)” ise
 pfiPivFldItem.Visible = Yanlış
 Başka
 pfiPivFldItem.Visible = (Cdate(pfiPivFldItem.Value) = CLng(dtmDate))
 Bitir
 Sonraki pfiPivFldItem
 İle bitmek
Alt Bitiş

Kodu kopyaladıktan sonra makroyu kullanarak çalıştırmanız gerekir. ALT + F8 & makroyu seçin.
Veya bir şekil ekleyebilir ve makroyu atayabilirsiniz; en son tarihi alacağız