saad abed

اخى انس اعمالك رائعة في انتظار برنامج المحاسبة

اخى شوقى ربيع أولا وحشنى جدا جدا جدا الك وحشه يا غالى ابداع ابداع ابداع ابداع ابداع ابداع ابداع ابداع ابداع

اخى الزبارى نحن في الانتظار

اخى الزبارى جزاك الله خيرا انا اعلم انك باحث جيد ما شاء الله اذا رايت كود او طريقة لمقياس الويندو او الشاشة للاكسيل فارجو ترح الموضوع بمعنى اريد كود او طريقة لسرعة اظهار الفورم في مكان معين من الشاشة

اخى الفاضل جزاك الله خيرا مواضيعك مفيده تحياتى

اخى الزباري اكرمك الله وجزاك الله خيرا

اخى الزبارى اسمح لى اخى ان ابدى اعجابى باسلوبك جزاك الله خيرا هناك مواضيع فى vba لم يتطرق اليها احد فهل ممكن تشرحها باسلوبك مثلا :- Collection CreateObject("Scripting.Dictionary")

اخى الزبارى جزاك الله خيرا وبارك الله فى صحتك ووقتك اسال الله العظيم ان يزيدك من العلم من افضل المواضيع منذ نشاة المنتدى وانا قديم منذ نشاته فكل من شرح ولهم الشكر فقد شرحوا الكلمات والالفاظ البرمجيه معنى حلقة دوران ---------- الالفاظ المستخدمه ----------وترتيب الجمل لكن اخى الزبارى له اسلوب جديد هو كل ماسبق وزياده عليه الية استخدام الحلقات والامثله التى من الممكن ان تخطر ببال المستخدم متابعين بشغف الله الله********************************************

ياسر العربى اخى ياسر شيء جديد فعلها عبدالله باقشير بالبحث في اللست جزاك الله خيرا اخى الله عليك

اخوانى كل انسان اجتهد وتعلم فمن حقه الاستفاده ولو بالقليل مثل ثمن الاداة والاخ ياسر له خدمات داخل المنتدى وخارجه مجانية وكل المنتديات لها جزء يطرح فيه الخدمات مدفوعة الاجر لكى يجد من يجتهد ثمرة لاعماله اللهم اهدنا واهدى بنا واجعلنا سبب لمن اهتدى

اخى مختار شهادتى لك مجروحه لانك من الناس اللى اتتبع كتابتها ولو ردود الشكر والله يا اخى موضوعاتك وكتاباتك مفيده جدا جزاك الله خيرا ننتظر منك المزيد وفقكم الله

اخى ياسر السلام عليكم زدنا اخى ياسر جزاك الله خيرا

الف مبروك اخى سليم والى الامام

رائئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئع

اخى عمر كل عام وانتم بخير بارك الله لك فىك وفى اولادك وكل من تحب زدنا فنحن نريد ان نرتوى من العلم

اخى عمر الحسينى جزاك الله خيرا كل ما تقدمه فى فن وفكر فى الاكواد الحمد لله اذا غاب عن المنتدى اى رائد من رواده فان هناك حنين للمنتدى وكانه وطن

اخى عمر الحسينى والله انت مدرسه كما قال اخى ياسر وشروحاتك بطريقه مميزه ننتظر المزيد جزاك الله خيرا

اخى عمر اضافة جديده لابداعات السابقة جزاك الله خيرا

اخى عمر الحسينى اعمالك رائعة واكواد مدروسه لذلك اجد فيها سرعة جزاك الله خيرا

اخى عمر السلام عليكم بارك الله بك وبجهودك زادك الله علما

اخى عمر ابداعاتك متعدده ررررررررررررررررررررائئئئئئئئئئئئع جزاك الله خيرا وفقكم الله

Private Sub saad1_Click() 'On Error Resume Next If saad1.Value = True Then With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("s2:s20").Value End With Else: saad1.Value = False Me.ListBox2.Clear End If End Sub '============================ '============================ Private Sub saad2_Click() If saad2.Value = True Then With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("v2:v20").Value End With Else: saad2.Value = False Me.ListBox2.Clear End If End Sub '============================ '============================ Private Sub saad3_Click() If saad3.Value = True Then With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("t2:t20").Value End With Else: saad3.Value = False Me.ListBox2.Clear End If End Sub '============================ '============================ Private Sub saad4_Click() If saad4.Value = True Then Me.ListBox2.Clear With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("u2:u20").Value End With Else: saad4.Value = False Me.ListBox2.Clear End If End Sub '============================ '============================ Private Sub saad5_Click() If saad5.Value = True Then Me.ListBox2.Value = "" With sheet3.ListBox2 .AddItem .List = Sheets("data").Range("w2:w20").Value End With Else: saad5.Value = False Me.ListBox2.Value = "" End If End Sub '============================ '============================ اشكركم تم التصحيح وعمل بشكل صحيح

Private Sub checkbox1_Click() 'On Error Resume Next If CheckBox1.Value = True Then With sheet3.ListBox3 .AddItem .List = Sheets("data").Range("s2:s20").Value End With CheckBox1.Value = False sheet3.ListBox3.List = "" End If End Sub الهدف من الكود كلما كان شيك بوكس رقم1 ترو اصبح مجال لست بوكس من مجال معين شيك بوكس رقم2 ترو اصبح مجال لست بوكس من مجال معين شيك بوكس رقم3 ترو اصبح مجال لست بوكس من مجال معين حتى شيك بوكس رقم6 ترو اصبح مجال لست بوكس من مجال معين الكود يعطى خطا عند .AddItem .List = Sheets("data").Range("s2:s20").Value

اخى ياسر كل عام وانتم بخير

استاذ عمر استخدم اوفيس216 القوائم عربية والصفحات من اليمن الى اليسار الاداة تظهر معى فى الادوات لكنها لا تظهر فى الفورم