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.
Tidak ada komentar:
Posting Komentar