Diskusi tentang Excel

Format Percen % dengan Prosedur TextBox1_BeforeUpdate

Hai, sahabat setia yang masih membaca meteri mengenai excel, sekarang saya akan sedikit mengulas bagaimana cara membuat persen (%) dengan prosedur BeforeUpdate dengan menggunakan textbox sebagai data isiannya.

Lebih jelasnya pada materi kali ini kita akan mengahsilkan gambar seperti berikut ini


Tentunya hasil diatas harus dibuat coding VBA Excel terlebih dahulu. Bagaimana cara membuatnya silakan seperti biasa Anda harus masuk ke VBA Editor terlebih dahulu tambahkan 1 buah UserForm kemudian tambahkan juga Textbox, Label, dan CommandButton

Untuk properties biarkan saja jangan dirubah seperti Caption, Name dan lainnya hal ini akan mempermudah Anda dalam belajar VBA tetapi jika Anda adalah pembaca yang sudah mahir dalam VBA hehe, silakan terserah sendiri ajah caranya mau seperti apa.

Langkah pertama silakan desain form dan berikut objek-objeknya seperti beerikut ini


Selanjutnya buat prosedure Textbox1_BeforeUpdate tuliskan codingnya
atau tuliskan coding berikut ini

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then
TextBox1 = Format(TextBox1 / 100, "0.00%")
Label1 = "Hasilnya " & TextBox1

ElseIf Right(TextBox1, 1) = "%" Then
Label1 = TextBox1

Else
TextBox1 = ""
MsgBox "Silakan masukan angka dengan benar", vbCritical
End If

End Sub
Tambahkan sedikit coding pada UserForm_Initialize

Private Sub UserForm_Initialize()
Label1 = Format(Range("A1"), "0.00%")
Label1.Caption = "Belum Ada Data"
End Sub

Selesai, Sederhana dan cukup simpel, yah namanya juga jika ingin belajar haruslah sedikit dahulu jika banyak malah mumet dan tidak mengerti.

Selamat mencoba

Related

TextBox 4194038435458471689

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item