Ali Mohamed Ali

وعليكم السلام-تفضل Sub DelZeros() Dim c As Range For Each c In Selection If c.Value = 0 Then c.ClearContents Next c End Sub وهذا كود أخر Sub RemoveZeros() Dim Rng As Range For Each Rng In ActiveSheet.UsedRange If Rng.Value2 = 0 Then Rng.ClearContents Next Rng End Sub وأيضا يمكن مسح الخلايا المساوية للصفر وعدم إظهار الصفر وذلك عن طريق : Excel Option ثم Advanced ثم نختار Display Option For this work sheet وبعدين نحذف العلامة من على Show Zero وذلك كما بالصورة بارك الله فيك

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

أهلا وسهلا بك فى المنتدى وعليكم السلام هو المفروض من حضرتك أن ترسل ملف توضح فيه المطلوب ولكنى عملت لك ملفين لعله يفى بالغرض فاختر منه المناسب لك-بارك الله فيك وجزيت خيرا البحث بأى حرف.xls بحث.xlsx

وعليكم السلام أستاذ عادل-المعادلة القديمة مطابقة تماما لما أرسلت من الشرط من قبل ولكن انت الأن غيرت كل الشروط 1/3 أو الثلثين هذا من القيمة الموجودة فى الخلية I4 وبالنسبة للرقم 360 اللى كنا بنقوم بالقسمة عليه غير موجود الأن فى المعادلة والشروط من فضلك أفيدنى بالرد حتى انجز لك المعادلة-بارك الله فيك

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

وعليكم السلام تفضل أخى false.xlsx

جزاك الله كل الخير وبارك الله فيك وغفر لك واحسن خاتمتك وادخلك فسيح جناته وغفر لك ولأحبائك جميعا وجعلك الله زخرا وعطاءاً لنا دائما -أحسنت ودائما إلى الأمام

السلام عليكم أخى الكريم خالد-وفعلا هذه معادلة رائعة جزاك الله كل خير ولكن لابد أن تعدل بما يناسب طلب أخونا علاء وهو يريد أن يكون الحد القصى 130 وليس 135 فالمعادلة بعد التعديل تكون : ROUND(MAX(MIN(7%*D14,130),65),2)=

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

بعد اذن استاذى ومعلمى أحمد جرب هذا الكود Canel_Delete_Sheet.xls

أهلا وسهلا بك فى منتدانا الكريم تفضل أخى طلب مساعده فى اضافه كود الحذف.xlsm

وعليكم السلام جرب هذا من فضلك Copie de احصاء-1.xlsx

السلام عليكم أخ علاء الشكر موصول دائما لأخونا وأستاذنا ومعلمنا زيزو العجوز يمكنك عمل ذلك بنفسك وذلك عن طريق تنسيقات لخلية الناتج وذلك كالتالى : أن تقوم بعمل ضغطة يمين من الماوس وتختار Format Cells ثم بعد ذلك Number وتجعل Decimal Places 2 بارك الله فيكم جميعا وغفر لكم وجعله فى ميزان حسناتكم

وعليكم السلام أخى عادل تفضل ما طلبت برجاء المساعدة فى عمل الداله المرفقة م.xlsx

عذرا عن التأخر تفضل أخى فتح شيت جديد.xlsm

لأن كل البرامج هذه تكون ليست مجانية أى بأشتراك

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

تفضل أخى الفورم.xls

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

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

ممكن تجرب هذا الشيت Reminder HaNcOcK-تذكير بأستحقاق الشيكات.xls وهذا الملف نظرا لكبر حجمه فقد رفعته على موقع خارجى ربما أيضا يفيدك https://up.top4top.net/downloadf-8040f5381-rar.html

جرب هذا أخى Consumption.xlsx

أنا بصراحة عندى الإكسيل 2007 وهى تعمل عندى بكل بساطة -فلا يوجد عندى 2010 كى اجربها لك ولكن لا أعتقد أنها لا تعمل عليه فانها معادلة بسيطة من if ممكن تحاول تستخدم معادلة الأستاذ سليم

وعليكم السلام نفضل أخى احصاء.xlsx

السلام عليكم معلش إتاخرت عليك رجاءا أن تترك رقم الصفحات بالترتيب يبدأ بأى رقم تريده بعد رقم 1 والترتيب بعد ذلك يكون متسلسل ولكم منى جزيل الشكر ترحيل.xlsm