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

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

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

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

أخى الكريم بارك الله فيكم

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

أخى الكريم بارك الله فيكم

أخى الكريم بارك الله فيكم

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

أخى فى الله أستاذى القدير / ضاحى الغريب بارك لنا الله فيكم وجزاكم رب العالمين خيرا ويسعدنى أن تطل علينا بين الحين والآخر لكى نطمئن عليكم دمتم فى أمان الله وحفظه ويحضرنى قول الله عز وجل (( قد أفلح من زكاها ، وقد خاب من دساها )) وخطر ببالى قول الإمام الغزالى ((ان التدين الحقيقي ليس جسدا مهزولا من طول الجوع والسهر , التدين الحقيقي ايمان بالله العظيم وشعور بالخلافه عنه بالارض )) وتقبلوا منى وافر الإحترام والتقدير

أخى الكريم ارفق نموذج لتوضيح ما تريد

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

بعد اذن أستاذتى الكريمة / ام عبد الله المعادلة الخاصة بالتقريب =CEILING(FLOOR(A1;0.025);0.25) بإفتراض ان الرقم 1245.15 فى الخلية (A1) ومعادلة التقريب بالخلية (B1) ثم نضع معادلة الفرق معادلة عادية فى الخلية (C1) =A1-B1

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

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

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

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

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

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

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

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

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

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

بعد إذن أستاذى الكبير / الشهابي أخى الكريم/Ahmed Elbeshlawy قمت بعمل نموذج تنبيه صوتى مع رساله تخيير اما الابقاء او الحذف للإدخال بإفتراض ان الحد المطلوب 50000 للنطاق ( f6:f8) النموذج بالمرفقات أتمنى أن يكون به المطلوب وتقبلوا منى وافر الإحترام والتقدير عملاء.rar

او إستخدم هذا الكود وهو للأستاذ القدير / أبو عبد الله وضعه فى حدث الشيت نفسه Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng1 As Range ' Set Rng1 = Range("a4:l2000") If Not Intersect(Target, Rng1) Is Nothing Then ActiveSheet.Protect Password:="123" Else ActiveSheet.Unprotect Password:="123" End If End Sub

أخى الكريم وإليك طريقة أخري لحماية النطاق المطلوب النموذج بالمرفقات وتقبلوا منى وافر الإحترام والتقدير مرفق ..2.rar