08-10-2017, 10:02 AM
|
|
عضو فعال
|
|
تاريخ التسجيل: Jan 2010
المشاركات: 290
معدل تقييم المستوى: 15
|
|
اليكم الدرس الثالث
كيفية عمل زر بحث مع ادخال الاكواد
اكواد زر بحث الكود:Private Sub TextBox12_Change()
Set sh12 = Sheets("بيانات")
LR = sh12.[a2000].End(xlUp).Row
For Each cl In sh12.Range("a5:a100" & LR)
If (Val(Me.TextBox12)) = cl Then
Me.TextBox1 = cl.Offset(0, 0)
Me.TextBox2 = cl.Offset(0, 1)
Me.TextBox3 = cl.Offset(0, 2)
Me.TextBox4 = cl.Offset(0, 3)
Me.TextBox5 = cl.Offset(0, 4)
Me.TextBox6 = cl.Offset(0, 5)
Me.TextBox7 = cl.Offset(0, 6)
Me.TextBox8 = cl.Offset(0, 7)
Me.TextBox9 = cl.Offset(0,
Me.TextBox10 = cl.Offset(0, 9)
Me.TextBox11 = cl.Offset(0, 10)
End If
Next
End Sub
كود زر اغلاق الفورم الكود:Private Sub CommandButton4_Click()
End
End Sub
|