Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 17 de outubro de 2011

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

 

terimakasih 'mba Devi

maaf mba... saya kurang paham 
dalam contoh ini di anggap anda mengaplikasikan object TextBox 
yg dibuat dari Active-X Control ditempelkan di sheet (bukan di userForm)

saya buat sendiri form nya namanya form_barang, tar hasil inputannya ketika klick tombol "tambah" akan dimasukan ke  worksheet barang.
Nah saya pengennya ketika tekan "tambah", kalo karakternya >6 karakter akan memberi peringatan 
Kalau untuk yang lebih dari 6 karakter saya dah berhasil dengan mengubah properties txt_kode dengan mengubah MaxLength menjadi 6
untuk yang <6 karakter belum berhasil.
saya dah coba prosedur dari mba Devi
Private Sub txt_kode_LostFocus()
   If Len(txt_kode.Value) < 6 Then
      MsgBox "panjang kode kurang dari 6 karakter", _
             vbExclamation, "Jumlah Karakter kode harus 6 karakter"
   End If
End Sub

Saya coba jalankan formnya dengan menekan tombol "tambah" dan karakter yang saya masukan hanya 4 karakter, datanya tetap masuk 
apakah ada yang salah?

terimakasih

Nana Suwargana


Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Minggu, 16 Oktober 2011 21:40
Judul: 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



__._,_.___
Recent Activity:
+-:: 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.

.

__,_._,___

Nenhum comentário:

Arquivo do blog