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.

Menghapus Cell Duplikasi dalam Excel

Dalam mengolah data yang cukup besar, kita sering menjumpai isi cell yang sama (duplicate). Untuk menghapusnya secara manual tentu akan memerlukan ketelitian dan waktu yang lama. Cobalah program VBA berikut ini, semuanya itu bisa dikerjakan dengan sekali click saja.

Sub DelDups()
sortir
Do While ActiveCell.Offset(1, 0) <> ""
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Value = "Z"
End If
Loop
ActiveCell.CurrentRegion.Select
sortir
Set finalisasi = Selection
For Each sell In finalisasi
If sell.Value = "Z" Then sell.Value = vbNullString
Next sell
Set finalisasi=nothing
End Sub


Sub sortir()
Selection.Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Pilih cell paling atas dalam database anda, kemudian jalankan program ini. Selamat mencoba.
Catatan : Ada banyak cara dan banyak program yang bisa menghapus duplikasi, program ini hanya salah satu yang biasa saya pakai dalam bekerja dengan Excel. Fast!

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

Blog Pertama Saya

Hari ini adalah pertama kalinya bagi saya memanfaatkan Blog. Selama ini saya membuat dan mendesign sendiri personal website saya, mulai dari pesan domain,space utk webhosting, sampai ke design layout dan pemrograman dengan HTML dan javascript. Cape memang, tapi buat saya itu sangat mengasyikkkan. My personal website : http://www.wirdi.biz/

Namun dengan membuat Blog di tempat yang telah tersedia dan apalagi gratis ini, sepertinya lebih praktis dan menghemat waktu. Saya mencoba untuk banyak menulis mngenai penggunaan Visual Basic for Application (VBA) untuk Excel , namun agar tidak jenuh saya juga akan menulis opini saya tentang hal-hal yang saya amati dalam kehidupan sehari-hari.

Cheer,
wirdi