Change Case di Microsoft Excel - Cara 1

Mungkin kita sering bekerja dengan Excel, apalagi bagi mereka yang kerjaannya hitung-menghitung, membuat tabel dan lain sebagainya. Lalu karena satu dan lain hal, data yang kita buat (misal: daftar siswa) harus dibuat oleh huruf cetak (huruf besar semua) atau sebaliknya data yang kita buat dibuat dengan huruf besar semua, dan kita ingin data tersebut dibuat dengan hanya huruf awal saja yang capital (proper case). Muncul pertanyaan, bagaimana cara mengubah data tersebut ???

Mungkin salah satu cara untuk hal tersebut adalah dengan menggunakan formula Excel, tetapi hal ini sangat membosankan apabila data yang harus kita rubah itu berjumlah ribuan apalagi tidak merata pada sebuah sel (tersebar), belum lagi data tersebut terdapat pada beberapa sheet. Makin bingung deh.

Ada beberapa cara yang dapat memudahkan pekerjaan kita yakni dengan menggunakan Macro. Pada artikel ini saya akan menjelaskan bagaimana menerapkan fungsi Change Case lewat Shortcut Key. Caranya copy script berikut ini...

Sub ChangeCase()
Dim Rng As Range
On Error Resume Next
Err.Clear
Application.EnableEvents = False
For Each Rng In Selection.SpecialCells(xlCellTypeConstants, _
xlTextValues).Cells
If Err.Number = 0 Then
' Rng.Value = StrConv(Rng.Text, vbUpperCase)
' Rng.Value = StrConv(Rng.Text, vbLowerCase)
' Rng.Value = StrConv(Rng.Text, vbProperCase)
End If
Next Rng
Application.EnableEvents = True
End Sub

Buka Visual Basic for Microsoft Excel, seperti yang pernah saya jelaskan pada Artikel sebelumnya tentang Fungsi Terbilang di Microsoft Excel. Kemudian paste di kotak Module.

Catatan: Jika sudah ada script sebelumnya, maka paste saja dibagian paling bawah.

Perhatikan tanda kutip pada script yang berwarna merah, biru dan hijau, apabila menginginkan perubahan menjadi huruf besar semua (UPPERCASE) hapus kutip berwarna merah, untuk huruf yang kecil semua (lowercase) hapus kutip warna biru, dan untuk yang huruf awalnya saja yang besar (Proper Case) hapus kutip berwarna kuning.

Setelah itu tutup Visual Basic. Lalu pada tab View diatas klik Macro, pilih View Macro, maka akan muncul kotak dialog Macro seperti gambar dibawah.

Pilih Macro yang kita buat tadi, dalam hal ini bernama "ChangeCase".
Kemudian klik Options, akan terbuka kotak dialog Macro Options.

Masukkan salah satu huruf yang kita ingin jadikan Shortcut key (sebagai pemanggilan fungsi tersebut). Untuk hal ini saya memilih huruf "k", jadi untuk memanggil fungsi tersebut cukup menekan Ctrl + k.

Setelah itu klik OK, lalu tutup kotak dialog Macro.

Sekarang Anda coba ketik kata atau kalimat dibeberapa cell, lalu pilih/sorot area tersebut, kemudian tekan Ctrl + k.

Catatan: Apabila hanya satu Cell yang terpilih, maka satu Sheet yang akan berubah .

Oh ya... Anda pun bisa menggunakan ketiga fungsi sekaligus dengan membedakan fungsi Shortcut key yang berbeda. Misalnya Ctrl + k untuk huruf besar, Crtl + j untuk huruf kecil, dan Ctrl + l untuk huruf awal yang besar. Caranya paste script di atas sampai 3 kali dengan membedakan nama script (nama script = setelah kata "Sub", tanpa ada spasi).

Selamat mencoba...