Sunday, September 25, 2016

VBA Excel Pemula 5 - Cara Mengubah Text Menjadi Huruf KAPITAL dan Huruf kecil (UCase dan LCase) di Cell dan TextBox

Perhatikan gambar gif dibawah yang menampilkan Text yang ada pada Cell dengan cepat dapat diubah menjadi huruf kapital yang sering disebut Upper Case dan huruf kecil disebut dengan Low Case. Apa pentingnya mempelajari hal ini? Penting..!! karena sering sekali data yang diinginkan dengan karakter khusus yang telah ditetapkan. 


Berikut kode untuk Mengubah Text Menjadi Huruf KAPITAL dan Huruf kecil (UCase dan LCase) di Cell :
  • Buka excel dan Pilih Tab Developer selanjutnya klik Visual Basic atau dengan jalan pintas keyboard Alt+F11
  • Pada Jendela Visual Basic Tambahkan Tool yang dibutuhkah dari ToolBox  seperti UserForm yang terlihat pada gambar gif diatas ata bisa juga download di akhir posting ini.
  • Kode untuk CommandButton1 dan CommandButton5 dengan Caption "INPUT" lihat dan ikuti Tutorial posting VBA Excel Pemula 2
  • Pada CommandButton2 dengan Caption "Upper Case" klik kanan dan pilih View Code dan masukkan kode berikut :
Private Sub CommandButton2_Click()
'VBA Excel Pemula 5: Cara Mengubah Text di Cell Jadi Upper Case (Huruf KAPITAL Or Lower Case (Huruf kecil) di Cell
'Kita dapat menggunakan UCase finction untuk mengubah text
    Range("C5").Value = UCase(Range("C5").Value)
    Range("C6").Value = UCase(Range("C6").Value)
End Sub
  • Pada CommandButton3 dengan Caption "Low Case" klik kanan pilih View Code dan masukkan kode berikut : 
Private Sub CommandButton3_Click()
'Kita dapat menggunakan LCase finction untuk mengubah Text
    Range("C5").Value = LCase(Range("C5").Value)
    Range("C6").Value = LCase(Range("C6").Value)
End Sub

Berikut kode untuk Mengubah Text Menjadi Huruf KAPITAL dan Huruf kecil (UCase dan LCase) pada TextBox :
  • Pada CommandButton7 dengan Caption "Upper Case" klik kanan pilih View Code dan masukkan kode berikut : 
Private Sub CommandButton7_Click()
TextBox3.Value = UCase(TextBox3.Value)
TextBox4.Value = UCase(TextBox4.Value)
End Sub
  • Pada CommandButton6 dengan Caption "Upper Case" klik kanan pilih View Code dan masukkan kode berikut : 
Private Sub CommandButton6_Click()
TextBox3.Value = LCase(TextBox3.Value)
TextBox4.Value = LCase(TextBox4.Value)
End Sub
  • Bila ingin TextBox langsung menerima setiap input text dalam Textbox sebagai huruf Besar (Upper Case) tempatkan kodenya pada Textbox_Change contohnya seperti dibawah ini
Sub Private TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
Textbox
  • Sama halnya dengan bila ingin TextBox langsung merima setiap input text dalam TextBox sebagai huruf kecil (Lower Case) tinggal mengubah Ucase jadi Lcase. 

Download : Aplikasi Pemula 5

Demikian posting VBA Excel Pemula 5 : Mengubah Text Menjadi Huruf KAPITAL dan Huruf kecil (UCase dan LCase) di Cell dan TextBox. semoga dapat dikembangkan dengan keinginan dan kebutuhan masing-masing. Semoga dapat dijadikan referensi bagi yang baru belajar Vba Excel. Sampaikan masukan dan kritikan di kolom komentar.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon