Cara Membuat Kotak Pesan Informasi Jumlah Rumus di Suatu File/Workbook Excel dengan Macro VBA
Tip berikut ini akan menjelaskan cara tercepat dalam menyajikan informasi berupa jumlah rumus yang ada dalam setiap sheet beserta total rumus dalam suatu file atau workbook Excel tersebut yang ditampilkan pada kotak pesan.
Langsung saja, ikuti langkah-langkah berikut:
1. Buka jendela VBE di Excel dengan cara menekan Alt+F11.
2. Buka menu Insert > Module.
3. Pada jendela Module beri judul macro contohnya HitungRumus:
Sub HitungRumus()
4. Tetapkan variabel contohnya A untuk hitungan rumus tiap sheet dan B untuk total semua rumus:
Dim A As Long, B As Long
5. Tetapkan juga variabel C sebagai daftar info dan D sebagai worksheet:
Dim C As String, D As Worksheet
6. Dimulai dengan mengosongkan nilai setiap variabel berikut:
A = 0: B = 0: C = ""
7. Gunakan loop susunan For Each...Next:
For Each D In Worksheets
8. Pada titik ini, kalau mau, Anda bisa menambahkan perintah untuk membuka password jika sheet di proteksi, namun ini bukan suatu keharusan. Jika sheet diproteksi maka Anda bisa menambahkan perintah WS.Unprotect ("PasswordAnda") untuk membuka password. Kalaupun tidak ada password Anda bisa lewatkan saja dan lanjut menuliskan statement berikut yang dapat membantu melakukan bypass jika terjadi potensi penghentian pada macro atau runtime errors:
On Error Resume Next
9. Tetapkan perintah untuk menghitung rumus yang ada di setiap sheet.
A = D.Cells.SpecialCells(xlCellTypeFormulas).Count
10. Gunakan penghubung logis If:
Err.Clear
A = 0
End If
11. Totalkan semua hitungan rumus:
B = B + A
12. Tambahkan penjelasan yang menginformasikan hasil hitungan dalam bentuk daftar dan tentukan formatnya:
Format(A, "#,##0") & vbCrLf
13. Di titik ini, jika Anda sebelumnya telah membuka proteksi sheet maka proteksi lagi dengan menuliskan password Anda lagi di garis kode ini. Namun jika tidak ingin memproteksinya maka Anda bisa lewati titik ini karena bukan keharusan dan lanjut saja mengetik statement menuju worksheet:
Next D
14. Terakhir buat susunan kotak pesan beserta formatnya seperti berikut:
ThisWorkbook.Name & ": " & _
Format(B, "#,##0"), , "Jumlah rumus di Workbook"
Adapun kode selengkapnya yaitu sebagai berikut:
Dim A As Long, B As Long
Dim C As String, D As Worksheet
A = 0: B = 0: C = ""
For Each D In Worksheets
On Error Resume Next
A = D.Cells.SpecialCells(xlCellTypeFormulas).Count
If Err.Number <> 0 Then
Err.Clear
A = 0
End If
B = B + A
C = C & "Jumlah rumus di ''" & D.Name & "'': " & _
Format(A, "#,##0") & vbCrLf
Next D
MsgBox C & vbCrLf & "Total rumus di " & _
ThisWorkbook.Name & ": " & _
Format(B, "#,##0"), , "Jumlah rumus di Workbook"
End Sub
Silakan uji coba macro yang telah Anda buat tersebut.
Demikian pembahasan cara menyusun kode macro untuk menampilkan kotak pesan berisi informasi jumlah rumus yang ada di dalam suatu file atau workbook Excel, semoga bermanfaat.