seperti ini kah ? Private Sub TextBox1_LostFocus() With TextBox1 If .Value = "" Then Exit Sub ElseIf .Value > 30 Then MsgBox "salah" .Value = "" Exit Sub ElseIf .Value <= 30 Then TextBox1 = Format(Val(.Value) / 100, "0%") End If End With End Sub
2009/8/24 ALIEF YANISA <[email protected]> > > Dear Exel mania.. > > Saya menemukan kesulitan dalam macro, > saat mengisi angka pada textbox dibatasi sampai dengan angka 30 > jika lebih dari 30 maka akan keluar message box dan hasil tersebut dibuat dummynya, > Maka macronya adalah : > > Private Sub TextBox1_Change() > If TextBox1.Value = "" Then > TextBox1.Value = "" > ElseIf TextBox1.Value > 30 Then > MsgBox "salah" > End If > Range("A1").Value = TextBox1.Value > End Sub > > > Permasalahannya adalah : > 1. Bagaimana caranya agar nilai angka tersebut formatnya adalah percentase : > contohnya 0,5% , 10% dan seterusnya dan Jika Diluar format percentase(%) > akan muncul pesan messagebox lagi. > 2. Bagaimana agar tampilan messageboxnya adalah gambar(image) yang dapat kita > browse pada folders di PC. > > Terimakasih atas bantuanya, > > Regards, > Alief.
