أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





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

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



27-08-2017 12:53 صباحا
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 138
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 1045
الاعجاب : 286
 offline 

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

 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby، ناصر سعيد، خالد عيسى، بكار للأبد،





27-08-2017 07:21 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif البحث بأول حرف
وعليكم السلام أخي الحبيب زيزو 
بارك الله فيك وجزاك الله خير الجزاء على هذا الموضوع المميز والرائع

لي تعقيب بسيط طالما نويت استخدام المصفوفات فحاول نسيان التعامل مع ورقة العمل .. لاحظت في كودك الرائع أنك قمت بعمل حلقة تكرارية لخلايا العمود الثاني (وهذا يمكن استبداله بتخزين النطاق في مصفوفة والحلقات التكرارية تكون لعناصر المصفوفة وليس الخلايا .. سيكون هذا أسرع بالتأكيد)
أمر آخر قمت بعمل مصفوفة فرعية تحمل قيمة واحدة ثم تعبئة الليست بوكس بهذه القيمة .. وأنا أرى أنه من الأفضل نسيان الليست بوكس إلى أن يتم تعبئة المصفوفة الفرعية (مصفوفة النتائج) ثم في نهاية المطاف توضع النتائج مرة واحدة في الليس بوكس
جرب الكود التالي ..
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

أثارت هذه المشاركة إعجاب: الصقر، زيزو العجوز، ناصر سعيد، arsalanamin،




27-08-2017 09:41 صباحا
مشاهدة مشاركة منفردة [2]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 138
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 1045
الاعجاب : 286
 offline 
look/images/icons/i1.gif البحث بأول حرف
السلام عليكم ورحمة الله
بارك الله فيك اخى ياسر
دائما اقتراحاتك عظيمة
شكرا على المتابعة

أثارت هذه المشاركة إعجاب: YasserKhalil، abdulwahed catran،




27-08-2017 10:12 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif البحث بأول حرف
وعليكم السلام أخي الغالي زيزو العجوز
مشكور على تقبلك الاقتراح . وصدقني كلنا نتعلم من بعضنا البعض فأنا تعلمت الكثير والكثير منك
فجزاك الله خير الجزاء

أثارت هذه المشاركة إعجاب: arsalanamin،




27-08-2017 10:28 صباحا
مشاهدة مشاركة منفردة [4]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 163
الاعجاب : 50
 offline 
look/images/icons/i1.gif البحث بأول حرف
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
'====

هذا هو الكود في صورته النهائيه مع دكج جزئيه استاذ ياسر خليل
ولكن ... انا اكتب الحرف ياتي الاسم .. اريد عند الضغط عليه يوصلني للاسم المطلوب في الصفحه

أثارت هذه المشاركة إعجاب: arsalanamin،


توقيع :ناصر سعيد
جزاكم الله خيرا



27-08-2017 10:50 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif البحث بأول حرف
أخي العزيز ناصر
يمكن الاعتماد على دالة Match بهذا الشكل لمعرفة رقم الصف الذي يوجد به الاسم
هذا مثال للتوضيح .. حاول استخدامه بنفسك في الكود
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

أثارت هذه المشاركة إعجاب: arsalanamin،




27-08-2017 01:02 مساء
مشاهدة مشاركة منفردة [6]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 163
الاعجاب : 50
 offline 
look/images/icons/i1.gif البحث بأول حرف
جزاك الله خيرا استاذ ياسر العربي
هل اضع الكود الاخير في فورمه البحث وفي اي مكان ؟



توقيع :ناصر سعيد
جزاكم الله خيرا



27-08-2017 01:23 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif البحث بأول حرف
لما لاقيت اسم ياسر العربي قلت أشوف مشاركة العربي .. بدور مش لاقي .. يمكن يكون العربي عاملها إخفاء بطاقية الإخفاء smile

