بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع ومدونة عالم الاوفيس
درس جديد وشرح جديد من شروحات excel vba وكودج جديد من مكتبة اكواد الاكسل
نتعلم اليوم كيفية البحث عن البيانات من خلال شيت الاكسل وليس من خلال الفورمكيف ذلك
مثال بسيط لدينا قاعدة بيانات لمجموعة من الاصناف ونريد عمل بحث عليها بالكود
ولتكن شاشة البحث كما بالشكل اعلاة
كيف نكتب كود البحث الخاص بنا ندخل على تبويب المطور فيجوال بيسك ونعما ادراج لمدويول جديد
saerch data
فى البداية سوف نعرف متغيرين
المتغير الاول last row
lras long
count as integr
وبحدد قيمة المتغير الاول عندى
lr=sheet("item").cells(rows.count,1).end(xlup).row
احنا كدة حددنا قيمة المتغير last row علشان يجيب لنا اخر صف فية بيانات
وهنحدد قيمة المتغير count
الكود كامل
sub saerch data
dim lras long
dim count as integr
lr=sheet("item").cells(rows.count,1).end(xlup).row
count=0
وبعد
كدة هنعمل حلقة تكرارية for
For x = 2 To
Dim lr As Long
Dim count As
Integer
Dim x
lr =
Sheets("item").Cells(Rows.count, 1).End(xlUp).Row
count = 0
For x = 2 To lr
If
Sheets("item").Cells(x, 1) = Sheet1.Range("b3") Then
Sheet1.Range("a11")
= Sheets("item").Cells(x, 1)
Sheet1.Range("b11")
= Sheets("item").Cells(x, 2)
Sheet1.Range("c11")
= Sheets("item").Cells(x, 3)
count = count +
1
End If
Next x
If count = 0
Then
MsgBox "تنبية", vbOKOnly, "عفوا
هذا الكود غير موجود"
Sheet1.Range("a11:c11").ClearContents
End If
وبهذا نكون قد انتهينا من الكود
لاتبخل علينا بمشاركة الدرس على وسائل التواصل الاجتماعى