Kita tentu sudah mengenal rumus UPPER, LOWER, dan PROPPER. Ketiga rumus tersebut digunakan untuk mengganti Bentuk Huruf kapital / kecil. Hanya saja, aplikasinya harus dilakukan di cell kosong lainnya. Misal di Cell A1 berisi “apel”, maka untuk mengubahnya menjadi “APEL”, kita harus menggunakan rumus =UPPER(A1) di B1 (misalnya), kemudian kita kopi dan paste value di A1.
Namun jangan khawatir, berkat bantuan Macro Excel, maka kita bisa mengganti
Case pada Cell Excel layaknya mengganti Case pada Ms Word. Caranya, masukkan macro berikut:
Sub GantiCase()
'Mengganti bentuk Case pada Range yang dipilih.
'Shortcut yang digunakan adalah "Ctrl q"
Application.OnKey "^q", "GantiCase"
Dim Rng As Range
For Each Rng In Selection
Select Case Rng.Value
Case StrConv(Rng.Value, 1)
Rng.Value = StrConv(Rng.Value, 2)
Case StrConv(Rng.Value, 2)
Rng.Value = StrConv(Rng.Value, 3)
Case StrConv(Rng.Value, 3)
Rng.Value = StrConv(Rng.Value, 1)
Case Else
Rng.Value = StrConv(Rng.Value, 1)
End Select
Next Rng
End Sub
Dengan menggunakan shortcut “Ctrl Q”, maka anda bisa mengubah Case layaknya Ms. Word.
Jika ingin shortcutnya juga diganti layaknya pada microsoft word, maka kode berikut:
Application.OnKey “^q”, “GantiCase”
bisa diganti dengan
Application.OnKey “+{F3}”, “GantiCase”
Contoh filenya bisa diunduh di sini: