محمود_الشريف

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

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

مرفق نموذج لعمل الكود طباعة فورم.rar

إخوانى فى الله أساتذتى الكرام بعد إذنكم .. سوف أضيف كود بستخدمه لتحديد عدد النسخ المراد طباعتها للفورم نفسه وهو كود للأستاذ العلامه / عبد الله باقشير وتقبلوا منى وافر الإحترام والتقدير Private Sub CommandButton3_Click() On Error Resume Next Dim Kh_Count As Integer Dim Kh_Comm As Integer If MsgBox("هل تريد طباعة السند رقم " & Combo_NO.Value, vbYesNo + vbQuestion + vbMsgBoxRight, "تأكيد طباعة ") = vbYes Then Kh_Count = InputBox("فضلاً أدخل عدد نسخ الاوراق الذي تريدها " & Chr(13) & Chr(13) & "الافتراضي نسخة واحدة", "عدد النسخ", "1") '================================== 'اخفاء الزرارات من السند اثناء الطباعة For Kh_Comm = 1 To 3 Me.Controls("CommandButton" & Kh_Comm).Visible = False Next Kh_Comm '================================== Me.Hide '================================== 'عدد النسخ المطلوبة Do Until Kh_Count = 0 Me.PrintForm Kh_Count = Kh_Count - 1 Loop '================================== End If End On Error GoTo 0 End Sub

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

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

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

اللهم لك الحمد كله، اللهم لا قابض لما بسطت، ولا باسط لما قبضت، ولا هادي لمن أضللت ولا مضل لمن هديت، ولا معطي لما منعت ولا مانع لما أعطيت، ولا مقرب لما باعدت، ولا مباعد لما قربت، اللهم ابسط علينا من بركاتك ورحمتك وفضلك ورزقك، اللهم إني أسألك النعيم المقيم الذي لا يحول ولا يزول، اللهم إني أسألك النعيم يوم العيلة، والأمن يوم الخوف، اللهم إني عائذ بك من شر ما أعطيتنا وشر ما منعتنا، اللهم حبب إلينا الإيمان وزينه في قلوبنا وكره إلينا الكفر والفسوق والعصيان واجعلنا من الراشدين، اللهم توفنا مسلمين، وأحينا مسلمين، وألحقنا بالصالحين غير خزايا ولا مفتونين، اللهم قاتل الكفرة الذين يكذبون رسلك ويصدون عن سبيلك، واجعل عليهم رجزك وعذابك، اللهم قاتل الكفرة الذين أوتوا الكتاب؛ إله الحق [آمين]

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

اللهم تقبل اللهم آمين

أخى فى الله الأستاذ القدير / قنديل الصياد بارك الله فيكم وتقبلوا منى وافر الإحترام والتقدير

اللهم تقبل اللهم آمين

أخى فى الله بارك الله فيكم وتقبلوا منى وافر الإحترام والتقدير

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

أختنا فى الله الأستاذة القديرة / أم عبد الله بارك الله فيكم وجزاكم رب العالمين عنا خير الجزاء وتقبلوا منى وافر الإحترام والتقدير

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

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

أخى الكريم الأستاذ / وليد برجاء رفع الشيت لأنه غير موجود بالمرفقات

الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته مرفق نموذج به كود لدمج الخلايا بخلية واحده الشرح داخل المرفقات وتقبلوا منى وافر الإحترام والتقدير دمج الخلايا بخلية واحده بكود.rar

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

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

أخى الكريم الأستاذ / أبو جيداء تفضل بالمرفقات نموذج بالكود حل عملى لما تريد نسأل الله عز وجل أن يكون به المطلوب وتقبلوا منى وافر الإحترام والتقدير دمج الخلايا بخلية واحده بكود.rar

إستكمالا للمشاركتين ( 26 ) و ( 27 ) السابقتين تم تعديل العملية الحسابية داخل الفورم بمجرد الإشارة أو وضع الماوس داخل أى مربع ( مجموع ) وتم إضافة التفقيط أيضا للفورم وفى إنتظار ملاحظاتكم النموذج بالمرفقات وتقبلوا منى وافر الإحترام والتقدير شيت كنترول تحت التجربة.rar

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

أخى فى الله الأستاذ القدير / أبو محمد عباس بارك الله فيكم وشاكر لكم تشجيعكم ومروركم الكريم ودعاؤكم الطيب ونسأل الله عز وجل لكم أن يزيدكم من فضله ومن علمه وتقبلوا منى وافر الإحترام والتقدير