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



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





ترحيل من الشيت إلى Listbox بناء على شرط

إخوانى الكرام السلام عليكم: بعد إذن الخبراء مساعدتى إن أمكن المطلوب : 1 ـ ترحيل جميع الأسماء الموجودة من B6 إلى B35 ..



20-04-2018 01:41 صباحا
Haneen Amr
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3478
المشاركات : 13
الجنس : أنثى
تاريخ الميلاد : 12-9-1976
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 21
الاعجاب : 4
 offline 

إخوانى الكرام
السلام عليكم:
بعد إذن الخبراء مساعدتى إن أمكن
المطلوب :
1 ـ  ترحيل جميع الأسماء الموجودة من  B6 إلى   B35 مثلا إلى الليست بوكس  الموجود في اليوزرفورم
بناء على شرط وهو :
أن يكون الاسم ( غير مقيد ) في العمود C كما موضح باللون الأصفر ــ مع العلم من الممكن أن يكون عمود الأسماء أكثر من ذلك
ولكن للمثال وضعت 30 اسم فقط
2 ـ  ثم بعد الترحيل من الشيت لليست بوكس
عند اختيار أحد الأسماء من الليست بوكس يتم ترحيله إلى Label الموجود فى الفورم
ولكم جزيل الشكر
ملف العمل

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ترحيل من الشيت إلى الليست بوكس بناء على شرط.rar   تحميل rar مرات التحميل :(5)
الحجم :(12.669) KB







20-04-2018 10:48 صباحا
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 110
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 799
الاعجاب : 208
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
السلام عليكم ورحمة الله
ضع الكودين الآتيين فى حدث الفورم
Private Sub UserForm_Initialize()
Const NoSet = "غير مقيد"
Dim Arr()
Dim C As Range, i As Integer
For Each C In Range("B6:B" & Range("B" & Rows.Count).End(xlUp).Row)
If C.Offset(0, 1).Value = NoSet Then
i = i + 1
ReDim Arr(i)
Arr(i) = C.Value
ListBox1.AddItem Arr(i)
End If
Next
End Sub
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For j = 1 To ListBox1.ListCount
If Me.ListBox1.Selected(j) = True Then
Me.Label1.Caption = Me.ListBox1.Value
End If
Next
End Sub



أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali، محمد الدسوقى، الصقر، Yasser Elaraby،




20-04-2018 11:31 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11119
الاعجاب : 3943
 Online 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
بارك الله فيك أخي وحبيبي في الله زيزو العجوز

عايزين منك موضوع فيه شرح يفيد الجميع أكتر ما يفيد أفراد .. في انتظار روائعك يا متميز

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




20-04-2018 01:04 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 303
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 16
قوة السمعة : 1871
الاعجاب : 477
 Online 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
والله مبدع كعاتدتك استاذنا الكبير زيزو بارك الله فيك وجعله فى ميزان حسناتك

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




20-04-2018 01:19 مساء
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 360
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 236
قوة السمعة : 2384
الاعجاب : 593
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
بارك الله فيك أستاذى الغالى / زيزو العحوز
تعودنا منكم الابداع دائما
ملحوظة بسيطة على الكود الثانى :
استبدال استبدال القيمة ( 1 ) بــ ( 0 ) فى التعليمة التالية
For j = 1 To ListBox1.ListCount


لتكون كالتالى حتى يتم اضافة أول عنصر فى Listbox1 إلى Label1

For j = 0 To ListBox1.ListCount

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




20-04-2018 01:25 مساء
مشاهدة مشاركة منفردة [5]
Haneen Amr
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3478
المشاركات : 13
الجنس : أنثى
تاريخ الميلاد : 12-9-1976
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 21
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
بارك الله فيك أستاذ / زيزو العجوز
على هذه الأكواد الرائعة
جعله الله فى موازين حسناتكم و جزيتم عنا خيرا

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




20-04-2018 02:46 مساء
مشاهدة مشاركة منفردة [6]
ابراهيم الحداد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 110
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 799
الاعجاب : 208
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
السلام عليكم ورحمة الله
بارك الله فيكم جميعا فقد كنتم اول من انار انار لنا الطريق بعد ان سرنا على دربكم
جعلنا الله دائما عند حسن ظنكم


 

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف جمع المبالغ من الشيتات التي سوف تضاف في المستقبل للملف ابوعلي الحبيب
28 291 YasserKhalil
كيفية اضافة عدد محدد من الشيتات الى الكومب بوكس abushuber
4 61 YasserKhalil
تحديد عدد الاعمدة في الشيت mahmod mahmod
5 78 Eslam Abdullah
ارجو من الاساتذة الكرام مساعدة في إكمال هذا الشيت عبدالله فتحى
11 189 YasserKhalil
نسخ المعلومات من اليوزر فورم الى الشيت mahmod mahmod
7 104 YasserKhalil

الكلمات الدلالية
ترحيل ، الشيت ، Listbox ، بناء ،


 







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



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

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