بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
كيفية عمل قاعدة بيانات بالاكسل من الصفر الى الاحتراف
ا همية قواعد البيانات فى الاكسل
تساعد قواعد البيانات في الإكسل في تنظيم وتخزين البيانات بشكل منظم ومنطقي، وتسهل إجراء التحليلات والحسابات وإنشاء التقارير والرسوم البيانية. كما تتيح قواعد البيانات إمكانية البحث عن البيانات بسرعة وكفاءة وتطبيق العديد من التعديلات والتحديثات على البيانات بشكل سهل وسريع.
ما هي أفضل الطرق لتعلم استخدام قواعد البيانات في الإكسل؟
هناك العديد من
الطرق التي يمكن استخدامها لتعلم استخدام قواعد البيانات في الإكسل، ومنها:
فى البداية نقوم بتصميم قاعدة البيانات كما بالشكل التالى
وعمل الازارار الاتية
- زر حفظ Save Button
- زر تعديل Edite Button
- زر حذف Delete Button
- زر بحث Search Button
ثم نقوم بكتابة الاكواد الاتية
كود الاضافة او الحقظ
حفظ البيانات الجديدة من خلال زر الاضافة او الحفظ
Private Sub CommandButton2_Click()
Dim lr As Long
If Me.TextBox1.Value = "" Then
MsgBox "Please Enter Name", vbExclamation
Me.TextBox1.SetFocus
Exit Sub
End If
If Me.TextBox2.Value = "" Then
MsgBox "Please Enter Company", vbExclamation
Me.TextBox2.SetFocus
Exit Sub
End If
'-------------------------
If Me.TextBox3.Value = "" Then
MsgBox "Please Enter Adress", vbExclamation
Me.TextBox3.SetFocus
Exit Sub
End If
lr = Sheet1.[a6000].End(xlUp).Row + 1
Cells(lr, 1) = Me.TextBox1.Value
Cells(lr, 2) = Me.TextBox2.Value
Cells(lr, 3) = Me.TextBox3.Value
Cells(lr, 4) = Me.TextBox4.Value
Cells(lr, 5) = Me.TextBox5.Value
MsgBox "SAVE Done", vbInformation
Me.ListBox1.List = Sheet1.Range("a2:e" &
[a6000].End(xlUp).Row).Value
End Sub
كود التعديل
ويتم فية تعديل البيانات بعد البحث عنها
Private Sub CommandButton3_Click()
Dim lr As Long
Sheet1.Range("a:a").Find(ListBox1.Text).Activate
lr = ActiveCell.Row
Cells(lr, 1) = Me.TextBox1.Text
Cells(lr, 2) = Me.TextBox2.Text
Cells(lr, 3) = Me.TextBox3.Text
Cells(lr, 4) = Me.TextBox4.Text
Cells(lr, 5) = Me.TextBox5.Text
MsgBox "DATA IS UPDATE", vbInformation
Me.ListBox1.ColumnWidths = "72;90;96;65;65"
Me.ListBox1.ColumnCount = 5
ListBox1.List = Sheet1.Range("a2:e" &
[a6000].End(xlUp).Row).Value
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox4 = ""
Me.TextBox3 = ""
Me.TextBox5 = ""
End
Sub
كود الحذف
Private Sub CommandButton4_Click()
Dim del As Long
If Me.ListBox1.ListIndex >= 0 Then
confirm =
MsgBox("Are You Sur Delete Item", vbYesNo)
If confirm =
vbYes Then
Sheet1.Range("a:a").Find(Me.ListBox1.Text).Activate
del =
ActiveCell.Row
Sheet1.Rows(del).Delete
End If
End If
For a = 1
To 5
Me.Controls("Textbox" & a) = ""
Next a
Me.ListBox1.ColumnWidths = "72;90;96;65;65"
Me.ListBox1.ColumnCount = 5
ListBox1.List = Sheet1.Range("a2:e" &
[a6000].End(xlUp).Row).Value
End Sub
Private Sub ListBox1_Click()
Dim i As Long, a As Byte
For a = 0 To 4
Controls("textbox" & a + 1) =
ListBox1.Column(a)
Next
Sheet1.Range("a:a").Find(Me.ListBox1.Text).Activate
i = ActiveCell.Row
Sheet1.Range("a" & i &
":e" & i).Select
End Sub
كود االبحث
وهو من اهم الاكواد فى الفورم
Dim sat, s As Long
Dim deg1, deg2 As String
If Me.TextBox6.Value = "" Then
MsgBox "Please Enter Seach Value",
vbInformation
Me.TextBox6.SetFocus
Exit Sub
End If
If Me.ComboBox1.Value = "" Then
MsgBox "Please Enter Seach Value",
vbInformation
Me.ComboBox1.SetFocus
Exit Sub
End If
With Me.ListBox1
.Clear
.ColumnCount = 5
.ColumnWidths = "92;100;100;65;65"
End With
deg2 = Me.TextBox6.Value
Select Case Me.ComboBox1.Value
Case "name"
For
sat = 2 To Cells(5000, "a").End(xlUp).Row
Set deg1 =
Cells(sat, "a")
If
UCase(deg1) Like UCase(deg2) & "*" Then
ListBox1.AddItem
Me.ListBox1.List(s, 0) = Cells(sat, "a")
Me.ListBox1.List(s, 1) = Cells(sat, "b")
Me.ListBox1.List(s, 2) = Cells(sat,
"c")
Me.ListBox1.List(s, 3) = Cells(sat, "d")
Me.ListBox1.List(s, 4) = Cells(sat, "c")
s = s + 1
End If
Next
End Select
End Sub
كود حث التهيئة للفورم
وفية يتم وضع البيانات فى الليست بوكس كاملة
Private Sub UserForm_Initialize()
Me.ListBox1.ColumnWidths = "72;90;96;65;65"
Me.ListBox1.ColumnCount = 5
ListBox1.List = Sheet1.Range("a2:e" &
[a6000].End(xlUp).Row).Value
Me.ComboBox1.AddItem "name"
End Sub