بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد من دروس الاكسل
طريقة احترافية للبحث عن البيانات لعمل 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.