Change Case Font pada Excel dengan Macro

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:

Tinggalkan komentar

%d blogger menyukai ini: