كود بحث VBA

Mohamedsherif · يونيو 25, 2020

السلام عليكم

لو سمحت كنت عايز كود للبحث بس بطريقة معينة اولا اختيار نوع البحث من ComboBox1 ثم ادخال جزء من الاسم او ادخال تاريخ الميلاد او الرقم القومي في الTextBox1 ثم الضغط علي Commandbutton1 لبدء عملية البحث في ListBox1

شكرا ............... لقد تم اضافة البيانات بالملف

project.xlsm

**سليم حاصبيا** · يونيو 25, 2020

كيف لي أن ابحث في جدول فارغ تماماً من البيانات

حتى رؤوس الأعمدة غير موحودة

**الرائد77** · يونيو 26, 2020

تفضل

Private Sub CommandButton6_Click()
Select Case ComboBox1.Value
Case "بحث في الاسماء"

ListBox1.Clear

    For i = 1 To 12
            Controls("textbox" & i + 1).Value = ""
            On Error Resume Next
    Next i

    If TextBox1 = "" Then Exit Sub
    Sheets("Sheet1").Activate

    ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
     j = 0
     
     
For Each C In Range("a2:a" & ss)
    If C Like TextBox1.Value & "*" Then
        ListBox1.AddItem
        ListBox1.List(j, 0) = Cells(C.Row, 1).Value
        ListBox1.List(j, 1) = Cells(C.Row, 2).Value
     ListBox1.List(j, 2) = Cells(C.Row, 3).Value

        j = j + 1
    End If
Next C
Case "بحث في الرقم القومي"
ListBox1.Clear

    For i = 1 To 12
            Controls("textbox" & i + 1).Value = ""
            On Error Resume Next
    Next i

    If TextBox1 = "" Then Exit Sub
    Sheets("Sheet1").Activate

    ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
     j = 0
     
     
For Each C In Range("c2:c" & ss)
    If C Like TextBox1.Value & "*" Then
        ListBox1.AddItem
        ListBox1.List(j, 0) = Cells(C.Row, 1).Value
        ListBox1.List(j, 1) = Cells(C.Row, 3).Value
        j = j + 1
    End If
Next C

Case "بحث في تاريخ الميلاد"
ListBox1.Clear

    For i = 1 To 12
            Controls("textbox" & i + 1).Value = ""
            On Error Resume Next
    Next i

    If TextBox1 = "" Then Exit Sub
    Sheets("Sheet1").Activate

    ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
     j = 0
     
     
For Each C In Range("b2:b" & ss)
    If C Like TextBox1.Value & "*" Then
        ListBox1.AddItem
        ListBox1.List(j, 0) = Cells(C.Row, 1).Value
        ListBox1.List(j, 1) = Cells(C.Row, 2).Value
        j = j + 1
    End If
Next C
End Select
End Sub

1-

image.png.55aa4f84f2d103434a8cf3fe8051237f.png 2-