Ali Mohamed Ali

السلام عليكم أخى الكريم خالد-وفعلا هذه معادلة رائعة جزاك الله كل خير ولكن لابد أن تعدل بما يناسب طلب أخونا علاء وهو يريد أن يكون الحد القصى 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

طبعا ممكن بس غير اسم الصفحة برقم الموظف وفعلا قابل للزيادة كل ماتحتاج تفتح صفحة جديدة قم بفتحها وسميها برقم الموظف والكود بالفعل سيعمل

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

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

تفضل أخى شرح المعادلة يارب يكون كافى وواضح : Book1.xlsx

على سبيل المثال فهذا أول كود : Sub ali_Fail_Students() Sheets("ÇáäÇÌÍæä").Range("a6:aq100") = "" Sheets("ÇáäÇÌÍæä").Range("a6:aq100").Interior.ColorIndex = 0 Application.ScreenUpdating = False X = Sheets("ÊÌãíÚí").[e1000].End(xlUp).Row For T = 11 To X Step 3 Y = Sheets("ÇáäÇÌÍæä").[A1000].End(xlUp).Row + 1 If Sheets("ÊÌãíÚí").Range("au" & T).Value = "äÇÌÍ" Then Sheets("ÇáäÇÌÍæä").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value Sheets("ÇáäÇÌÍæä").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value Sheets("ÇáäÇÌÍæä").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value Sheets("ÇáäÇÌÍæä").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value Else End If Next Clear_and_Highlight Application.ScreenUpdating = True End Sub وذلك الكود الثانى : Sub rakan_Fail_Students() Sheets("ÑÇÓÈ").Range("a6:aq100") = "" Sheets("ÑÇÓÈ").Range("a6:aq100").Interior.ColorIndex = 0 Application.ScreenUpdating = False X = Sheets("ÊÌãíÚí").[e1000].End(xlUp).Row For T = 11 To X Step 3 Y = Sheets("ÑÇÓÈ").[A1000].End(xlUp).Row + 1 If Sheets("ÊÌãíÚí").Range("au" & T).Value = "áå ÏæÑ ËÇä Ýì" Then Sheets("ÑÇÓÈ").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value Sheets("ÑÇÓÈ").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value Sheets("ÑÇÓÈ").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value Sheets("ÑÇÓÈ").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value Else End If Next Clear_and_Highlight Application.ScreenUpdating = True End Sub ولدمجهم أو استدعائهم بزر واحد نستخدم هذا الكود الضغير: Sub Test() Call ali_Fail_Students Call rakan_Fail_Students End Sub ملحوظة كود الدمج للنابغة أستاذنا الغالى ياسر خليل أبو البراء جزاه الله كل خير وجعله دائما زخرا لنا وفى ميزان حسناته دائما وهذا مثال أخر لدمج الكواد للعلامة أستاذنا العزيز بن علية حاجي Code Merge.xlsm

وعليكم السلام أخى مرحبا بك فى منتدانا الكريم لو إفترضنا ان الرقم المستخدم فى المعادلة موجود فى الخلية B1 فالمعادلة كالتالى : IF((B1*28/100)>100,100,(B1*28/100))= بارك الله فيك

ممكن تجرب هذا Book1.xlsx