Re: ]] XL-mania [[ kode macro untuk batasa panjang karakter

 

Mungkin begini....

dalam contoh ini di anggap anda mengaplikasikan object TextBox 

yg dibuat dari Active-X Control ditempelkan di sheet (bukan di userForm)

Kita buat dua prosedur event (event Change dan event LostFocus)

Private Sub TextBox1_Change()

   If Len(TextBox1.Value) > 6 Then

      TextBox1.Value = Left(TextBox1.Value, 6)

   End If

End Sub

Private Sub TextBox1_LostFocus()

   If Len(TextBox1.Value) < 6 Then

      MsgBox "panjang data kurang dari 6 karakter", _

             vbExclamation, "Tak kasih tauk ya.."

   End If

End Sub

2011/10/11 Nana Suwargana <nanacasef@yahoo.co.id>

Dear member xl-mania n suhu2 xl

saat ini saya sedang belajar ngotak-ngatik macro setelah sekian lama berkenalan dengan excel

saya ingin memberi batasan inputan pada text box di form yang saya buat

batasannya adalah pada panjang karakter

misalkan untuk text box kode, panjang karakternya harus sama dengan 6 karakter, kalau kurng atau lebih maka akan keluar msgbox

atau text box nama panjang karakternya tidak boleh legih dari 20

kode apa yang harus saya gunakan?

terimakasih sebelumnya

saya benar2 baru berhubungan dengan macro, jadi kalo ada istilah yg salah mohon diluruskan, n mohon maklum kalo nanya mulu

wasalam

Nana Suwargana

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 66

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance.        |
+-------------------------------------------------------------------+
| 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

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___