شباب محتاج مساعده في يوزر فورم

[hatrek]

شباب انا لسه متعلم VBA جديد و بحاول معاه انا صممت يوزر فورم و عملت بعض المعادلات بس في حاجات واقفه معايا

اولا : عمليه البحث محتاج اعمل بحث عن طريق خيارين الاول بحث عن طريق رقم السجل و الثاني بحث عن طريق الاسم بأستخدام اوبشان بوكس 

ثانيا : التعديل علي البيانات انا ضفت زرار للتعديل علي البيانات بعد ما اعمل بحث عنها مش عارف اجبله كود

ثالثا : عملت زرار للبرنت و محتاجه يطبع الفورم جربت اكتر من كود بس بيضرب معي

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

انا محتاج مش انكم تجهزو الفورم انا محتاج المعادلات اوالدالات الي بها اعمل الي انا كاتبه عشان انا عايز اتعلم مش بعمل فورم مره و السلام

تم ارفاق الفورم الي انا اشتغلته

بحث.rar

تم تعديل ديسمبر 29, 2014 بواسطه hatrek

[hatrek]

للرفع

[ابو علي و سدرة]

مطلوب منك فى شت الاكسيل وضع العناوين الرئيسية لكل عمود هايظهر فى اليوزرفورم

[hatrek]

تم اضافه رؤوس الاعمده

archive.zip

[numanawwad]

انا ما بعرف بالبرمجة  بس بالنسبة لطباعة الفورم ضيف لزر الطباعة  me.printform     واذا مش المطلوب  سامحني

[طلعت محمد حسن]

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

بحث.rar

[hatrek]

تسلم 

numanawwad

 

شكرا 

طلعت محمد حسن

اليوم اتعلمت اكواد جديده منك  checkbox و optionbutton بس الاوبشنبوتون لا يتم مسح بياناته هل يوجد كود يمسح البيانات ام تكون القيمه افتراضيه دائما ؟؟!!

 

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

 

, و برضو محتاج شرح مبسط لكود التسلسل التلقائي لاني مش فاهمه

 

 

 

 

بحث.rar

[طلعت محمد حسن]

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

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

 

اما اذا اردت التعامل مع الاكسل بشكل مباشر فسوف يصبح العمل مختلف تماما

بالنسبه لشرح كود التسلسل التلقائي ارفقت اليك نفس الملف الذي ارسلته لي وفيه شرح للكود

 

وانا بنتظار سماع وجهه نظرك بالموضوع 

 

اقبل تحياتي واحترامي

بحث.rar

[hatrek]

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

 

 انا لي غرضين من عرض البيانات علي الاكسل

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

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

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

كل هذا اذا كان يوجد شئ يغني عن هذا بحيث  يظهرلي تقرير مجمع عن كل البيانات فا ممكن تفدني

اتمنى تكون وصلتك فكرتي

 

و بخصوص كود التسلسل التلقائي تسلم جازاك الله خيرا

[طلعت محمد حسن]

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

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

اقبل تحياتي واحترامي

مثال على الترحيل العامودي.rar

[hatrek]

عليكم السلام اخ طلعت

 

هذا الترحيل عمودي ولكن انا كنت اقصد مسلسل واحد يكون في العمود A و مسلسل 2 يكون في العمود B و مسلسل 3 يكون في العمود C و هكذا

 

لان هذا الترحيل الي انت عملته بيكون في نفس العمود بيكون عندنا نفس المشكله انه لو قمنا بتطباعه التقرير المجمع للبيانات المدخله بيجمع عدد اوراق كبير جدا و بتكون اكثر من 3/4 فارغ

[الجموعي]

تفضل أخي ما أردت

مثال على الترحيل العامودي.rar

[hatrek]

اخي الجموعي

ليس هذا ما كنت اطلبه

انا غبرت لك الجدول ممكن تلقي نظره علي وضع الترحيل به

[hatrek]

اخي الجموعي

ليس هذا ما كنت اطلبه

انا غبرت لك الجدول ممكن تلقي نظره علي وضع الترحيل به

مثال على الترحيل العامودي.rar

[طلعت محمد حسن]

السلام عليكم 

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

[hatrek]

و علكم السلام اخ طلعت

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

عموما خلينا نكمل باقي الاكواد

البحث و التعديل و الطباعه

[طلعت محمد حسن]

و علكم السلام اخ طلعت

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

عموما خلينا نكمل باقي الاكواد

البحث و التعديل و الطباعه

ان شاء الله سوف اكمل معك الموضوع

[hatrek]

ان شاء الله اخي ربنا يوفق

[طلعت محمد حسن]

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

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

اقبل تحياتي واحترامي

كود البحث.rar

[hatrek]

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

تسلم اخ طلعت جازاك الله خير

انا محتاج شرح مبسط لاجزاء معينه

 

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

 

 

 

ممكن شرح مبسط امام هذه الاجزاء لاني بتوه فيها يجزاك الله خير

[طلعت محمد حسن]

 

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

تسلم اخ طلعت جازاك الله خير

انا محتاج شرح مبسط لاجزاء معينه

 

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

 

 

 

ممكن شرح مبسط امام هذه الاجزاء لاني بتوه فيها يجزاك الله خير

 

[طلعت محمد حسن]

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

لا اعلم اخي العزيز لسه مهتم بالموضوع ام لا

[hatrek]

بارك الله فيك اخ طلعت

اكيد ما زلت مهتم بس لظروف السفر مش متابع الان برجع يوم الثلاثاء و بتابع معك ان شاء الله

[أبووائل]

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

[حمال سعيد مولود]

شكرا على المجهود الرئع جداجدا    جزاك الله كل خير