logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة Yasser Elaraby نظام ادارة شؤون الموظفين اعداد ياسر العربي اكسيل اسئله واجابات



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




اضافة رد جديد اضافة موضوع جديد

الصفحة 2 من 6 < 1 2 3 4 6 > الأخيرة


20-09-2017 08:13 مساءً
السلام عليكم ورحمة الله وبركاته

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

attachليست بوكس باكثر من 10 اعمدة.rar

attachبحث سريع ليست بوكس.rar

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


أثارت هذه المشاركة إعجاب: YasserKhalil، abouelhassan، مدحت حافظ، hassona229،


توقيع :Yasser Elaraby
663013020

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

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



look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
  20-09-2017 09:53 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1336
رصيد العضو : 6
الجنس :
الدعوات : 13
قوة السمعة : 10104
الاعجاب : 75
موقعي : زيارة موقعي
تسلم ياغالي حبيب 58ي
142



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
  21-09-2017 08:45 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
رصيد العضو : 0
الجنس :
الدعوات : 21
قوة السمعة : 20078
الاعجاب : 18
موقعي : زيارة موقعي

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


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




توقيع :الصقر

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


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

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

أثارت هذه المشاركة إعجاب: مدحت حافظ،



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

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


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


تقبل تحياتي

أثارت هذه المشاركة إعجاب: مدحت حافظ، hassona229،



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

أثارت هذه المشاركة إعجاب: مدحت حافظ،



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

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




look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
  21-09-2017 08:56 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36792
الاعجاب : 201
ربما يفيدك أخونا ياسر العربي في هذه النقطة إن شاء الله




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




look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
  22-09-2017 03:15 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1336
رصيد العضو : 6
الجنس :
الدعوات : 13
قوة السمعة : 10104
الاعجاب : 75
موقعي : زيارة موقعي
الموضوع بسيط اتفضل الكود دا
CODE

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

أثارت هذه المشاركة إعجاب: مدحت حافظ، ghazid،


توقيع :Yasser Elaraby
663013020

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




look/images/icons/i1.gif ليست بوكس بأكثر من 10 أعمدة
  22-09-2017 06:46 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1336
رصيد العضو : 6
الجنس :
الدعوات : 13
قوة السمعة : 10104
الاعجاب : 75
موقعي : زيارة موقعي
الكلام كدا عايم
عايز ملف مبسط وفيه الليست والبيانات وتوضح المطلوب

أثارت هذه المشاركة إعجاب: مدحت حافظ،


توقيع :Yasser Elaraby
663013020

اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 6 < 1 2 3 4 6 > الأخيرة




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

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









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

الساعة الآن 07:52 PM