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

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

دليل شامل : البحث عن البيانات في Excel باستخدام VBA

تعتبر لغة (Visual Basic for Applications (VBA) أداة قوية لتمكينك من التحكم التام في جداول بيانات Excel. من خلال كتابة أكواد VBA، يمكنك أتمتة مهام البحث عن البيانات بشكل فعال، مما يوفر عليك الوقت والجهد.

لماذا استخدام VBA للبحث؟

· سرعة وكفاءة: يمكن لـ VBA تنفيذ عمليات البحث بشكل أسرع بكثير من الطرق اليدوية أو باستخدام الدوال المضمنة في Excel.

· مرونة: يمكنك تخصيص عمليات البحث لتلبية احتياجاتك المحددة، بما في ذلك البحث عن قيم متعددة، أو البحث ضمن نطاقات معينة، أو تطبيق معايير بحث معقدة.

· أتمتة المهام: يمكنك إنشاء إجراءات ماكرو (Macros) لتنفيذ عمليات البحث تلقائيًا، مما يوفر عليك تكرار نفس الخطوات.

طرق البحث باستخدام VBA:

هناك عدة طرق للبحث عن البيانات في Excel باستخدام VBA، من بينها:

1. استخدام الدالات المضمنة في VBA:

o Find: للبحث عن قيمة محددة في نطاق معين.

o Match: للبحث عن موقع قيمة محددة ضمن قائمة.

o Range.Find: للبحث عن قيمة ضمن نطاق محدد مع إمكانية تحديد خيارات البحث مثل التمييز بين الأحرف الكبيرة والصغيرة.

2. استخدام دورات For Each:

o للبحث عن قيمة ضمن مجموعة من الخلايا أو النطاقات.

o مثالية للبحث عن قيم متعددة أو تطبيق شروط بحث معقدة.

3. استخدام مصفوفات (Arrays):

o لتحويل نطاق من الخلايا إلى مصفوفة، ثم البحث عن القيمة المطلوبة داخل المصفوفة.

o يعتبر هذا الأسلوب سريعًا وفعالًا للبحث في كميات كبيرة من البيانات.

كود البحث

Sub transferrr()

Dim i As Long

Dim wssoruce As Worksheet

Dim wsdest As Worksheet

Set wssoruce = Sheet1

Set wsdest = Sheet2

wsdest.Range("a5:e10000").ClearContents

lr = wsdest.Cells(Rows.Count, 1).End(xlUp).Row

lr2 = wssoruce.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr2

If wsdest.Range("a2").Value = wssoruce.Cells(i, 1) Then

wsdest.Cells(lr + 1, 1) = wssoruce.Cells(i, 1)

wsdest.Cells(lr + 1, 2) = wssoruce.Cells(i, 2)

wsdest.Cells(lr + 1, 3) = wssoruce.Cells(i, 3)

wsdest.Cells(lr + 1, 4) = wssoruce.Cells(i, 4)

wsdest.Cells(lr + 1, 5) = wssoruce.Cells(i, 5)

lr = lr + 1

End If

Next i

End Sub

تطوير مهاراتك في VBA:

· تعلم أساسيات VBA: فهم المتغيرات، الدوال، الأوامر الشرطية، الدورات.

· استكشاف خصائص وأساليب الكائنات في Excel: مثل Range, Worksheet, Workbook.

· ممارسة كتابة أكواد VBA: حاول حل مشاكل بحث مختلفة في Excel.

· الاستفادة من المصادر المتاحة: هناك العديد من الكتب والمواقع الإلكترونية التي تقدم دروسًا وشروحات مفصلة حول VBA.

اهم اوامر قائمة RUN في الويندوز

4. نصائح إضافية:

· التعليق على الكود: يساعد ذلك على فهم الكود بسهولة في المستقبل وتسهيل عملية الصيانة.

· تنظيم الكود: استخدم التباعد والتنسيق لجعل الكود أكثر قابلية للقراءة.

· اختبار الكود: تأكد من أن الكود يعمل بشكل صحيح في جميع الحالات.

لتحميل ملف العمل