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

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


اعلان هنا
صقور الاكسيل


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





ليست بوكس بأكثر من 10 أعمدة

السلام عليكم ورحمة الله وبركاته طلب الكثير من الاعضاء هذا الموضوع وهو كيفية عرض الليست بوكس بأكثر من 10 اعمدة وضعت لكم ..



20-09-2017 08:13 مساء
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 offline 
السلام عليكم ورحمة الله وبركاته

طلب الكثير من الاعضاء هذا الموضوع وهو كيفية عرض الليست بوكس بأكثر من 10 اعمدة
وضعت لكم بعض طرق لحل هذه المشكلة
NDM5NjE4MQ7171213131322
اليكم المرفقات

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

اعداد / ياسر العربي
تحياتي
142



 
 
  ليست بوكس باكثر من 10 اعمدة.rar   تحميل rar مرات التحميل :(266)
الحجم :(19.419) KB
  بحث سريع ليست بوكس.rar   تحميل rar مرات التحميل :(253)
الحجم :(120.412) KB




توقيع :Yasser Elaraby
663013020


20-09-2017 09:47 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
بارك الله فيك أخي الغالي ياسر العربي ومشكور على هذا الموضوع الهام جداً والذي يطلبه الكثير من المستمعون (مع راديو الأكاديمية في الشرق الأوسط) 113




20-09-2017 09:53 مساء
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
تسلم ياغالي حبيب 58ي
142



توقيع :Yasser Elaraby
663013020


21-09-2017 08:45 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1765
الجنس : ذكر
الدعوات : 19
قوة السمعة : 18570
الاعجاب : 74
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة

تحياتى لك يا عربى على الموضوع الرائع براديو الاكاديمية rolleyes



جزاكم الله خيرا 142






توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


21-09-2017 11:16 صباحا
مشاهدة مشاركة منفردة [4]
Mohsen Hebshawy
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 556
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 1-10-1984
قوة السمعة : 54
الاعجاب : 0
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
هذا ما عهدناه منك يا أ/ياسر متمنيا من الله ان يوفققكم دائما لما يحبه و يرضاه.

لدى سؤال بسيط هو فى حالة تغيير اللغه كيف اتجاوز نقطة البحث بالالتزام بالحروف كابتل او سمال
و شكرا لكم




21-09-2017 02:55 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
السلام عليكم أخي العزيز محسن وأهلاً بك في المنتدى 142

بالنسبة لسؤالك قم بتغيير هذا السطر
If myArray(X, targtN) Like targt & "*" Then


إلى السطر التالي
If InStr(myArray(X, targtN), targt) > 0 Then


تقبل تحياتي




21-09-2017 06:21 مساء
مشاهدة مشاركة منفردة [6]
Mohsen Hebshawy
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 556
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 1-10-1984
قوة السمعة : 54
الاعجاب : 0
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
شكرا جزيلا لك ابو براء بارك الله فيك




21-09-2017 06:23 مساء
مشاهدة مشاركة منفردة [7]
Mohsen Hebshawy
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 556
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 1-10-1984
قوة السمعة : 54
الاعجاب : 0
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
هناك امر اخر بخصوص نتيجة البحث التى تظهر على الليست بوكس انه يعطى صفوف فارغه بمعنى لو استخدمنا خاصية الليست بوكس listbox1.listcount نجد انها غير متوافقه تماما مع عدد نتائج البحث الحقيقيه 

ارجو ايجاد حل و جزاكم الله خيرا




21-09-2017 08:56 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
ربما يفيدك أخونا ياسر العربي في هذه النقطة إن شاء الله




22-09-2017 11:06 صباحا
مشاهدة مشاركة منفردة [9]
Mohsen Hebshawy
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 556
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 1-10-1984
قوة السمعة : 54
الاعجاب : 0
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
فى انتظار رد اخونا ياسر العربى




22-09-2017 03:15 مساء
مشاهدة مشاركة منفردة [10]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
الموضوع بسيط اتفضل الكود دا

Private Sub TextBox1_Change()
    Dim myArray, lr, X, targt, targtN
    Dim SERCH As Worksheet, DATA As Worksheet
    '____________________________________________
    Set DATA = Worksheets("Sheet2")    'اسم شيت قاعدة البيانات
    Set SERCH = Worksheets("Sheet1")    'اسم الشيت الخاص بالبحث
    '____________________________________________
    lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row    'اخر صف به بيانات
    ListBox1.Clear  'مسح نطاق البحث القديم
    targt = TextBox1.Text   'خلية البحث
    targtN = ComboBox1.ListIndex + 1    'دالة لايجاد رقم عمود البحث
    myArray = DATA.Range("A2:O" & lr + 1)    'نطاق البحث
    '____________________________________________
    For X = LBound(myArray) To UBound(myArray)
        If targt = "" Then Exit Sub
        If myArray(X, targtN) Like targt & "*" Then
            n = n + 1
        End If
    Next X
    ReDim y(1 To n, 1 To 15)
    For X = LBound(myArray) To UBound(myArray)
        If targt = "" Then Exit Sub
        If myArray(X, targtN) Like targt & "*" Then
            rw = rw + 1
            For yy = 1 To 15
                y(rw, yy) = myArray(X, yy)
            Next yy
        End If
    Next X
    If rw > 0 Then
        ListBox1.AddItem
        ListBox1.List = y()
        n = 0
    End If
End Sub

142




توقيع :Yasser Elaraby
663013020


22-09-2017 05:15 مساء
مشاهدة مشاركة منفردة [11]
Mohsen Hebshawy
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 556
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 1-10-1984
قوة السمعة : 54
الاعجاب : 0
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
طيب معلش يا عم ياسر هتعبك شوية 
انا عندى نطاق من البيانات و عاوز املئ الليست بوكس بالبيانات بس باستخدام المصفوفات مش بالطرق العاديه




22-09-2017 06:46 مساء
مشاهدة مشاركة منفردة [12]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
الكلام كدا عايم
عايز ملف مبسط وفيه الليست والبيانات وتوضح المطلوب
 



توقيع :Yasser Elaraby
663013020




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
زيادة أعمدة على الليست بوك teguera
2 586 YasserKhalil
مشلكة عدم ظهور أسماء رأس الأعمدة في قائمة الليست بوكس. أيضاً مشكلة تبقى احدى شاشات مفعلة ولا تختفي alnahdi523
0 571 alnahdi523

الكلمات الدلالية
ليست ، بوكس ، بأكثر ، أعمدة ،


 







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

الساعة الآن 01:29 صباحا

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