Hot Fox: Re: ]] XL-mania [[ Message Box

segunda-feira, 24 de agosto de 2009

Re: ]] XL-mania [[ Message Box

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 <aliefyanisa73@gmail.com>
>
> 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.

__._,_.___

Messages in this topic (3) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat menjalankan ibadah puasa...                               |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other