البحث بأول حرف

Private Sub TextBox1_Change()

    Dim a       As Variant

    Dim b()     As Variant

    Dim i       As Long

    Dim j       As Long



    ListBox1.Clear

    a = Sheet1.Range("B2:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row).Value

    

    For i = LBound(a, 1) To UBound(a, 1)

        If TextBox1.Value = Left(a(i, 1), Len(TextBox1.Value)) Then

            j = j + 1

            ReDim Preserve b(1 To j)

            b(j) = a(i, 1)

        End If

    Next i

    

    On Error Resume Next

        ListBox1.List = b

    On Error GoTo 0

End Sub

Private Sub CommandButton1_Click()

Unload Me

End Sub

Private Sub ListBox1_Click()

TextBox1.Value = ListBox1.Value

End Sub

Private Sub TextBox1_Change()

    Dim a       As Variant

    Dim b()     As Variant

    Dim i       As Long

    Dim j       As Long



    ListBox1.Clear

    a = Sheet1.Range("B2:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row).Value

    

    For i = LBound(a, 1) To UBound(a, 1)

        If TextBox1.Value = Left(a(i, 1), Len(TextBox1.Value)) Then

            j = j + 1

            ReDim Preserve b(1 To j)

            b(j) = a(i, 1)

        End If

    Next i

    

    On Error Resume Next

        ListBox1.List = b

    On Error GoTo 0

End Sub



Private Sub UserForm_Activate()

TextBox1.SetFocus

End Sub



Private Sub UserForm_Click()



End Sub

'====

Sub Test()

    Dim ws As Worksheet

    Dim r As Variant

    

    Set ws = Sheets("اسم ورقة العمل المطلوب العمل عليها")

    

    'هنا يتم البحث عن قيمة التكست بوكس في العمود الثاني

    r = Application.Match(TextBox1.Value, ws.Columns(2), 0)

    

    'في حالة كانت النتيجة رقمية يعني أنه تم العثور على اسم الشخص المطلوب

    If IsNumeric(r) Then

    

        'في هذه الحالة يتم تحديد الخلية في العمود الثاني في الصف الذي تم العثور عليه

        ws.Cells(r, 2).Select

    End If

End Sub