إبراهيم ابوليله

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

اخى طاهر هذا الكود به خطأ فقط قم بحزف الكود الاتى Private Sub ComboBox3_DropButtonClick() For R = 0 To Me.ListBox1.ListIndex R = Me.ListBox1.List ComboBox3.AddItem R 'ext End Sub اما بالنسبه لحساسيه الكوموبوكس للحروف فانا حاول ولم انجح ى ذلك تقبل تحياتى

السلام عليكم ورحمة الله وبركاته تفضل اخى طاهر ................... ولكنى كنت امل ان تجرب ان تفعل ذلك بنفسك .............................. تقبل تحياتى جمعية خيرية1.rar

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

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

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

اخى عمرو جرب تغير السطر الاتى Worksheets("sheet1").Cells(X, 2) = TextBox2.Value Worksheets("sheet1").Cells(X, 3) =TextBox3.Value الى السطر الاتى Worksheets("sheet1").Cells(X, 2) = CDate(TextBox2.Value) Worksheets("sheet1").Cells(X, 3) = CDate(TextBox3.Value) تقبل تحياتى

اخى واستاذنا طارق ممكن لو سمحت شرح الكود ان امكن وبالاخص n = LR - 17 nr + n - 1 تقبل تحياتى

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

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

السلام عليكم ورحمة الله وبركاته اخى طاهر تم العمل على فورم الوارد ارجو تجربة المرفق فى انتظار رأيك فى هذا العمل تقبل تحياتى جمعية خيرية1.rar

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

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

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

تم ارفاق الملف فى المشاركه السابقه

السلام عليكم ورحمة الله وبركاته اخى طاهر تم التعديل تقبل تحياتى جمعية خيرية2.rar

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم كل الشكر والتقدير والاحترام لعمالقة المنتدى والاساتذه الافاضل سيتم هنا عرض بعض الاكواد التى يتم استخدامها فى الفورم مع التيكست بوكس ....................................... اود ان اذكر حضراتكم باننا قد تناولنا فيما سبق اولا -- سيتم التعرف على كيفيه الترحيل من التيكست بوكس الى الشيت http://www.officena....ic=49561&page=1 ثانيا-- سيتم التعرف على كيفيه الترحيل من التيكست بوكس الى مجموعه من الخلايا فى شيت الاكسيل http://www.officena....ic=49561&page=1 ثالثا--التعرف على كيفيه استدعاء البيانات من شيت الاكسيل الى التكست بوكس http://www.officena....ic=49561&page=1 رابعا--التعرف على كيفيه ترحيل البيانات من مجموعه من التيكست بوكس الى شيت الاكسيل http://www.officena....ic=49561&page=1 خامسا--التعرف على كيفيه ترحيل البيانات من مجموعه من التيكست بوكس الى شيت الاكسيل أفقيا http://www.officena....ic=49561&page=2 سادسا--التعرف على كيفيه تقيد الادخال فى التيكست بوكس http://www.officena....ic=49561&page=2 سابعا--التعرف على بعض القيود الخاصه بادخال التواريخ فى التيكست بوكس http://www.officena....ic=49561&page=3 ثامنا--التعرف على بعض الاكواد الخاصه بالعمليات الحسابيه فى التيكست بوكس http://www.officena....ic=49561&page=3 تاسعا--جلب بيانات من الشيت الى التيكست http://www.officena....ic=49561&page=4 عاشرا--ترحيل مجموعه من التكست الى الشيت http://www.officena....ic=49561&page=4 اليوم سوف يتم استكمال باقى الموضوع ان شاء الله احدى عشر:--كيفية عمل تسلسل داخل التيكست بوكس فى هذا الدرس سوف نتاول اكثر من كود لعمل تسلسل داخل التيكست بوكس وكثيرا ما نحتاج الى مثل هذه الاكواد خصوصا فى عمل الفواتير او الايصالات او الاكواد الخاصه بالعملاء او ماشابه ذلك مرفق ملف به الاكواد تقبلوا تحياتى text code.rar

ممكن ترفق البرنامج وكيفيه العمل عليه

اخى ياسر بالفعل المشكله كانت فى تحديث المتصفح اشكرك على الاهتمام بارك الله فيك تقبل تحياتى

