Bold SubTotal

Anda sering menggunakan fasilitas SubTotal dalam Excel? Hasil perhitungannya pada baris SubTotal masih menggunakan font sama dengan item-item lainnya. Agar terlihat lebih menonjol dari item-item yang dijumlahkan maka font SubTotal sering diformat lagi, dengan Bold misalnya atau dengan warna lain.

Kalau jumlah itemnya cukup banyak, maka memformat setiap baris SubTotal bukanlah pekerjaan mudah. Menyerah? Tidak! Anda bisa memanfaatkan program VBA berikut ini. Plilih salah satu cell pada daerah yang di subtotal, lalu jalankan program VBA ini, maka semua SubTotal akan di Bold, diberi warna biru dan row-height nya menjadi 20.

Sub BoldTotal()
' Author : I Ketut Wiryadinata
' Program Bold Total
Application.ScreenUpdating = False
Set kwtotal = ActiveCell.CurrentRegion
With kwtotal
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
End With
For Each isi In kwtotal
If Right(isi, 5) = "Total" Then
' membuat huruf tebal / bold
isi.Offset(0, 1).Font.Bold = True
isi.Offset(0, 2).Font.Bold = True
isi.Offset(0, 3).Font.Bold = True
isi.Offset(0, 4).Font.Bold = True
isi.RowHeight = 20
' memberi warna biru
isi.Font.ColorIndex = 5
isi.Offset(0, 1).Font.ColorIndex = 5
isi.Offset(0, 2).Font.ColorIndex = 5
isi.Offset(0, 3).Font.ColorIndex = 5
isi.Offset(0, 4).Font.ColorIndex = 5
End If
Next
Application.ScreenUpdating = True
End Sub

Work Smart, not work harder. Selamat mencoba !

Bagi anda yang belum pernah menggunakan VBA, click disini untuk mengetahui langkah-langkah dalam menggunakan Visual Basic Editor (VBE) yang built in dalam MS Excel

Download file Excel sekarang.