Raj bertanya:
Saya memiliki tabel pivot Excel yang disiapkan dengan 150 nilai berbeda di bidang halaman. Bagaimana cara menjalankan makro untuk mencetak setiap halaman? Saya mencoba merekam makro, tetapi hard code nama setiap halaman, dan beberapa halaman itu mungkin tidak ada di sana dari minggu ke minggu.
Visual Basic membuatnya mudah. Makro ini menggunakan berikut ini:
- The PageFields koleksi akan memberitahu Anda nama bidang halaman pertama dalam tabel pivot.
- The PivotItems koleksi adalah daftar semua item (halaman) di bidang halaman.
- The CurrentPage properti memungkinkan Anda untuk mengubah halaman yang ditampilkan dalam tabel pivot.
Sub PrintAll() ' Find name of page field PageField1 = ActiveSheet.PivotTables("PivotTable1").PageFields(1) ' Save the name of the page field displayed when macro begins OrigPage = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage ' Determine how many pages there are in page field NumPages = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems.Count For i = 1 To NumPages ThisPage = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems(i) ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = ThisPage ActiveWindow.SelectedSheets.PrintOut Next i ' Print the (all) page ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = "(all)" ActiveWindow.SelectedSheets.PrintOut ' Restore view back to original page ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = OrigPage End SubUjung topi untuk Raj karena melaporkan kembali dengan petunjuk ini. Makro di atas tidak akan berfungsi jika tabel pivot Anda diurutkan di bawah Lanjutan. Menyetel ulang ini ke manual akan memperbaiki masalah.
Catatan
Tip ini akan melewati setiap bidang halaman untuk mencetaknya. Jika Anda ingin membuat buku kerja dengan 150 lembar kerja berbeda, satu untuk setiap nilai bidang halaman, Anda dapat menggunakan fitur Perlihatkan Halaman.
