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

سليم حاصبيا

أوفيسنا
  • Posts

    8,723
  • تاريخ الانضمام

  • Days Won

    262

كل منشورات العضو سليم حاصبيا

  1. تم ادراج زر على كل صفجة من أوراق العمل يرجعك الى الصفحة الرئيسية عسى ان ينال اعجابك التعامل مع اوراق العمل 1.rar
  2. على فرض ام الخلية المعنية هي A1 اكتب احد هاتين المعادلتين و اسحب نزولاً =SUBSTITUTE(a1,"*","")+0 =REPLACE(a1,LEN(a1),1,"")+0
  3. اكتب هذه المعادلة في C5 ثم اسحب نزولاً =IF(B5<>"",ABS(B5-B4),0)
  4. بعد اذنك الاخ ياسر و الاخ صلاح اسمحوا لي بتعليق بسيط الكود جيد من ناحية التطبيق لكنه متغير من حيث الوقت مثلاً لو في اليوم الثاني جرى التلاعب بأي خلية من الخلايا المحفوظة فأن التاريخ والوقت سوف يتغيران هذا رأي و انشاء الله ان اكون مخطئاً
  5. اضغط على افضل اجابة اذا كانت لذلك enter fix date 1.rar
  6. قم بما يلي: file>>>option>>>advanced>>>display>>>show formula bar وضع علامة صح عند هذه الاخير و من وثم OK
  7. اليك هذا الملف ربما يكون لمطلوب برنامج بحث salim.rar
  8. بعد اذنك اخي علاء من حيث النتيجة بالقروش العدد صحيح لكنه بصيغة نص و لا يمكن اجراء اي عملية رياضية عليه (جمع ,طرح ...) *المعادلة الصحيحة بالمرفق فلوس salim.rar
  9. اليك هذا النموذج عما تريده نسخ القيم فقط.rar
  10. لا حاجة لوضع زر الماكرو ينفذ نفسه بنفسه جرب ان تضع اية معادلة في الورقة ثم حاول ان تمسحها او تعدل عليها
  11. انسخ هذا الكود وصعه في حدث الصفحة: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range For Each rng In Target.Cells If rng.HasFormula Then ActiveSheet.Protect Exit Sub Else ActiveSheet.Unprotect End If Next rng End Sub
  12. تم التعديل على الملف لادخال البيانات بيانات مستاجر 1.rar
  13. اثراءً للموضوع اليك هذا الملف حسابات العملاء salim.rar
  14. ربما كان المطلوب بالنسبة للمبالغ يمكن عملها بواسطة معادلات عادية بيانات مستاجر.rar
  15. صباخ الخير للجمبع عسى ان ينال اعجابك اخي محمد ترحيل مع إنشاء صفحات salim.rar
  16. الملف بين يديك اضغط اجبني في حال كان كذلك حسومات.rar
  17. معاك كل الحق اخي ياسر لا لزوم للاثنين معاً في هذه الحالة
  18. استبدل الكود على هذا الشكل: Sub Macro1() Dim cl As Range q = 21: r = 21 For Each cl In Range("O21:O" & [O10000].End(xlUp).Row) If cl.Value = "تنفيذ" Then Range("Q" & q) = cl.Offset(0, -13) Range("R" & r) = cl.Offset(0, -11) q = q + 1: r = r + 1 End If Next End Sub
  19. انت تؤمر حبيب القلب ياسر اربع حلول و يا مين يزيد.rar
  20. زيادة في اثراء الموضوع اقترح هذه المعادلة: =B3-INT(B3/100)*100
  21. اخواني على ابواب الامتحانات احببت ان أقدم لكم شيئاَ مميزا (مرفق ملف وورد لتعليمات التشغيل) علامات التلاميذ 1-نكتب اولاً اسم التلميذ 2- نملأ العلامات في الخانات الخضراء (من خلال الزر Tape يمكن التنقل من خانة الى اخرى دون المرور بالخلايا المحمية) 3- البرنامج يقوم بكل العمليات الحسابية و يعطي المعدلات والمجموع و النتيجة فقط عند امتلاء الخانات المناسبة 4-تختار عدد الصفوف المراد مشاهدتها (حسب الشهر ) ذلك من خلال ادراج رقم الصف في الخلية R4 والضغط على زر أضافة /ازالة صفوف 5- بعد ذلك نضغط على زر جديد أ-يقوم اكسل بادراج صفحة جديدة باسم التلميذ تحتوي على كل العلامات التي سبق و ادرجت ب-يفتح لنا الصفحة الرئيسية فارغة لادراج علامات التلميذ التالي ج- الصفحة الجديدة محمية من التلاعب بها و لا يمكن تغييرها الا من خلال الصفحة الرئيسية د- اذا تكرر اسم التلميذ يعلمك اكسل بذلك و لك حق الاختيار بتبديلها او المحافظة على القديمة (تستعمل حالة التبديل عادة مع قدوم الشهر التالي) 6-النتائج (ناجح/ناجحة/راسب /راسبة ) يمكن التحكم بها من خلال الصفحة الرئيسية –الخلية E1 e1 =1 يعني ذكر و 2 يعني انثى (الرقمان لا يظهران على العلن) 7- يمكنك نسخ البرنامج عدة مرات كل نسخة في مصنف مستقل حسب عدد الصفوف وكتابة اسم الصف الجديد بعد الغاء حماية الصفحة الرئيسية و ثم اعادة حمايتها ملاحطة : الخلايا الملونة في الصفحة الرئيسية تزول الوانها بعد التعبئة notes 1.rar تعليمات التسجيل.rar
  22. انا اتكلم عن الاصدار 2010 اذا لم يكن لديك افعل ما يلي 1- حدد الخلية 2- اذهب الى data validation (لا اعرف ماذا تسمى بالعربية) 3 - مخصص و هناك تجد المطلوب
  23. 1-حدد اي خلية صفراء 2-اضغط Alt+D+L تظهر لك القاعدة بكل سهولة
×
×
  • اضف...

Important Information