بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
كود جديد من مكتبة اكواد الاكسل
الاكسل VBA | كيفية البحث من خلال اليوزرفورم وتلوين نتائج البحث
تعنبر عملية البحث عن البيانات فى شيت الاكسيل من العمليات المهمة جدا لاحضار داتا معينة وعمل تحليل لهذة الداتا او الاطلاع عليها
ولكن عندما يكون حجم البيانات الموجود فى ورقة العمل كبير جدا فهذا العمل يكون شاق جدا من حيث الوقت والمجهود
ولذلك قررنا فى هذا الدرس ان نعطيكم فورم جميل جدا يقوم بالبحث عن البيانات بطريقة سهلة جدا وبسيطة
الفورم يتكون من تكست بوكس واحد نقوم بادراج قيمة البحث فية وهو سيقوم بالبحث عن البيانات فى شيت الاكسيل واحضار النتائج وايضا اظهارها من خلال تلوينها بلون محدد وليكن اللون الاخضر
الكود المستخدم فى عملية البحث
Private
Sub TextBox1_Change()
Dim
Itemsaerch As String
Dim rng
As Range
Dim
cell As Range
Dim lr
As Long
Sheet1.Cells.Interior.Pattern
= xlNone
Itemsaerch
= Me.TextBox1.Value
lr =
Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
'Set
rng = Sheet1.Range("a2:a" & lr)
Set rng
= Sheet1.UsedRange
For Each cell In rng
If InStr(1, cell.Value, Itemsaerch) > 0
Then
cell.Interior.Color = vbGreen
End If
Next cell
If
Me.TextBox1.Value = "" Then Sheet1.Cells.Interior.Pattern = xlNone
End Sub