أخي العزيز ناصر نعم سيوضع الكود في حدث الفورم وفي ListBox1_Click >> حيث عند النقر على الليست بوكس يتم تحديث قيمة التكست بوكس بقيمة (الاسم)
بعد السطر الأول يمكنك استخدام الأسطر المذكورة في المشاركة السابقة .. أنا وضعت تعليقات لتسهيل وفهم الأسطر وماذا تفعل؟ .. حاول تدرس الأكواد بشكل مكثف لتستفيد منها في أكواد أخرى ... فعالم الأكواد عالم مترابط وربما كود ينفعك في أكواد أخرى وهذا أمر مسلم به

أثارت هذه المشاركة إعجاب: ناصر سعيد،




27-08-2017 02:47 مساء
مشاهدة مشاركة منفردة [8]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 163
الاعجاب : 50
 offline 
look/images/icons/i1.gif البحث بأول حرف
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
لما لاقيت اسم ياسر العربي قلت أشوف مشاركة العربي .. بدور مش لاقي .. يمكن يكون العربي عاملها إخفاء بطاقية الإخفاء smile

معذره .. تمت كتابتها سهوا



توقيع :ناصر سعيد
جزاكم الله خيرا



27-08-2017 02:53 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif البحث بأول حرف
لا أقصد معاتبتك أخي العزيز ناصر
أنا أمازح ياسر العربي لكي يشارك في الموضوع smile





27-08-2017 08:24 مساء
مشاهدة مشاركة منفردة [10]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 163
الاعجاب : 50
 offline 
look/images/icons/i1.gif البحث بأول حرف
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
Sub Test()
    Dim ws As Worksheet
    Dim r As Variant
    
    Set ws = Sheets("sheet1")
    
    'هنا يتم البحث عن قيمة التكست بوكس في العمود الثاني
    r = Application.Match(TextBox1.Value, ws.Columns(2), 0)
    
    'في حالة كانت النتيجة رقمية يعني أنه تم العثور على اسم الشخص المطلوب
    If IsNumeric(r) Then
    
        'في هذه الحالة يتم تحديد الخلية في العمود الثاني في الصف الذي تم العثور عليه
        ws.Cells(r, 2).Select
    End If
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
'====

من فضلك استاذ ياسر شوف ليه لم يشتغل ؟



توقيع :ناصر سعيد
جزاكم الله خيرا



27-08-2017 09:25 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif البحث بأول حرف
تفضل أخي العزيز ناصر
حمل المرفق من أول مشاركة ثم قم بحذف الأكواد الموجودة في الفورم وضع هذه الأكواد مكانها ولعل هذا يفي بالغرض إن شاء الله
أعتذر للأخ زيزو عن التدخل في الموضوع بهذا الشكل (حيث يفضل ألا توجد طلبات فرعية وأن يطرح موضوع مستقل لأي مشكلة أو جزئية)
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





27-08-2017 10:29 مساء
مشاهدة مشاركة منفردة [12]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 163
الاعجاب : 50
 offline 
look/images/icons/i1.gif البحث بأول حرف
اهم اسئله تهم المستخدم العادي هو
اذا كان عمود الاسماء مثلا في العمود E الخليه 5 هي بدايه العمود
ماهو التغيير في الكود ؟
من فضلك



توقيع :ناصر سعيد
جزاكم الله خيرا




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ضبط وتعديل كود البحث فى الكمبوبوكس وكود التعديل هانى على
2 48 هانى على
البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى emad ghazi
14 448 abdoo_fox
إضافة تنسيقات شرطية أو تغييرها أو البحث عنها أو مسحها فى اكسيل عبدالجيد
4 70 YasserKhalil
البحث بمجرد كتابه اول حرف من التكست بوكس ali mohamed ali
19 979 med031
البحث داخل القوائم المنسدلة Validation Lists YasserKhalil
46 2501 YasserKhalil

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 11:48 صباحا

أعلن هنا
أعلن هنا
أعلن هنا