السلام عليكم ورحمة الله وبركاته اخى طاهر تم التعديل تقبل تحياتى جمعية خيرية2.rar

اخى نايف جرب الكود التالى لفرز عمود التاريخ Private Sub CommandButton3_Click() Dim i As Long Dim j As Long Dim sTemp As String Dim sTemp2 As String Dim sTemp3 As String Dim sTemp4 As String Dim sTemp5 As String Dim sTemp6 As String Dim sTemp7 As String Dim sTemp8 As String Dim LbList As Variant ' LbList = Me.ListBox1.List For i = LBound(LbList, 1) To UBound(LbList, 1) For j = i + 1 To UBound(LbList, 1) '-------------------------------------------------------------------- ' ÇáÊÑÊíÈ ÈäÇÁ Úáì ÇáÚãæÏ ÇáËÇäì If LbList(i, 6) > LbList(j, 6) Then sTemp = LbList(i, 0) LbList(i, 0) = LbList(j, 0) LbList(j, 0) = sTemp sTemp2 = LbList(i, 1) LbList(i, 1) = LbList(j, 1) LbList(j, 1) = sTemp2 sTemp3 = LbList(i, 2) LbList(i, 2) = LbList(j, 2) LbList(j, 2) = sTemp3 sTemp4 = LbList(i, 3) LbList(i, 3) = LbList(j, 3) LbList(j, 3) = sTemp4 sTemp5 = LbList(i, 4) LbList(i, 4) = LbList(j, 4) LbList(j, 4) = sTemp5 sTemp6 = LbList(i, 5) LbList(i, 5) = LbList(j, 5) LbList(j, 5) = sTemp6 sTemp7 = LbList(i, 6) LbList(i, 6) = LbList(j, 6) LbList(j, 6) = sTemp7 sTemp8 = LbList(i, 7) LbList(i, 7) = LbList(j, 7) LbList(j, 7) = sTemp8 End If Next j Next i Me.ListBox1.Clear Me.ListBox1.List = LbList End Sub وجرب الكود التالى لفرز عمود الاسماء Private Sub CommandButton2_Click() Dim i As Long Dim j As Long Dim sTemp As String Dim sTemp2 As String Dim sTemp3 As String Dim sTemp4 As String Dim sTemp5 As String Dim sTemp6 As String Dim sTemp7 As String Dim sTemp8 As String Dim LbList As Variant ' LbList = Me.ListBox1.List For i = LBound(LbList, 1) To UBound(LbList, 1) For j = i + 1 To UBound(LbList, 1) '-------------------------------------------------------------------- ' ÇáÊÑÊíÈ ÈäÇÁ Úáì ÇáÚãæÏ ÇáËÇäì If LbList(i,1) > LbList(j, 1) Then sTemp = LbList(i, 0) LbList(i, 0) = LbList(j, 0) LbList(j, 0) = sTemp sTemp2 = LbList(i, 1) LbList(i, 1) = LbList(j, 1) LbList(j, 1) = sTemp2 sTemp3 = LbList(i, 2) LbList(i, 2) = LbList(j, 2) LbList(j, 2) = sTemp3 sTemp4 = LbList(i, 3) LbList(i, 3) = LbList(j, 3) LbList(j, 3) = sTemp4 sTemp5 = LbList(i, 4) LbList(i, 4) = LbList(j, 4) LbList(j, 4) = sTemp5 sTemp6 = LbList(i, 5) LbList(i, 5) = LbList(j, 5) LbList(j, 5) = sTemp6 sTemp7 = LbList(i, 6) LbList(i, 6) = LbList(j, 6) LbList(j, 6) = sTemp7 sTemp8 = LbList(i, 7) LbList(i, 7) = LbList(j, 7) LbList(j, 7) = sTemp8 End If Next j Next i Me.ListBox1.Clear Me.ListBox1.List = LbList End Sub تقبل تحياتى

الاخوه الافاضل عزرا فقد حدث خطأ اثناء رفع الملف ولم الاحظ ذلك تم اضافه الملف فى هذه المشاركه تقبلوا تحياتى text code.rar

عزرا اخى محمد لم افهم المطلوب جيدا

اخى ابوجيداء ارجو التوضيح اكثر مع ارفاق ملف للعمل عليه

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