Cara mengatur supaya huruf pertama menjadi kapital (huruf besar) pada tiap sel MS Excel

Sering sekali kita memerlukan cara cepat supaya huruf pertama pada sejumlah sel di MS Excel adalah huruf besar (kapital), selanjutnya adalah huruf kecil sebagai mana layaknya aturan penulisan. Untuk merubah isi banyak sel secara manual membutuhkan waktu lama, mebosankan dan cenderung menimbulkan kesalahan sampingan.
Otomasi proses ini dapat dilakukan dengan memanfaatkan macro (bahasa Visual Basic) pada MS Execl, seperti diuraikan berikut ini.

1. Pilih sel-sel yan akan dieksekusi, seperti contoh di bawah adalah A1 - A12.

Pilih sel-sel yang akan dieksekusi

2. Klik kanan pada "Sheet1" dan klik pada "View Code" untuk masuk ke Macro-nya.

 3. Masukkan program macro berikut:

Sub SentenceCase()
For Each cell In Selection.Cells
s = cell.Value
Start = True
For i = 1 To Len(s)
ch = Mid(s, i, 1)
Select Case ch
Case "."
Start = True
Case "?"
Start = True
Case "a" To "z"
If Start Then ch = UCase(ch): Start = False
Case "A" To "Z"
If Start Then Start = False Else ch = LCase(ch)
End Select
Mid(s, i, 1) = ch
Next
cell.Value = s
Next
End Sub

Dan kemudian eksekusi macro tersebut dengan klik pada "Run" dan "Run Sub/UserForm F5" atau langsung klik pada ikon gambar panah ke kanan, seperti pada gambar di atas. Kemudian kembali ke spreadsheet dengan mengklik gambar Excel "X" pada pojok kiri atas.
Hasilnya dapat dilihat berikut ini, dimana tulisan sudah rapi dengan huruf pertama huruf besar / kapital sedangkan berikutnya huruf kecil.

Selamat mencoba ...



Referensi: http://uk.answers.yahoo.com/question/index?qid=20080330141648AAzjx8M

(TangSel 1may11)