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

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


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



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





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

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



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

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



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


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







21-10-2019 11:52 صباحا
مشاهدة مشاركة منفردة [1]
حسين مامون
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 81
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 5
قوة السمعة : 183
الاعجاب : 69
 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
المشاركات : 8156
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23779
الاعجاب : 2459
 offline 
look/images/icons/i1.gif كيفية البحث من خلال الكومبو بوكس واظهار النتائج فى الليست بوكس
بارك الله فيك أخي العزيز حسين
يرجى مراعاة وضع الأكواد بين أقواس الكود

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




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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ليست بوكس تعديل طريقة البحث Fadel
0 6 Fadel
طلب مساعدة بالبحث وادراج قيمة azzeddine
9 59 YasserKhalil
البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs YasserKhalil
5 83 YasserKhalil
فورم البحث بثلاث طرق وفى عدد من العواميد مجدى يونس
2 54 مجدى يونس
فورم جاهز لاضافة البيانات والبحث بثلاث طرق مجدى يونس
2 82 مجدى يونس

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


 







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



الساعة الآن 06:03 صباحا

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