اذهب الي المحتوي
أوفيسنا

Ali Mohamed Ali

المشرفين السابقين
  • Posts

    11,621
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    285

كل منشورات العضو Ali Mohamed Ali

  1. السلام عليكم أخ علاء الشكر موصول دائما لأخونا وأستاذنا ومعلمنا زيزو العجوز يمكنك عمل ذلك بنفسك وذلك عن طريق تنسيقات لخلية الناتج وذلك كالتالى : أن تقوم بعمل ضغطة يمين من الماوس وتختار Format Cells ثم بعد ذلك Number وتجعل Decimal Places 2 بارك الله فيكم جميعا وغفر لكم وجعله فى ميزان حسناتكم
  2. وعليكم السلام أخى عادل تفضل ما طلبت برجاء المساعدة فى عمل الداله المرفقة م.xlsx
  3. لأن كل البرامج هذه تكون ليست مجانية أى بأشتراك
  4. أهلا وسهلا بك زميل فى المنتدى ممكن تجرب هذه الملفات وتختار منها ما يناسبك وهناك أيضا موقى فيديو للشرح Printing_Order-النموذج العام لطباعة الشهادات المدرسية.rar عمل الشهادات لأى مرحلة.rar سجل درجات كامل وشهادة مدرسية.xlsm
  5. لقد تم الرد من قبل الأستاذ سليم فى مشاركة أخرى ولكم جزيل الشكر
  6. تغضل اخى هذا من أعمال وإبداعات أستاذنا الكبير زيزو العجوز له منا كل المحبة والفخر والإعتزاز والإحترام جزاه الله كل خير وجعله فى ميزان حسناته وجعله الله دائما وابدا زخرا وعطاء لنا المطلوب اظافة شرط , عدم تجاوز درجة الطالب للدرجة الكبرى للمادة-فى الفورم.xls
  7. ممكن تجرب هذا الشيت Reminder HaNcOcK-تذكير بأستحقاق الشيكات.xls وهذا الملف نظرا لكبر حجمه فقد رفعته على موقع خارجى ربما أيضا يفيدك https://up.top4top.net/downloadf-8040f5381-rar.html
  8. أنا بصراحة عندى الإكسيل 2007 وهى تعمل عندى بكل بساطة -فلا يوجد عندى 2010 كى اجربها لك ولكن لا أعتقد أنها لا تعمل عليه فانها معادلة بسيطة من if ممكن تحاول تستخدم معادلة الأستاذ سليم
  9. السلام عليكم معلش إتاخرت عليك رجاءا أن تترك رقم الصفحات بالترتيب يبدأ بأى رقم تريده بعد رقم 1 والترتيب بعد ذلك يكون متسلسل ولكم منى جزيل الشكر ترحيل.xlsm
  10. طبعا ممكن بس غير اسم الصفحة برقم الموظف وفعلا قابل للزيادة كل ماتحتاج تفتح صفحة جديدة قم بفتحها وسميها برقم الموظف والكود بالفعل سيعمل
  11. السلام عليكم مرحبا بك فى المنتدى الكريم هذا الملف لضريبة كسب العمل- من تصميم خبيرنا فى الإكسيل :الأستاذ محمد الريفى كل السلام والتحية له ضريبة كسب العمل.xlsx
  12. تفضل هذا الملف ولكن لابد أن تقوم يتغيير أسماء الصفحات الى أسماء الموظفين لديك بشكل مساوى لما هو وارد بجهاز البصمة فبناءاً عليه يكون الترحيل من الصفحة الرئيسية الى كل موظف على حده كود ترحيل بدون تكرار من صفحة إلى عدة صفحات.xlsm
  13. تفضل أخى شرح المعادلة يارب يكون كافى وواضح : Book1.xlsx
  14. على سبيل المثال فهذا أول كود : 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
  15. وعليكم السلام أخى مرحبا بك فى منتدانا الكريم لو إفترضنا ان الرقم المستخدم فى المعادلة موجود فى الخلية B1 فالمعادلة كالتالى : IF((B1*28/100)>100,100,(B1*28/100))= بارك الله فيك
  16. وعليكم السلام تفضل هذا اللى توصلت اليه طلب كود لعمل filter لتاريخ.xlsm
  17. ولإثراء الموضوع جرب هذا خطابات الضمان 2018.xls
  18. تفضل الحل بثلاثة معادلات اختر منهم المناسبة لك مساعدة في ايجاد كود او معادلة للبحث والترحيل بشرط معين في ورقة عمل اخرى.xlsm
  19. تفضل أخى خالد لك ما طلبت ولكن نظرا لكبر حجم الملف المرسل فهو ثقيل للغاية يأخذ وقت كثير -فما عليك الا اكمال سحب المعادلة التى وضعتها لك فى العمود إلى الأسفل بارك الله فيك استخرااج العناصر المتشابهه في عمودين.xlsx
×
×
  • اضف...

Important Information