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

[ناصر سعيد]

الموضوع خاص بالاستاذ زيزو العجوز .. حفظه الله

السلام عليكم ورحمة الله
البحث عن اسم من خلال قائمة طويلة من الاسماء
باستخدام يوزر فورم مكون من تكست بوكس وليست بوكس
اليكم الملف
اتمنى ان يعجبكم

'===========================
'===========================
Option Explicit
'الكود للاستاذ زيزو العجوز
'وتمت الاضافه عليه من قبل الاستاذ ياسر خليل
'الهدف من الكود البحث باول حرف
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 CommandButton1_Click()
    Unload Me
End Sub

Private Sub ListBox1_Click()
    Dim ws      As Worksheet
    Dim r       As Variant

    TextBox1.Value = ListBox1.Value
    Set ws = Sheets("DATA")
    
        'هنا يتم البحث عن قيمة التكست بوكس في العمود الثاني
    r = Application.Match(TextBox1.Value, ws.Columns(2), 0)
    
  'في حالة كانت النتيجة رقمية يعني أنه تم العثور على اسم الشخص المطلوب
    If IsNumeric(r) Then
    
  'في هذه الحالة يتم تحديد الخلية في العمود الثاني في الصف الذي تم العثور عليه
        ws.Cells(r, 2).Select
    End If
End Sub

 

============================

 

بحث باول حرف.rar

[ابن الملك]

بارك الله فيك أخى 

[ناصر سعيد]

10 ساعات مضت, ابن الملك said:

بارك الله فيك أخى 

وبارك فيك ربنا

الموضوع منقول من منتدى

http://excel-egy.com/forum/t67