تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع ومدونة عالم الاوفيس

درس جديد وشرح جديد من شروحات 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

وبهذا نكون قد انتهينا من الكود

لاتبخل علينا بمشاركة الدرس على وسائل التواصل الاجتماعى