hatrek قام بنشر ديسمبر 29, 2014 قام بنشر ديسمبر 29, 2014 (معدل) شباب انا لسه متعلم VBA جديد و بحاول معاه انا صممت يوزر فورم و عملت بعض المعادلات بس في حاجات واقفه معايا اولا : عمليه البحث محتاج اعمل بحث عن طريق خيارين الاول بحث عن طريق رقم السجل و الثاني بحث عن طريق الاسم بأستخدام اوبشان بوكس ثانيا : التعديل علي البيانات انا ضفت زرار للتعديل علي البيانات بعد ما اعمل بحث عنها مش عارف اجبله كود ثالثا : عملت زرار للبرنت و محتاجه يطبع الفورم جربت اكتر من كود بس بيضرب معي تقريبا دي الحاجات كلها الي وقفت معايا في الفورم ده انا محتاج مش انكم تجهزو الفورم انا محتاج المعادلات اوالدالات الي بها اعمل الي انا كاتبه عشان انا عايز اتعلم مش بعمل فورم مره و السلام تم ارفاق الفورم الي انا اشتغلته بحث.rar تم تعديل ديسمبر 29, 2014 بواسطه hatrek
ابو علي و سدرة قام بنشر ديسمبر 30, 2014 قام بنشر ديسمبر 30, 2014 مطلوب منك فى شت الاكسيل وضع العناوين الرئيسية لكل عمود هايظهر فى اليوزرفورم
numanawwad قام بنشر ديسمبر 31, 2014 قام بنشر ديسمبر 31, 2014 انا ما بعرف بالبرمجة بس بالنسبة لطباعة الفورم ضيف لزر الطباعة me.printform واذا مش المطلوب سامحني
طلعت محمد حسن قام بنشر ديسمبر 31, 2014 قام بنشر ديسمبر 31, 2014 السلام عليكم ورحمه الله وبركاته اخي العزيز هذا العمل بحاجه الى شغل ووقت وقد رايت ان نتناوله خطوه خطوه حتى يخرج العمل على احسن وجه وحسب ما فهمت من كلامك تريد المعرفه بالاكواد حتى تستطيع بالمستقبل العمل لوحدك بالبدايه قمت بعمل ما يلي :- اضافه كود الترحيل من الفورم الى ورقة العمل واضافه كود المسح من الفورم واضافه كود الترقيم التلقائي بعد كل سجل وكذالك ضبط العمل في التشك بوكس انظر الى الاكواد واي سؤال عنها سوف اكون جاهز للاجابه واذا رايت بان هذه الخطوات حسب ما تريد يمكن تكمله العمل الى النهايه اقبل تحياتي واحترامي بحث.rar 1
hatrek قام بنشر ديسمبر 31, 2014 الكاتب قام بنشر ديسمبر 31, 2014 تسلم numanawwad شكرا طلعت محمد حسن اليوم اتعلمت اكواد جديده منك checkbox و optionbutton بس الاوبشنبوتون لا يتم مسح بياناته هل يوجد كود يمسح البيانات ام تكون القيمه افتراضيه دائما ؟؟!! و حاجه كمان انا جربت اعكس ادخال البيانات بدل ما تكون رأسيه تكون عموديه في الشيت بس مش عارف اظبها تم ارفاق الفيل القي نظره ,,, , و برضو محتاج شرح مبسط لكود التسلسل التلقائي لاني مش فاهمه بحث.rar
طلعت محمد حسن قام بنشر يناير 1, 2015 قام بنشر يناير 1, 2015 السلام عليكم ورحمه الله وبركاته اخي العزيز بالنسبه optionbutton لم يتم عمل اي كود برمجي له وتركته للمراحل القادمه اما بالنسبه الى عرض البيانات انت لا تحتاج الى التعامل مع الاكسل بشكل مباشر بل عند طريق اليوزرفورم من عمليه اضافه وتعديل وبحث وحذف وطباعه وسوف تكون الطباعه على ورقه مستقله نفس الشكل المصمم على اليوزرفورم وكذالك يمكن اخفاء الورقه الاولى التي يتم كتابه البيانات فيها والاكتفاء فقط بالتعامل مع البيانات عن طريق اليوزرفورم اما اذا اردت التعامل مع الاكسل بشكل مباشر فسوف يصبح العمل مختلف تماما بالنسبه لشرح كود التسلسل التلقائي ارفقت اليك نفس الملف الذي ارسلته لي وفيه شرح للكود وانا بنتظار سماع وجهه نظرك بالموضوع اقبل تحياتي واحترامي بحث.rar
hatrek قام بنشر يناير 1, 2015 الكاتب قام بنشر يناير 1, 2015 و عليكم السلام ورحمه الله وبركاته انا لي غرضين من عرض البيانات علي الاكسل اولا عشان اعرف الاكواد الي بتخلينا ارحل البيانات الي اعمده وليس صفوف بحث اكون عارف كدا او كدا انا اخبرتك في الاول اني بتعلم ياعني مش محتاج انك تعمل كل الاكواد ممكن تمل سمبل بسيط و انا بجرب في الباقي و لو حاجه وقفت بقولك عليها و ثانيا في حالت اني احتجت تقرير مجمع لكل البانات الي ادخلتها في المثال الي انا شغال عليه لما باجي اطبع مش هتكون اليانات واضحه و هيكون متقسم علي 3 او اربع صفحات او ممكن اكتر فا قلت اجرب بالطول لاقيتها هتطلع بيانات الشخص كلها ورا بعض فا لما اجيت اجرب لاقيت نافسي تايه لان معظم الامثله الي شوفتها قبل كدا بتملى في صفوف و ليث اعمده كل هذا اذا كان يوجد شئ يغني عن هذا بحيث يظهرلي تقرير مجمع عن كل البيانات فا ممكن تفدني اتمنى تكون وصلتك فكرتي و بخصوص كود التسلسل التلقائي تسلم جازاك الله خيرا
طلعت محمد حسن قام بنشر يناير 2, 2015 قام بنشر يناير 2, 2015 السلام عليكم ورحمه الله وبركاته اخي العزيز هذا مثال بسيط على عمليه الترحيل العامودي ارجوا ان تطلع عليه وتخبرني عن اي ملاحظات لك عليه اقبل تحياتي واحترامي مثال على الترحيل العامودي.rar
hatrek قام بنشر يناير 2, 2015 الكاتب قام بنشر يناير 2, 2015 عليكم السلام اخ طلعت هذا الترحيل عمودي ولكن انا كنت اقصد مسلسل واحد يكون في العمود A و مسلسل 2 يكون في العمود B و مسلسل 3 يكون في العمود C و هكذا لان هذا الترحيل الي انت عملته بيكون في نفس العمود بيكون عندنا نفس المشكله انه لو قمنا بتطباعه التقرير المجمع للبيانات المدخله بيجمع عدد اوراق كبير جدا و بتكون اكثر من 3/4 فارغ
hatrek قام بنشر يناير 2, 2015 الكاتب قام بنشر يناير 2, 2015 اخي الجموعي ليس هذا ما كنت اطلبه انا غبرت لك الجدول ممكن تلقي نظره علي وضع الترحيل به
hatrek قام بنشر يناير 2, 2015 الكاتب قام بنشر يناير 2, 2015 اخي الجموعي ليس هذا ما كنت اطلبه انا غبرت لك الجدول ممكن تلقي نظره علي وضع الترحيل به مثال على الترحيل العامودي.rar
طلعت محمد حسن قام بنشر يناير 2, 2015 قام بنشر يناير 2, 2015 السلام عليكم اخي الكريم حسب علمي المتواضع الترحيل اما ان يكون عمودي او افقي اما ان يرحل في العامود الاول وفي الادخال الثاني يرحل بالعامود الثاني وهكذا فلا علم لي في ذالك وبالنسبه لموضوع طباعه البيانات اولا يكون استدعاء البيانات عن طريق الفورم ويتم طباعتها في ورقه واحده من خلال الفورم .
hatrek قام بنشر يناير 3, 2015 الكاتب قام بنشر يناير 3, 2015 و علكم السلام اخ طلعت خلاص ما في مشكله لاني كنت بدور علي هذه الطريقه لانها ما واجهتني من قبل فقلت اسئل يمكن يكون في ترحيل بهذا الاسلوب ولكني لا اعلم انه لا يوجد هذه الطريقه في الترحيل عموما خلينا نكمل باقي الاكواد البحث و التعديل و الطباعه
طلعت محمد حسن قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 و علكم السلام اخ طلعت خلاص ما في مشكله لاني كنت بدور علي هذه الطريقه لانها ما واجهتني من قبل فقلت اسئل يمكن يكون في ترحيل بهذا الاسلوب ولكني لا اعلم انه لا يوجد هذه الطريقه في الترحيل عموما خلينا نكمل باقي الاكواد البحث و التعديل و الطباعه ان شاء الله سوف اكمل معك الموضوع
طلعت محمد حسن قام بنشر يناير 5, 2015 قام بنشر يناير 5, 2015 السلام عليكم ورحمه الله وبركاته اخي الكريم لقد تم وضع كود البحث ارجوا منك مشاهده الكود وتجربته ودراسته واي شيئ غير مفهوم فيه اعلمني بذالك اقبل تحياتي واحترامي كود البحث.rar 1
hatrek قام بنشر يناير 6, 2015 الكاتب قام بنشر يناير 6, 2015 و عليكم السلام و رحمه الله و بركاته تسلم اخ طلعت جازاك الله خير انا محتاج شرح مبسط لاجزاء معينه If OptionButton1.Value = True Then If TextBox89.Text = "" Then MsgBox ("الرجاء ادخال رقم السجل المدني") TextBox89.Text = "" Cler Sheets("sheet1").Range("A1").Select Exit Sub End If Sheet1.Activate III = 5 Do Until Sheet1.Cells(III, "C").Text = "" If TextBox89.Text = Sheet1.Cells(III, "C").Text Then Cells(III, "C").Activate If ActiveCell.Offset(0, 62).Text = "موجود" Then ck1.Value = True ElseIf ActiveCell.Offset(0, 62).Text = "غير موجود" Then ck2.Value = True ElseIf ActiveCell.Offset(0, 62).Text = "" Then ck1.Value = False ck2.Value = False End If ممكن شرح مبسط امام هذه الاجزاء لاني بتوه فيها يجزاك الله خير
طلعت محمد حسن قام بنشر يناير 7, 2015 قام بنشر يناير 7, 2015 و عليكم السلام و رحمه الله و بركاته تسلم اخ طلعت جازاك الله خير انا محتاج شرح مبسط لاجزاء معينه If OptionButton1.Value = True Then If TextBox89.Text = "" Then اذا كان تكست رقم 89 فارغ اظهر لي رسالة بوجوب ادخال رقم السجل المدني MsgBox ("الرجاء ادخال رقم السجل المدني") TextBox89.Text = "" مسح الكلام الموجود بالتكست Cler استدعاء كود المسح لمسح كل محتويات الفورم Sheets("sheet1").Range("A1").Select انتقال تحديد الخليه الى الخليه الاولى بالشيت Exit Sub الخروج من الاجراء End If Sheet1.Activate الشيت النشط هو شيت رقم 1 III = 5 بدايه الكتابه في الصف الخامس من الشيت Do Until Sheet1.Cells(III, "C").Text = "" If TextBox89.Text = Sheet1.Cells(III, "C").Text Then البحث يتم بدلاله العامود سي Cells(III, "C").Activate If ActiveCell.Offset(0, 62).Text = "موجود" Then هنا اذا كان التشيك الاول محدد يتم كتابه موجود في الخليه المشار اليها واذا كان التشيك الثاني محدد يتم كتابه غير موجود في الخليه المحدده ck1.Value = True ElseIf ActiveCell.Offset(0, 62).Text = "غير موجود" Then ck2.Value = True ElseIf ActiveCell.Offset(0, 62).Text = "" Then ck1.Value = False ck2.Value = False End If ممكن شرح مبسط امام هذه الاجزاء لاني بتوه فيها يجزاك الله خير
طلعت محمد حسن قام بنشر يناير 10, 2015 قام بنشر يناير 10, 2015 السلام عليكم ورحمه الله وبركاته لا اعلم اخي العزيز لسه مهتم بالموضوع ام لا
hatrek قام بنشر يناير 11, 2015 الكاتب قام بنشر يناير 11, 2015 بارك الله فيك اخ طلعت اكيد ما زلت مهتم بس لظروف السفر مش متابع الان برجع يوم الثلاثاء و بتابع معك ان شاء الله
أبووائل قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 هل يمكن عرض التاريخ الهجري على اليوزر فورم باستدعاءه من الشيت
حمال سعيد مولود قام بنشر مايو 25, 2017 قام بنشر مايو 25, 2017 شكرا على المجهود الرئع جداجدا جزاك الله كل خير
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان