Halo sobat MediaKreasiOnline,
Beberapa dari permasalahan yang masuk ke email Admin, adalah cara merubah besar-kecilnya text pada cell selain dengan cara manual yaitu dengan menggunakan macro. Seperti kita ketahui, kita dapat merubah text pada cell dengan 3 kategori :
1. Proper = huruf besar akan selalu ada di awal kata (misal : Mari Kita Makan)
2. Upper = kata akan berhuruf besar semua (misal : MARI KITA MAKAN)
3. Lower = kata akan berhuruf kecil semua (misal : mari kita makan)
Untuk permasalahan No. 1 (Proper text) tersebut diatas, bisa dengan dibuatkan coding seperti dibawah ini :
Misalkan sobat MediaKreasiOnline mempunyai worksheet seperti dibawah ini :
Bilamana macro tersebut dijalankan, maka tampilan hasil dari worksheet diatas, akan menjadi :
Nah, untuk menjawab pertanyaan No. 2 (Upper text) dan No. 3 (Lower Text), sobat MediaKreasiOnline hanya cukup mengganti coding "Kata.Value = Application.Proper(Kata.Value)" dengan :
1. Kata.Value = Application.UCase(Kata.Value) => Bilamana text akan diubah menjadi huruf besar semua
2. Kata.Value = Application.LCase(Kata.Value) => Bilamana text akan diubah menjadi huruf kecil semua
Demikian sobat MediaKreasiOnline, semoga artikel sederhana ini dapat menjadi salah satu solusi juga bagi anda untuk menyelesaikan pekerjaan anda dengan lebih cepat.