1. membatasi textbox :
ElseIf Trim(Me.TextBox1.Value) > 30 Then
MsgBox "salah"
Exit Sub
2. Format percentage pada textbox
Else
TextBox1.Value = Format(TextBox1.Value, "0%")
3. Msgbox pake image yang dapat di browse di folder
....maksudnya user bisa milih sendiri gambar sesuka hati? gunakan FSO
untuk browsenya
ato image udah ditentukan lalu pop-up image sebagai msg box ??
wassalam
Pada tanggal 24/08/09, ALIEF YANISA <[email protected]> menulis:
> 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.
>
