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

Tweet