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



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





ادراج من ليستبوكس متعدد التحديد multiselect

السلام عليكم انا استخدم هذا الكود لادراج عدة اختيارات من ليستبوكس الى خلية [code]Rm9yIGxuZ0l0ZW0gPSAwIFRvIHN ..



13-03-2018 10:54 مساء
nyfmpha
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 8
 offline 

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












For lngItem = 0 To store_A_form.ListBox3.ListCount - 1
        If store_A_form.ListBox3.Selected(lngItem) Then
           
                sh.Range("G" & lr).Value = sh.Range("G" & lr).Value & Chr(10) & store_A_form.ListBox3.List(lngItem, 0)
                
                   End If
    Next lngItem

 

لكن يبقى السطر الاول من الخلية المدرج فيها فارغ وانا اريد تجاوز هذا الفراغ
مالعمل؟






14-03-2018 06:48 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4310
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 12304
الاعجاب : 4482
 offline 
look/images/icons/i1.gif ادراج من ليستبوكس متعدد التحديد multiselect
وعليكم السلام أخي الكريم
يرجى في طرح الموضوعات إرفاق ملف مبسط لتوضيح المشكلة .. ولتوفير الوقت والجهد
جرب تعديل السطر الموجود إلى السطر التالي
sh.Range("G" & lr).Value = IIf(sh.Range("G" & lr).Value = "", "", sh.Range("G" & lr).Value) & Chr(10) & store_A_form.ListBox3.List(lngItem, 0)





14-03-2018 09:53 صباحا
مشاهدة مشاركة منفردة [2]
nyfmpha
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 8
 offline 
look/images/icons/i1.gif ادراج من ليستبوكس متعدد التحديد multiselect
شكرا لك على الأستجابة دون وجود ملف
لم ينجح الأمر بل أعطى نفس النتيجة
ملف مرفق

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  NNN.rar   تحميل rar مرات التحميل :(11)
الحجم :(21.805) KB






14-03-2018 10:34 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1364
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 343
قوة السمعة : 10230
الاعجاب : 2562
 offline 
look/images/icons/i1.gif ادراج من ليستبوكس متعدد التحديد multiselect

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

 
 
  NNN.zip   تحميل zip مرات التحميل :(1)
الحجم :(18.56) KB






14-03-2018 06:25 مساء
مشاهدة مشاركة منفردة [4]
nyfmpha
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 8
 offline 
look/images/icons/i1.gif ادراج من ليستبوكس متعدد التحديد multiselect
الشكر لك أخي الكريم على المحاولة
فعلا تم تغيير الكود( اسم الليست بوكس ) بما يتوافق الملف المرفق
الكود الذي أوجدته نقل السطر الفارغ من أول سطر بالخلية لآخر سطر
شكرا للمحاولة





14-03-2018 08:07 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4310
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 12304
الاعجاب : 4482
 offline 
look/images/icons/i1.gif ادراج من ليستبوكس متعدد التحديد multiselect
جرب التالي (يفضل فيما بعد أن يرفق ملف توفيراً لوقت وجهد الأعضاء)
Private Sub CommandButton1_Click()
    For lngItem = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(lngItem) Then
            ActiveCell.Value = ActiveCell & IIf(ActiveCell = "", "", Chr(10)) & ListBox1.List(lngItem, 0)
        End If
    Next lngItem
End Sub

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




15-03-2018 09:08 صباحا
مشاهدة مشاركة منفردة [6]
nyfmpha
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 8
 offline 
look/images/icons/i1.gif ادراج من ليستبوكس متعدد التحديد multiselect
الأستاذ ياسر
1- شكرا جزيلا لأستجابتك
2-الكود تمام التمام
3-آسف بشأن عدم أرفاق ملف و آسف للوقت و الجهد الضائع و سأحرص في المرات القادمة على أرسال ملف
 

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




15-03-2018 08:06 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4310
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 12304
الاعجاب : 4482
 offline 
look/images/icons/i1.gif ادراج من ليستبوكس متعدد التحديد multiselect
بارك الله فيك أخي الكريم ، والحمد لله أن تم المطلوب على خير

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

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






الكلمات الدلالية
ادراج ، ليستبوكس ، متعدد ، التحديد ، multiselect ،


 







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



الساعة الآن 07:03 مساء

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