Hai, sahabat setia yang masih membaca meteri mengenai excel, kini aku akan sedikit mengulas bagaimana cara menciptakan persen (%) dengan mekanisme BeforeUpdate dengan memakai textbox sebagai data isiannya.
Lebih jelasnya pada bahan kali ini kita akan mengahsilkan gambar menyerupai berikut ini
Tentunya hasil diatas harus dibentuk coding VBA Excel terlebih dahulu. Bagaimana cara membuatnya silakan menyerupai biasa Anda harus masuk ke VBA Editor terlebih dahulu tambahkan 1 buah UserForm lalu tambahkan juga Textbox, Label, dan CommandButton
Untuk properties biarkan saja jangan dirubah menyerupai Caption, Name dan lainnya hal ini akan mempermudah Anda dalam berguru VBA tetapi jikalau Anda ialah pembaca yang sudah ahli dalam VBA hehe, silakan terserah sendiri ajah caranya mau menyerupai apa.
Langkah pertama silakan desain form dan berikut objek-objeknya menyerupai beerikut ini
Selanjutnya buat prosedure Textbox1_BeforeUpdate tuliskan codingnya
atau tuliskan coding berikut ini
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)Tambahkan sedikit coding pada UserForm_Initialize
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
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 jikalau ingin berguru haruslah sedikit dahulu jikalau banyak malah mumet dan tidak mengerti.
Selamat mencoba Sumber http://www.excel-id.com/