مساعدة في إنجاز الليست بوكس

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

أساتذتي الأعزاء كيف يمكن استدعاء البيانات في الورقة 1 إلى اليوزر فورم عن طريق الليست بوكس .

جزاكم الله خيرًا مسبّقًا و بارك الله فيكم

الليست بوكس.rar

[شوقي ربيع]

السلام عليكم

في حدث اقلاع اليوزر فورم او زر امر او ماكرو

اختر اولا عدد اعمدة اليست ثم حدد نطاق الجدول الذي تريده

Private Sub UserForm_Initialize()
With Me.ListBox1
  .ColumnCount = 4
  .List = Range("D5:G14").Value
End With
End Sub

تحياتي

[عبد العزيز البسكري]

السلام عليكم

في حدث اقلاع اليوزر فورم او زر امر او ماكرو

اختر اولا عدد اعمدة اليست ثم حدد نطاق الجدول الذي تريده

Private Sub UserForm_Initialize()
With Me.ListBox1
  .ColumnCount = 4
  .List = Range("D5:G14").Value
End With
End Sub

تحياتي

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

الليست بوكس 2.rar

تم تعديل مايو 11, 2015 بواسطه عبد العزيز البسكري

[شوقي ربيع]

من خصائص اليوزر فورم ابحث عن RightToLeft و اجعلها True

او استبدل الكود السابق بهذا

Private Sub UserForm_Activate()
Me.RightToLeft = True
With Me.ListBox1
  .ColumnCount = 4
  .List = Range("D5:G14").Value
End With
End Sub

[عبد العزيز البسكري]

 

من خصائص اليوزر فورم ابحث عن RightToLeft و اجعلها True

او استبدل الكود السابق بهذا

Private Sub UserForm_Activate()
Me.RightToLeft = True
With Me.ListBox1
  .ColumnCount = 4
  .List = Range("D5:G14").Value
End With
End Sub

تمام التمام أستاذنا شوقي ربيع .. جزاك الله خيرا و بارك الله فيك وزادها بميزان حسناتك .. درس بسيط و فعال ..زادك الله من علمه و فضله ..رجاء أخير فقط لو أردت مثلا إضافة ( scrollbar ) لهذه القائمة ماذا أفعل ؟؟

[الصـقر]

استاذى الحبيب 

شوقى ربيع

انا اعلم ان Me.RightToLeft = True تجعل اليست من اليمين لليسار ومن فترة طويله وانا كل ما اريد تعديل اتجاه ليست من اليمين لليسار اقوم بتعديل هذه الخاصيه من الخصائص للفورم Me.RightToLeft = True ولكن للاسف لا يقبل التعديل من false  الى true   وتبقى  false دائما فى جميع ملفات الاكسيل  وجربت ايضا من خلال كود عند فتح الفورم  بهذا السطر Me.RightToLeft = True  ولا ادرى اين تكمن المشكله هل بنسخه الاوفيس ام ماذا

تقبل تحياتى

[شوقي ربيع]

استاذى الحبيب 

شوقى ربيع

انا اعلم ان Me.RightToLeft = True تجعل اليست من اليمين لليسار ومن فترة طويله وانا كل ما اريد تعديل اتجاه ليست من اليمين لليسار اقوم بتعديل هذه الخاصيه من الخصائص للفورم Me.RightToLeft = True ولكن للاسف لا يقبل التعديل من false  الى true   وتبقى  false دائما فى جميع ملفات الاكسيل  وجربت ايضا من خلال كود عند فتح الفورم  بهذا السطر Me.RightToLeft = True  ولا ادرى اين تكمن المشكله هل بنسخه الاوفيس ام ماذا

تقبل تحياتى

السلام عليكم

شخصيا استخدم نسخة أوفيس فرنسية ولا تحوي اصلا RightToLeft في خصائص الفورم لذى استخدم الكود

Me.RightToLeft = True 

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

نحن نعلم ان  الحدث Initialize هو اول حدث يبدأ التنفيذ عند تشغيل الفورم حتى انه يبدأ تنفيذ الأكواد التي به قبل ضهور الفورم لاكن للاسف لا يمكن ان نضع الكود الخاص بمجاذات الفورم هنا

في هذه الحالة الكود نفذ بالفعل اقصد كود المحاذات للاسف vba امكانياته محدودة لان سرعة تنفيذ الاكواد في حدث Initialize تخلي اليست بكوس( لاتشعر) ان صح التعبر بان الكود نفذ و تبقى مجمدة على طبيعتها الاولى

لاكن لو كان عندنا ملتبيج مثلا في الفورم وكانت اليست في احد باجاته لو تغير الباجة وتعود الى الاولى ستلاحظ ان اليست تحولت الى اليمين

المهم لتفادي ماسبق ذكره اعتبر ان وضع الكود بداية حدث Activate هو افضل طريقة مع مراعات عدم تعبئة اليست قبل تنفيذ كود المحاذات

تحياتي

[الصـقر]

استاذى الحبيب

كل شكر لحضرتك على اهتمامك 

انا جربت التغيير من الخصائص الفورم ومن حدث الفورم  Initialize ومن حدث الفورم Activate وكنت اراعى دائما فى بداية الكود قبل تعبئة اليست بوكس ولكن للاسف كل المحاولات بأت بالفشل هل يوجد مشكله بالاوفيس او بالاعدادات الخاصه به

تقبل تحياتى