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

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


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


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





كيفية البحث من خلال الكومبو بوكس واظهار النتائج فى الليست بوكس

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



20-10-2019 11:20 مساء
محمدعبدالسلام
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
قوة السمعة : 120
الاعجاب : 0
 offline 

السلام عليكم ورحمة الله وبركاته



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


  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  فاتورة.zip   تحميل zip مرات التحميل :(10)
الحجم :(266.191) KB





21-10-2019 11:52 صباحا
مشاهدة مشاركة منفردة [1]
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 110
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
قوة السمعة : 393
الاعجاب : 7
 offline 
look/images/icons/i1.gif كيفية البحث من خلال الكومبو بوكس واظهار النتائج فى الليست بوكس
ضع الكود في الكومبوبوكس
اختر الفاتورة واضغط زر Enter ويمكنك تغيير الى خاصية اخرى
Private Sub ComboBox1_AfterUpdate()
Dim ws As Worksheet: Set ws = Sheets("sheet1")
Dim b
ListBox1.Clear
Me.ListBox1.ColumnCount = 1
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
For b = 4 To lr
If ComboBox1.Text = ws.Cells(b, 1) Then
Me.ListBox1.AddItem ws.Cells(b, 1).Value
End If
Next b
End Sub

وهذا الجزء بين السطرين في حدث الفورم
Private Sub UserForm_Initialize()
Dim ws As Worksheet: Set ws = Sheets("sheet1")
Dim b
Me.ListBox1.ColumnCount = 1
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
For b = 4 To lr
Me.ListBox1.AddItem ws.Cells(b, 1).Value
'============================
ComboBox1.AddItem ws.Range("a" & b)
'==========================
Next b
End Sub

 




21-10-2019 12:13 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif كيفية البحث من خلال الكومبو بوكس واظهار النتائج فى الليست بوكس
بارك الله فيك أخي العزيز حسين
يرجى مراعاة وضع الأكواد بين أقواس الكود




21-10-2019 01:20 مساء
مشاهدة مشاركة منفردة [3]
محمدعبدالسلام
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
قوة السمعة : 120
الاعجاب : 0
 offline 
look/images/icons/i1.gif كيفية البحث من خلال الكومبو بوكس واظهار النتائج فى الليست بوكس
أخي حسين مامون جزاك الله خيرا






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث داخل القوائم المنسدلة Validation Lists YasserKhalil
55 5535 YasserKhalil
كيفية البحث في الشيتات الموجودة داخل ملف الاكسل بدلالة عدة شروط مع كتابة اسم الشيت في خانة العميل alhady
1 762 alhady
سؤال في البحث عن البيانات khaled alborene
6 253 khaled alborene
فورم تسجيل البيانات والبحث عنها مع الصور مجدى يونس
2 350 مجدى يونس
البحث في مجلد nyfmpha
1 244 nyfmpha

الكلمات الدلالية
كيفية ، البحث ، خلال ، الكومبو ، بوكس ، واظهار ، النتائج ، الليست ، بوكس ،


 







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

الساعة الآن 02:06 مساء

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