Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 24 de agosto de 2009

Re: ]] XL-mania [[ Message Box

 

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

__._,_.___
+-:: 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              |
+-------------------------------------------------------------------+
Recent Activity
Visit Your Group
Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___

Nenhum comentário:

Arquivo do blog