kalau pakai textbox kita lebih gampang mempermainkan validasinya
jadi setiap ada cell di kolom C di select akan muncul userform berisi textbox
---module userform1---
Private Sub TxtPhoNr_Change()
Dim teks As String
teks = TxtPhoNr.Text
If Len(teks) > 0 Then
If Not (Asc(Right(teks, 1)) >= 48 And _
Asc(Right(teks, 1)) <= 57) Then
teks = Left(teks, (Len(teks) - 1))
End If
End If
If Len(teks) = 2 Then
If Left(teks, 2) <> "62" Then teks = ""
End If
TxtPhoNr.Text = teks
End Sub
Private Sub CommandButton1_Click()
Application.EnableEvents = False
If Len(TxtPhoNr) > 0 Then
If WorksheetFunction.CountIf(Range("C:C"), TxtPhoNr) > 0 Then
If ActiveCell = "" Then _
MsgBox "Dobellll mas, batalkan saja", _
vbCritical, "Input NomborTelpon"
Else
ActiveCell = TxtPhoNr
End If
TxtPhoNr = ""
End If
Unload Me
Application.EnableEvents = True
End Sub
Private Sub UserForm_Activate()
TxtPhoNr = ActiveCell.Text
If ActiveCell <> "" Then ActiveCell = ""
End Sub
---module sheet1 (yg kolom C nya mau dibegitukan..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
If Target.Cells.Count = 1 Then
If Target.Row > 1 Then
If Len(Target.Cells(0, 1)) = 0 Then
Target.End(xlUp).Offset(1, 0).Activate
End If
UserForm1.Show
End If
End If
End If
End Sub
userform ini agak ngeyelan, yaitu tidak mau mengisi cell bila cell di atasnya masih kosong....
Rekans...
ceritanya lanjut latihan bikin "percepatan pekerjaan" dengan macro excel
kali ini, nyoba bikin validasi kolom tertentu dengan menggunakan macro. Ceritanya, untuk kolom C, data no telpon yang di input harus dengan awalan 62. Kondisi yang sudah dapat diakalin adalah :
1. Data yang di input pada kolom C harus diawali dengan 62, otherwise, muncul Message yang mengingatkan agar data diisi dengan awalan 62
2. Data tidak boleh double input. Apabila data sudah pernah di input sebelumnya, muncul Message bahwa data double, sudah pernah di input
pada saat proses Save dilakukan, Excel akan cek ulang apakah data yang di input sudah valid. Sementara baru untuk check data yang double, apabila ditemukan, keluar dari proses checking, data yang double di highlight untuk direvisi
yang di inginkan sebenarnya masih ada beberapa :
1. Data yang di input pada kolom C hanya boleh angka 0-9, lainnya dilarang masuk
2. Apabila pada saat checking kolom C ditemukan ada karakter selain angka, langsung di sentil keluar alias di delete
3. Apabila ada data yang kosong, no HP belum di input, keluar dari proses, cell di highlight, suruh diisi
Plus yang bikin penasaran, pada saat file akan di close (tanda silang di kanan atas di click), pada saat proses checking saving, apabila masih ditemukan data yang tidak valid, katakanlah masih double, maka file tidak jadi di tutup, karena data harus dibenerin dulu
please help ya, pusing juga nih mikirin bahasa gaib ala Excel gini, makanya salut sama rekan2 yang bikin macronya bisa canggih-canggih gitu
salam
-priel-
| woooohoooo... tembus 16,000 members! nggg... gimana kalo tembus |
| 20,000 members kita kopi darat di bunderan HI? :D :D :D |
| 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 |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário