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....
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 xlsaat ini saya sedang belajar ngotak-ngatik macro setelah sekian lama berkenalan dengan excelsaya ingin memberi batasan inputan pada text box di form yang saya buatbatasannya adalah pada panjang karaktermisalkan untuk text box kode, panjang karakternya harus sama dengan 6 karakter, kalau kurng atau lebih maka akan keluar msgboxatau text box nama panjang karakternya tidak boleh legih dari 20kode apa yang harus saya gunakan?terimakasih sebelumnyasaya benar2 baru berhubungan dengan macro, jadi kalo ada istilah yg salah mohon diluruskan, n mohon maklum kalo nanya muluwasalamNana Suwargana
__._,_.___
+-:: 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 |
+-------------------------------------------------------------------+
| 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
.
__,_._,___
Nenhum comentário:
Postar um comentário