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



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





ترحيل من الشيت إلى 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 مرات التحميل :(6)
الحجم :(12.669) KB







20-04-2018 10:48 صباحا
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 127
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 14
قوة السمعة : 885
الاعجاب : 237
 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
المشاركات : 4658
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13391
الاعجاب : 4955
 offline 
look/images/icons/i1.gif ترحيل من الشيت إلى Listbox بناء على شرط
بارك الله فيك أخي وحبيبي في الله زيزو العجوز

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

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




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

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


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


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


 

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طرق استدعاء البيانات من الشيت الى تكست بوكس داخل فورم بأكثر من شكل للمبتدئين Yasser Elaraby
12 1493 مهند محسن
حفظ الشيت مع عمل هيبر لينك للوصول للشيت mohamed.fawzy
6 83 YasserKhalil
حماية خلايا بدون حماية الشيت salim
6 117 مهند محسن
حماية الشيت مع تفعيل تكست بوكس للفلترة المتقدمة OmarGad
0 84 OmarGad
سؤال كيفية حماية الشيت مع تفعيل تكست بوكس ادفانس فلتر OmarGad
5 134 OmarGad

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


 







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



الساعة الآن 04:55 صباحا

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