بحث عن إسم

[waledms]

السلام عليكم ورحمة الله وبركاته

المرفق سجل به أسماء طلاب المدرسة والمطلوب عمل شيئ أستخدمه للبحث عن أى إسم أريده بحيث يظهر لى مكان وجود الإسم فى السجل ولو أمكن يتم تلوين الإسم حتى يظهر بوضوح  

 جزاكم الله خيرا

سجل المدرسة.xlsm

[Ali Mohamed Ali]

وعليكم السلام

تفضل لك ما طلبت

 

سجل المدرسة.xlsm

[رعد داود]

عمل  مميز  اخ  علي

 

[waledms]

جميل جداً ..... جزاك الله خيراً .... هل لى فى شرح مبسط عن كيفية عمل التكست بوكس .... حتى أستطيع تطبيقها فى أعمال اخرى .....                                                                 جزاك الله خيراً

[Ali Mohamed Ali]

تفضل-يمكنك ملاحظة الصورتين لكيفية عمل التكست بوكس

ثم دبل كليك على شكل التكست بوكس ثم وضع الكود هذا به

Private Sub TextBox1_Change()
Dim LastRow As Long
LastRow = Range("B1000").End(xlUp).Row
If ActiveSheet.TextBox1.Text <> "" Then
Range("$A$2:$C$" & LastRow).AutoFilter field:=2, Criteria1:= _
"=" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr
Else
Range("A2:C2").AutoFilter
Range("A2:C2").AutoFilter
End If
End Sub

 

[waledms]

 جزاك الله خيراً ....