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

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

درس جديد من دروس الاكسل

طريقة احترافية للبحث عن البيانات لعمل Excel data analysis مثل جوجل Google Search وبحث يوتيوب You Tube Search

احيانا نريد ان نستخدم البحث عن البيانات لعمل Excel data analysis لتقرير معين Excel data reporting او الاطلاع على نتائج بحث معينة ويمكننا عمل ذلك من خلال بعض Excel formulas and functions ولكن قد يكون هناك بعض القصور فى عمل المعادلات والصيغ المختلفة ولكن اليوم من خلال كود Excel macros and VBA نستطيع عمل ذلك بكل سهولة

فى درس اليوم سنقوم بعمل محرك بحث على اليوزرفورم مثل Google Search او You Tube Search f بطريقة سهلة وبسيطة جدا

فى البداية سنقوم بالدخول الى محر الاكواد من نافذة المطور Devloper Tab ونفتح محرر الاكواد Visual basic

1- ونقوم ادراج UserForm

2-ادارج اداة Textbox

3- ادراج اداة ListBox

4- نضغط على التكست بوكس لفتح حدث TextBox1_Change

5- ونكتب فية الكود الثالى

Option Explicit

Dim rng As Range

Dim ro As Long

Dim cln, lst As Integer

Me.ListBox1.Clear

Set rng = Sheet2.Range("a2").CurrentRegion

Me.ListBox1.AddItem

For lst = 1 To rng.Columns.Count

Me.ListBox1.List(0, lst - 1) = Sheet2.Cells(1, lst)

Next lst

For ro = 2 To rng.Rows.Count

If InStr(UCase(Sheet2.Cells(ro, "a")) & Sheet2.Cells(ro, "b"), UCase(Me.TextBox1)) > 0 And Me.TextBox1 <> "" Then

Me.ListBox1.AddItem

For cln = 1 To rng.Columns.Count

Me.ListBox1.List(Me.ListBox1.ListCount - 1, cln - 1) = Sheet2.Cells(ro, cln)

Next cln

End If

Next ro

Me.ListBox1.Height = Me.ListBox1.ListCount * 12

وبهذا نكون قد انشانا محرك بحث جميل جدا مثل Google Search للبحث عن البيانات بطريقة سهلة جدا وجميلة

انتظرونا فى الدروس القادمة

1. Excel data management

2. Excel data analysis

3. Excel data visualization

4. Excel formulas and functions

5. Excel charts and graphs

6. Excel pivot tables

7. Data cleaning in Excel

8. Data sorting and filtering in Excel

9. Excel macros and VBA

10. Excel add-ins for data analysis

11. Excel data modeling

12. Excel data mining

13. Excel data import and export

14. Excel data reporting

15. Excel dashboards.

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