Cari Belajar Membuat Fungsi String dengan VBA Excel - Terbaru 2018
Selamat datang Di Membuat Master Data pada Microsoft Excel RumusExcel.com - Fungsi string atau fungsi pengolahan teks mungkin adalah salah satu fungsi yang sering digunakan dalam pembuatan data di Microsoft Excel, contoh penggunaan fungsi string yang diterapkan dalam worksheet sudah sering saya bahas seperti fungsi Left, Mid, Right, Upper, Lower dll. Kali ini kita akan belajar fungsi String dengan menggunakan VBA, yang memanfaatkan UserForm dan beberapa TextBox. Kurang lebih hasilnya nanti akan seperti gambar dibawah ini:
Untuk membuat UserForm Belajar Fungsi String seperti gambar diatas caranya adalah sebagai berikut:
Buka Aplikasi Microsoft Office Excel. Simpan lembar kerja Excel dengan ekstensi *.xlsm atau *.xlsb Buka jendela Microsoft Visual Basic dengan menekan tombol Alt+F11 atau melalui Tab Developer - Visual Basic. Tambahkan sebuah Userform, untuk propertiesnya biarkan default saja. Tambahkan 2 buah Frame ke dalam UserForm, ubah Caption pada Propertiesnya menjadi Input kata dan Hasil. Tambah 9 buah Label ke dalam UserForm dan ubah propertiesnya sebagai berikut: .tg {border-collapse:collapse;border-spacing:0;border-color:#aaa;} .tg td{font-family:Arial, sans-serif;font-size:14px;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal;border-color:#aaa;color:#333;background-color:#fff;} .tg th{font-family:Arial, sans-serif;font-size:14px;font-weight:normal;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal;border-color:#aaa;color:#fff;background-color:#f38630;} .tg .tg-s6z2{text-align:center} .tg .tg-e3zv{font-weight:bold} .tg .tg-lyaj{background-color:#FCFBE3;text-align:center} .tg .tg-hgcj{font-weight:bold;text-align:center} .tg .tg-z2zr{background-color:#FCFBE3} No Controls (Name) Caption 1 Label 1 Label1 Belajar Fungsi String 2 Label 2 Label2 LEFT 3 Label 3 Label3 MID 4 Label 4 Label4 RIGHT 5 Label 5 Label5 LEN 6 Label 6 Label6 LTRIM 7 Label 7 Label7 RTRIM 8 Label 8 Label8 LCASE 9 Label 9 Label9 UCASE
Tambahkan ke dalam UserForm 9 buah TextBox dan ubah propertiesnya seperti tabel dibawah ini: No Controls (Name) 1 TextBox 1 txtKata 2 TextBox 2 txtLeft 3 TextBox 3 txtMid 4 TextBox 4 txtRight 5 TextBox 5 txtLen 6 TextBox 6 txtLTrim 7 TextBox 7 txtRTrim 8 TextBox 8 txtLCase 9 TextBox 9 txtUCase
Susun semua Frame, Label dan TextBox seperti gambar UserForm diatas. Klik kanan UserForm1 yang ada pada VBA Project dan klik View Code Kemudian masukkan script berikut ini: Private Sub txtKata_Change() txtLeft = Left(txtKata, 5) txtMid = Mid(txtKata, 3, 4) txtRight = Right(txtKata, 5) txtLen = Len(txtKata) txtLTrim = LTrim(txtKata) txtRTrim = RTrim(txtKata) txtLCase = LCase(txtKata) txtUCase = UCase(txtKata) End Sub Setelah itu tekan F5 untuk menjalankan UserForm, dan ketikkan teks apa saja pada TextBox1 atau txtKata dan lihatlah perubahan pada TextBox yang ada pada Frame Hasil. Penjelasan Script yang digunakan:
Private Sub txtKata_Change()
.....
End Sub Ketika isi TextBox txtKata dirubah maka script yang ada didalam sub tersebut akan dijalankan.
txtLeft = Left(txtKata, 5) TextBox dengan nama txtLeft akan menampilkan isi TextBox txtKata sebanyak 5 karakter teks dari kiri.
txtMid = Mid(txtKata, 3, 4) TextBox dengan nama txtMid akan menampilkan isi TextBox txtKata sebanyak 4 karakter teks dimulai dari karakter teks ke 3.
txtRight = Right(txtKata, 5) TextBox dengan nama txtRight akan menampilkan isi TextBox txtKata sebanyak 5 karakter teks dari kanan.
txtLen = Len(txtKata) TextBox dengan nama txtLen akan menampilkan jumlah karakter dari isi TextBox txtKata.
txtLTrim = LTrim(txtKata) TextBox dengan nama txtLTrim akan menampilkan isi TextBox txtKata dengan menghilangkan spasi sebelah kiri (jika ada spasi).
txtRTrim = RTrim(txtKata) TextBox dengan nama txtRTrim akan menampilkan isi TextBox txtKata dengan menghilangkan spasi sebelah kanan (jika ada spasi).
txtLCase = LCase(txtKata) TextBox dengan nama txtLCase akan menampilkan isi TextBox txtKata yang di ubah menjadi huruf kecil semua (lower case)
txtUCase = UCase(txtKata) TextBox dengan nama txtUCase akan menampilkan isi TextBox txtKata yang di ubah menjadi huruf kapital/huruf besar (upper case)
Sekian penjelasan script yang digunakan Belajar Membuat Fungsi String VBA Excel, Contoh Filenya bisa di unduh disini, Semoga Bermanfaat... var obj0=document.getElementById("post18023173106728933768"); var obj1=document.getElementById("post28023173106728933768"); var s=obj1.innerHTML; var t=s.substr(0,s.length/2); var r=t.lastIndexOf("
"); if(r>0) {obj0.innerHTML=s.substr(0,r);obj1.innerHTML=s.substr(r+4);}
Masdad Al-Falucky | Selasa, 07 Oktober 2014 | Rating: 4.5 Title : Belajar Membuat Fungsi String dengan VBA Excel
Description : Belajar membuat fungsi string atau fungsi text dengan menggunakan UserForm dan TextBox Excel.

Untuk membuat UserForm Belajar Fungsi String seperti gambar diatas caranya adalah sebagai berikut:
Buka Aplikasi Microsoft Office Excel. Simpan lembar kerja Excel dengan ekstensi *.xlsm atau *.xlsb Buka jendela Microsoft Visual Basic dengan menekan tombol Alt+F11 atau melalui Tab Developer - Visual Basic. Tambahkan sebuah Userform, untuk propertiesnya biarkan default saja. Tambahkan 2 buah Frame ke dalam UserForm, ubah Caption pada Propertiesnya menjadi Input kata dan Hasil. Tambah 9 buah Label ke dalam UserForm dan ubah propertiesnya sebagai berikut: .tg {border-collapse:collapse;border-spacing:0;border-color:#aaa;} .tg td{font-family:Arial, sans-serif;font-size:14px;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal;border-color:#aaa;color:#333;background-color:#fff;} .tg th{font-family:Arial, sans-serif;font-size:14px;font-weight:normal;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal;border-color:#aaa;color:#fff;background-color:#f38630;} .tg .tg-s6z2{text-align:center} .tg .tg-e3zv{font-weight:bold} .tg .tg-lyaj{background-color:#FCFBE3;text-align:center} .tg .tg-hgcj{font-weight:bold;text-align:center} .tg .tg-z2zr{background-color:#FCFBE3}
Private Sub txtKata_Change()
.....
End Sub Ketika isi TextBox txtKata dirubah maka script yang ada didalam sub tersebut akan dijalankan.
txtLeft = Left(txtKata, 5) TextBox dengan nama txtLeft akan menampilkan isi TextBox txtKata sebanyak 5 karakter teks dari kiri.
txtMid = Mid(txtKata, 3, 4) TextBox dengan nama txtMid akan menampilkan isi TextBox txtKata sebanyak 4 karakter teks dimulai dari karakter teks ke 3.
txtRight = Right(txtKata, 5) TextBox dengan nama txtRight akan menampilkan isi TextBox txtKata sebanyak 5 karakter teks dari kanan.
txtLen = Len(txtKata) TextBox dengan nama txtLen akan menampilkan jumlah karakter dari isi TextBox txtKata.
txtLTrim = LTrim(txtKata) TextBox dengan nama txtLTrim akan menampilkan isi TextBox txtKata dengan menghilangkan spasi sebelah kiri (jika ada spasi).
txtRTrim = RTrim(txtKata) TextBox dengan nama txtRTrim akan menampilkan isi TextBox txtKata dengan menghilangkan spasi sebelah kanan (jika ada spasi).
txtLCase = LCase(txtKata) TextBox dengan nama txtLCase akan menampilkan isi TextBox txtKata yang di ubah menjadi huruf kecil semua (lower case)
txtUCase = UCase(txtKata) TextBox dengan nama txtUCase akan menampilkan isi TextBox txtKata yang di ubah menjadi huruf kapital/huruf besar (upper case)
Sekian penjelasan script yang digunakan Belajar Membuat Fungsi String VBA Excel, Contoh Filenya bisa di unduh disini, Semoga Bermanfaat... var obj0=document.getElementById("post18023173106728933768"); var obj1=document.getElementById("post28023173106728933768"); var s=obj1.innerHTML; var t=s.substr(0,s.length/2); var r=t.lastIndexOf("
"); if(r>0) {obj0.innerHTML=s.substr(0,r);obj1.innerHTML=s.substr(r+4);}

Description : Belajar membuat fungsi string atau fungsi text dengan menggunakan UserForm dan TextBox Excel.
Share to
Facebook Google+ Twitter removeRelatedDuplicates_thumbs(); printRelatedLabels_thumbs("http://www.rumusexcel.com/2014/10/membuat-fungsi-string-dengan-vba-excel.html"); Sekian terimakasih dan mohon maap apa bila dalam penyampaiyan nya ada kesalahan
Comments
Post a Comment