Selasa, 22 November 2011

Kode Macro untuk Change Case Huruf di Excel

     Di Microsoft Word, terdapat fitur untuk mengubah Case Huruf yakni Change Case (Shift + F3) Bagaimana dengan Excel? Cobain aja…… dijamin gak bakalan bisa. 
Fitur standar untuk mengubah case huruf adalah dengan menggunakan fungsi : 
UPPER untuk mengubah semua huruf menjadi  kapital
LOWER untuk mengubah semua huruf menjadi huruf kecil
PROPER untuk mengubah huruf awal masing-masing kata menjadi huruf besar. 
Sayangnya, fungsi di atas harus tetap disandingkan dengan data awalnya.  


Dengan bantuan Macro, kita bisa menciptakan sendiri fasilitas untuk keperluan Change Case ini. Caranya? 

  • Buka Excel, tekan Alt + F11 
  • Pilih menu Insert > Module
  • Kopi Pastekan kode berikut : 





     Sub HurufBesar() 
       Application.ScreenUpdating = False 
          For Each cell In Selection 
            If Not cell.HasFormula Then 
              cell.Value = Strconv(cell.Value, VbUpperCase) 
            End If 
         Next cell 
       Application.ScreenUpdating = True 
     End Sub 


     Sub Hurufkecil() 
        Application.ScreenUpdating = False 
          For Each cell In Selection 
             If Not cell.HasFormula Then 
                cell.Value = Strconv(cell.Value, VbLowerCase) 
             End If 
          Next cell 
        Application.ScreenUpdating = True 
     End Sub 


     Sub HurufJudul() 
       Application.ScreenUpdating = False 
         For Each cell In Selection 
           If Not cell.HasFormula Then 
              cell.Value = Strconv(cell.Value, VbProperCase) 
           End If 
         Next cell 
       Application.ScreenUpdating = True 
     End Sub 



  • Tutup VBA Editor 
  • Tuliskan beberapa kata di sebuah sel 
  • Klik sel tersebut 
  • Pilih menu View > Macros > View Macros.  
  • Pilih salah satu macro yang ada . Klik Run dan lihat hasilnya.



     Dan, agar lebih mudah lagi, kita bisa menjadikan macro di atas sebagai add-ins. di lampiran workbook ini, saya membuat add-ins untuk change Case yang saya tempatkan di  menu Home, group terakhir  




     Yang membutuhkan atau hanya sekedar ingin mencoba, silahkan  didownload di Boxnet pada sidebar di samping atau di sini  


Artikel Terkait:

6 komentar:

Ayman mengatakan...

izin sedot pak ya..

Anonim mengatakan...

makasih ilmunya,,, keren abisss

Anonim mengatakan...

makasih pak, dari dulu nyari nih.

Anonim mengatakan...

keren.......mantab....saya suka artikelnya

Unknown mengatakan...

بارك الله
Salam kenal, kebetulan saya jg hobi utak atik XL dan sekarang sedang mengerjakan program untuk ijazah di sekolah saya...

Pak heru, saya mau minta izin mempelajari file² yang anda share. Mungkin sekali-kali juga pinginnya mengintip rumus yang bapak pakai.

Boleh ya pak.. ������

Anonim mengatakan...

trims ilmunya.. barokalloh :D