Cara Mengulang Tugas pada Semua Sheet Grafik di Suatu Workbook
Suatu sheet grafik merupakan jenis sheet yang berbeda jika dibandingkan dengan worksheet biasa, sehingga jika Anda ingin melakukan loop atau pengulangan tugas pada sheet grafik maka jenis sheet yang dicari harus berbeda juga.
Kali ini kami akan berbagi contoh kode macro untuk menuntaskan tugas yang sama yaitu mewarnai latar belakang grafik seperti yang telah dibahas pada postingan sebelumnya yaitu Cara Mengulang Tugas pada Semua Grafik yang Tertempel di Suatu Workbook hanya saja kali ini dilakukan pada sheet grafik.
Siapkan terlebih dahulu sumber data dan sheet grafik pada workbook atau file Excel sebagai contoh untuk mempraktikkan tutorial ini.
Silakan Anda ikuti langkah-langkah berikut untuk menyusun kode macro:
1. Buka VBE dengan menekan Alt+F11.
2. Buat module baru melalui menu Insert > Module.
3. Pada module, berikan judul macro:
Sub LoopSheetGrafik()
4. Tepat di bawahnya, matikan ScreenUpdating dengan mengetik:
Application.ScreenUpdating = False
5. Tetapkan variabel objek untuk kumpulan sheet:
Dim os As Object
6. Mulai jalankan loop terhadap semua sheet, yang dicari hanya sheet grafik saja:
If TypeOf os Is Excel.Chart Then
7. Pilih sheet grafik:
os.Activate
8. Warnai background grafik dengan warna standar 46 (jingga):
ActiveChart.ChartArea.Interior.ColorIndex = 46
9. Akhiri struktur If lalu lanjutkan ke sheet berikutnya:
End If
Next os
10. Hidupkan kembali ScreenUpdating:
Application.ScreenUpdating = True
11. Susunan lengkap kode macro:
Application.ScreenUpdating = False
Dim os As Object
For Each os In ActiveWorkbook.Sheets
If TypeOf os Is Excel.Chart Then
os.Activate
ActiveChart.ChartArea.Interior.ColorIndex = 46
End If
Next os
Application.ScreenUpdating = True
End Sub
12. Tekan Alt+Q untuk kembali ke worksheet.
13. Tekan Alt+F8 untuk membuka Macro lalu pilih LoopSheetGrafik lalu klik Run.
Demikian penjelasan tentang cara melakukan loop (mengulang tugas) pada sheet grafik di dalam setiap worksheet pada suatu file atau workbook Excel.
Selamat mempraktikkan dan semoga postingan ini bermanfaat.