Kategori

Jumat, 10 November 2017

CARA MENGUBAH 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 di SEDOT di SINI

Tidak ada komentar:

Posting Komentar