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

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

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




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





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

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



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

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

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







20-04-2018 10:48 صباحا
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 142
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 21
قوة السمعة : 1133
الاعجاب : 310
 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
المشاركات : 5247
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 346
قوة السمعة : 15106
الاعجاب : 5657
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
بارك الله فيك أخي وحبيبي في الله زيزو العجوز

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

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




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

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


20-04-2018 01:19 مساء
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 487
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 427
قوة السمعة : 5994
الاعجاب : 1226
 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
المشاركات : 14
الجنس : أنثى
تاريخ الميلاد : 12-9-1976
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 23
الاعجاب : 5
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
بارك الله فيك أستاذ / زيزو العجوز
على هذه الأكواد الرائعة
جعله الله فى موازين حسناتكم و جزيتم عنا خيرا

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




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


 

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف يتم تحديد الشيت المراد التعديل عليه من خلال كود التعديل: تعالوا حليتها aljathmai
11 211 aljathmai
اريد كود تفريغ الشيت كنترول زايد رمزى
2 78 محمد الدسوقى
تحديد اسم الشيت واسم الملف بدوال جديده مستحدثه - حسام خطاب الصقر
20 1784 Islam Mansour
مجموعه اكواد بسيطه لتحديد نطاق العمل على الشيت - Scroll_Area_Alsqr الصقر
6 813 Islam Mansour
دالة تجمع بيانات الشيت الي هو مفرد الي الشيت التجميعي محمود محمود احمد
2 77 YasserKhalil

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


 







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



الساعة الآن 01:32 مساء

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