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



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





ترحيل من الشيت إلى 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
المشاركات : 103
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 766
الاعجاب : 193
 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
المشاركات : 3298
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 270
قوة السمعة : 9129
الاعجاب : 3091
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
بارك الله فيك أخي وحبيبي في الله زيزو العجوز

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

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




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

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




20-04-2018 01:19 مساء
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 336
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 212
قوة السمعة : 2222
الاعجاب : 540
 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
المشاركات : 103
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 766
الاعجاب : 193
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
السلام عليكم ورحمة الله
بارك الله فيكم جميعا فقد كنتم اول من انار انار لنا الطريق بعد ان سرنا على دربكم
جعلنا الله دائما عند حسن ظنكم


 

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الاستغناء عن المعادلات داخل الشيت بتحويلها لاكواد تعمل عند الطلب مثال VLOOKUP نصر الإيمان
5 56 نصر الإيمان
اضافة عمودين بأول الشيت نصر الإيمان
10 129 YasserKhalil
اخفاء الشيت واظهار اليوزر فورم كا برنامج تنفيذي amaar
0 114 amaar
معادلة جلب بيانات من الشيتات حارثة ابو زيد1
9 109 YasserKhalil
استفسار عن الترحيل مع حماية الشيت mohamed.fawzy
1 63 mohamed.fawzy

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


 







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



الساعة الآن 09:53 صباحا

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