Messages In This Digest (2 Messages)

1a.: Re: kode macro untuk batasa panjang karakter From: Haps

2a.: Re: Membuat menu ganti password From: STDEV(i)

Messages

1a.: Re: kode macro untuk batasa panjang karakter

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap

Thu Oct 20, 2011 6:44 am (PDT)

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

di diedit sedikit * menjadi:*

Private Sub TextBox1_LostFocus()
If Len(TextBox1.Value) < 6 Then
MsgBox "panjang data kurang dari 6 karakter", _
vbExclamation, "Tak kasih tauk ya.."
* TextBox1 = ""*
End If
End Sub

tricky, tricky, tricky

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

> **
> 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
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

2a.: Re: Membuat menu ganti password

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Thu Oct 20, 2011 6:44 am (PDT)

sebagai alternatip lain; *validasi* mengenai "sudah terisi/belum" - nya 4
textbox;
kita dapat mengatur perilaku si Tombol / CommandButton (yg akan dipakai
untuk menjalankan proses)

si Tombol akan dibuat DISABLED (ndak bisa digunakan) jika 4 textboxes yg ada
belum terisi semua, Jika semua telah terisi, barulah si Tombol di set =
ENABLED

Artinya: YuSer baru akan dapat melanjutkan proses (=mengklik si Tombol)
jika
sudah mengisi semua textbox..

[image: validati via button pemroses.PNG]

berhubung si tombol dan para textboxes itu ada di sheet1, maka prosedur
events
ditulis di module sheet1 juga.

Private Sub txtNama_Change()
UrusanButton
End Sub

Private Sub txtPassBaru_Change()
UrusanButton
End Sub

Private Sub txtPassBaru2_Change()
UrusanButton
End Sub

Private Sub txtPassLama_Change()
UrusanButton
End Sub

*Private Sub UrusanButton()*
Dim IsAllBoxFill As Boolean
* IsAllBoxFill = _*
* (txtNama <> "") And (txtPassLama <> "") And _*
* (txtPassBaru <> "") And (txtPassBaru2 <> "")*

If IsAllBoxFill Then
* ButtonGantipass.Enabled = True*
Else
* ButtonGantipass.Enabled = False*
End If
*End Sub*

'-------
lupa kiboard-short-cut di excel???
daftarnya ada di sini:. http://www.box.net/shared/h0k1ds7gg3frypr67t1h

2011/10/20 STDEV(i) <setiyowati.devi@gmail.com>

> Asumsi-asumsi
> Tabel dianggap ditulis mulai di A1 di sheet2)
> pada saat tombok di klik, semua textbox SUDAH terisi
> (dimakronya belum ada validasi mengenai isi/kosong nya para textbod ini)
>
> Sub GantiPass_Ya_GantiPass_tapi_jangan_tergesa_gesa()
> ' hapsari & siti Vi / 20 oct 2011
> ' dituis berdua karena belum selesai sudah kena ganti shift
> End Sub
>
> mudah-mudahan tidak terlalu banyak yg salah....
>
>
> 2011/10/19 iskandar wagimin harjo prawiro <nomor_pribadi@yahoo.co.id>
> >
> > Saya tengah membuat aplikasi yang digunakan oleh beberapa user. Setiap
> user diharuskan untuk login dengan memasukan username dan password. Untuk
> menunjang aplikasi agar lebih user friendly maka saya ingin menambahkan menu
> ganti password, namun saya terkendala dalam membuat menu tersebut. Saya
> mencoba dengan menggunakan cara find kemudian di offset baru diganti
> passwornnya, namun script saya masih belum benar maklum masih belajar.
> >
> > Private Sub gantipass_Click()
> > Dim seleksicari As Range
> > Dim cari As String
> > cari = Sheets("Sheet1").nama.Text
> > Set seleksicari = wspass.Range("A2:A65536")
> > seleksicari.Find(What:=cari, After:=ActiveCell, LookIn:=xlValues, _
> > LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> > MatchCase:=False, SearchFormat:=False).Activate
> > 'sampai bagian ini belum berhasil, jd penulisan scriptnya belum
> dilanjutkan...
> > End Sub
> >
> > Mohon bantuan para suhu untuk memberikan pencerahan bagaimana membuat
> menu ganti password tersebut.
> >
> > Terima Kasih.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

Create New Topic | Visit Your Group on the Web

Messages

+-:: 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.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

EXCEL FEED

Jumat, 21 Oktober 2011

]] XL-mania [[ Digest Number 2278

Messages In This Digest (2 Messages)

Messages

Re: kode macro untuk batasa panjang karakter

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap

Thu Oct 20, 2011 6:44 am (PDT)

Re: Membuat menu ganti password

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Thu Oct 20, 2011 6:44 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me