#Cara Mendesimalkan Textbox Di Userform Excel #VBA Excel Desimal Textbox Excel
Untuk membuat angka di textbox userform menjadi desimal, Anda perlu menaruh scrip kode macro pada textbox itu sendiri.
Biasanya ini digunakan untuk administrasi seperti aplikasi kasir, bendahara, gudang, BRILink dan tau lainnya yang bersangkutan dengan keuangan.
Kode ini menjadikan textbox menjadi format Rp. 250.000
TextBox1.Value = Format(TextBox1.Value, "Rp #,##0")
Kode ini menjadikan textbox menjadi format 250.000
TextBox2 = Format(TextBox2 * 1, "#,##0")
Kode ini menjadikan textbox menjadi format Rp 250,000
TextBox3 = Replace$(Format$(Replace$(TextBox3.Text, ",", vbNullString), "Rp #,###"), ".", ",")
Kode ini menjadikan textbox menjadi format 250,000
TextBox4 = Replace$(Format$(Replace$(TextBox4.Text, ",", vbNullString), "#,###"), ".", ",")
Hubungi kami di no wa : 081359048438 atau email : aplikasisyaref@gmail.com
Buka Jasa dan Produk :
VBA EXCEL PENGATURAN DESIMAL PADA TEXTBOX EXCEL
Untuk membuat angka di textbox userform menjadi desimal, Anda perlu menaruh scrip kode macro pada textbox itu sendiri.
Biasanya ini digunakan untuk administrasi seperti aplikasi kasir, bendahara, gudang, BRILink dan tau lainnya yang bersangkutan dengan keuangan.
MACAM-MACAM DESIMAL TEXTBOX EXCEL
Jenis TextBox Desimal Ke 1
Kode ini menjadikan textbox menjadi format Rp. 250.000
TextBox1.Value = Format(TextBox1.Value, "Rp #,##0")
Jenis TextBox Desimal Ke 2
Kode ini menjadikan textbox menjadi format 250.000
TextBox2 = Format(TextBox2 * 1, "#,##0")
Jenis TextBox Desimal Ke 3
Kode ini menjadikan textbox menjadi format Rp 250,000
TextBox3 = Replace$(Format$(Replace$(TextBox3.Text, ",", vbNullString), "Rp #,###"), ".", ",")
Jenis TextBox Desimal Ke 4
Kode ini menjadikan textbox menjadi format 250,000
TextBox4 = Replace$(Format$(Replace$(TextBox4.Text, ",", vbNullString), "#,###"), ".", ",")
LANGKAH-LANGKAH DESIMAL TEXTBOX EXCEL
- Buka microsoft excel
- Tekan Alt+F11 masuk ke jendela VBA atau dengan cara Menu Developer >> Visual Basic
- Buatlah 1 buah userform dan 4 buah textbox
- Klik 2x textbox 1
- Copy Kode macro dibawah ini Private Sub TextBox1_Change()
- Pastekan ke dalam textbox tersebut, sehingga menjadi seperti gambar dibawha ini
- Untuk mencobanya silahkan tekan F5 atau klik tools RUN
- Hasilnya akan seperti gambar paling atas
TextBox1.Value = Format(TextBox1.Value, "Rp #,##0")
End Sub
Private Sub TextBox2_Change()
TextBox2 = Format(TextBox2 * 1, "#,##0")
End Sub
Private Sub TextBox3_Change()
TextBox3 = Replace$(Format$(Replace$(TextBox3.Text, ",", vbNullString), "Rp #,###"), ".", ",")
End Sub
Private Sub TextBox4_Change()
TextBox4 = Replace$(Format$(Replace$(TextBox4.Text, ",", vbNullString), "#,###"), ".", ",")
End Sub
Bagaimana Cara Hack Password VBA ?
Hubungi kami di no wa : 081359048438 atau email : aplikasisyaref@gmail.com
Buka Jasa dan Produk :
- Tools Bobol VBA Excel (50-100rb)
- 1500 file belajar excel (100rb) dari pada cari digoogle lama, mending beli (bonusnya : 10 APK jadi, Bobol Worksheet dan Workbook, Masih banyak lagi)
- IDM Pro, PDF Pro, SMADAV Pro, OS Win7 dan 10 (32bit dan 64bit) + Driver Pack dan masih banyak lagi (harga custom)
- Jasa pengerjaan EMIS dan raport ARD (50rb)
- Order APK excel (harga custom)
- Jasa bobol password VBA Excel (15-45rb)
"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015
Post a Comment for "VBA EXCEL DESIMAL TEXTBOX"