Mengubah Huruf Menjadi Besar Semua

Merubah huruf menjadi huruf kapital semuanya pada suatu cell dapat dilakukan dengan formula UPPER.
Cuma jadi ribet bila yang ingin dirubah adalah data pada seluruh sheet yang sedang aktif.
VBA code di bawah ini digunakan untuk mengubah ke dalam huruf kapital atas semua data pada sheet yang aktif.
Formula tidak ikut terpengaruh.


=======

Sub kapital()
For Each cell In ActiveSheet.UsedRange
cell.Formula = UCase(cell.Formula)
Next cell
End Sub

=======

Untuk merubah ke huruf kecil semua (Lower Case), ubah UCase menjadi LCase

Sumber :http://excelans.wordpress.com/

Klik disini untuk melanjutkan »»