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

طارق محمود

أوفيسنا
  • Posts

    4,533
  • تاريخ الانضمام

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

  • Days Won

    42

كل منشورات العضو طارق محمود

  1. السلام عليكم أخي العزيز لم أفهم ماتقصد من هذا الطلب إضطررت لاستخدام أعمدة مساعدة أخفيتها ، يمكنك إظهارها بالضغط علي (+) التي في أعلي العمود Z تفضل المرفق ، إن شاء الله به ماتريد منظومة قبول الطلبة3.rar
  2. السلام عليكم أخي الكريم الرمز الأول { } يستخدم في معادلات الصفيف وهو لايكتب مع المعادلة ، هو يتكون أوتوماتيكيا بعد الكتابة المعادلة وضغط Ctrl-Shift-Enter بدلا من Enter وحدها تجد شرح أوفي لهذه الخاصية علي الرابط http://office.microsoft.com/ar-sa/excel-help/HA010228458.aspx?pid=CH100648411025 الرمز الثاني [] يستخدم في الربط بين ملفات مختلفة فأنت تعرف مثلا أنك ممكن تجعل الخلية A1 في Sheet1 ترتبط بالخلية X71 مثلا في Sheet2 بمعني أنك إن وقفت علي الخلية A1 في Sheet1 ثم طبعت = ثم ذهبت بالماوس للخلية X71 مثلا في Sheet2 ثم Enter ستجد المعادلة في الخلية A1 في Sheet1 كالتالي =Sheet2!X71 وهذه العلامة ! التي أضيفت أوتوماتيكيا تدل الإكسل أن الرباط بين هذه الخلية وخلية في ورقة أخري من نفس الملف والآن إذا أعدنا نفس الحوار السابق للربط بين خليتين في ملفين مختلفين (بشرط يكونا مفتوحان كلاهما) ستجد المعادلة أشبه بــ =[Book1]Sheet2!X71 أي أن هذا الرمز [] الذي يضاف أوتوماتيكيا عن الربط بين ملفين يدل الإكسل أن الرباط بين هذه الخلية وخلية في ورقة أخري من ملف آخر غير اللي انت فيه
  3. السلام عليكم أهلا ومرحبا بك أخي الكريم كان لابد من شرح ماتريد أكثر من هذا يبدو أن المطلوب حتي غير واضح في ذهنك جيدا عموما ، أنظر المرفق ، قد يكون هو ماتريد schedule.rar
  4. أخي العزيز يبدو ان عطل المنتدي جعلك لم تنتبه للملف الذي رفعته أنا بالمشاركة #10 من فضلك راجع الملف بالمشاركة #10
  5. ظللهم ثم من دليل الصفوف (اللي فيه رقم الصفوف) إضغط بالماوس علي الفاصل بين أي من الصفوف المظلله ثم إسحب الماوس ولاتترك الضغطة ووسع كما تريد بعد ما تترك الماوس سيتم التنفيذ علي جميع الصفوف المظلله
  6. أخي العزيز أنا رفعت الملف كما قلت مرة سابقة بالرد مشاركة #7 ولكن لعطل بالمنتدي لم يرفع وقد رفعته مرة أخري بالمشاركة #10 ولكن يبدو أنك رددت قبل ان تقرأ ردي #10
  7. أخي العزيز أنا رفعت الملف بالأمس ولكن لعطل بالمنتدي لم يرفع تفضل المرفق مرة أخري PASS OR FAIL3.zip
  8. عفوا أخي ، لم أنتبه في حقل السيد ، ضع المعادلة التالية =OFFSET(out!$H$1,$M$10+$C20-2,0) وفي حقل التاريخ ، ضع المعادلة التالية =OFFSET(out!$B$1,$M$10+$C18-2,0)
  9. السلام عليكم اخي العزيز تستطيع تغيير المعادلة كما كانت أولا وستعمل المعادلة الأخيرة بلامشاكل أنا فقط رأيتها طويلة نسبيا فأحببت تخفيفها باستخدام Vlookup
  10. السلام عليكم أخي الكريم تفضل Invoice.rar
  11. السلام عليكم اهلا ومرحبا بك أخي الكريم بين إخوانك كل عام وانت بخير تفضل المرفق به فيديو للحل وملف إكسل ايضا لكن أنظر الفيديو أولا Transpose.rar
  12. السلام عليكم وبعد إذن اخي العزيز / قنديل الصياد تفضل أخي المرفق PASS OR FAIL2.rar
  13. السلام عليكم أخي الكريم جزاك الله خيرا وأعطاك مثل مادعوت وأكثر إن شاء الله
  14. السلام عليكم أخي العزيز تفضل المرفق به معادلة للشركات الثلاث (إتصالات - موبينيل - فودافون) مع ملاحظة أن البيانات التي أدخلتها انت سابقا لإتصالات وليست موبينيل 999-2.rar
  15. السلام عليكم أخي العزيز أولا حيث ان عدد المواد أصبح 12 ، يجب تغيير سطر في الحلقة الأخيرة For c = S_cl To L_cl llimit = 50 - adds tot_Degrees = Cells(r, c) + Cells(r, c - 5).Value ليكون For c = S_cl To L_cl llimit = 50 - adds tot_Degrees = Cells(r, c) + Cells(r, c - 12).Value ويبدو أنك تنبهت لهذا وحللته بالفعل ثانيا لضمان عدم استعمال الرأفة أكثر من مرة لنفس الطالب يمكنك إضافة حلقة أخري صغيرة إذا كانت إحدي خلايا صف هذا الطالب خضراء فليتجاوزه للصف التالي For c = S_cl To L_cl If Cells(r, c).Interior.ColorIndex = 4 Then GoTo 10 Next c ويكون الكود النهائي هكذا Sub Add_5Degrees() S_cl = Range("result").Column L_cl = Range("result").Columns.Count + S_cl - 1 S_Rw = Range("result").Row L_Rw = Range("result").Rows.Count + S_Rw - 1 For r = S_Rw To L_Rw adds = 5 For c = S_cl To L_cl If Cells(r, c).Interior.ColorIndex = 4 Then GoTo 10 Next c For c = S_cl To L_cl llimit = 24 - adds If Cells(r, c) < 24 And Cells(r, c) >= llimit Then d = 24 - Cells(r, c) Cells(r, c) = 24 adds = adds - d Cells(r, c).Interior.ColorIndex = 4 End If If adds < 1 Then GoTo 10 Next c For c = S_cl To L_cl llimit = 50 - adds tot_Degrees = Cells(r, c) + Cells(r, c - 12).Value If tot_Degrees < 50 And tot_Degrees >= llimit Then d = 50 - tot_Degrees Cells(r, c) = Cells(r, c) + d adds = adds - d Cells(r, c).Interior.ColorIndex = 4 End If If adds < 1 Then GoTo 10 Next c 10 Next r End Sub
  16. السلام عليكم أخي الكريم أولا: حيث أنه بعد الضغط أقل من 2ميجا ، كان ممكن ترفع الملف علي المنتدي (الحد الاقصي للملف الواحد هو : 2ميجا بايت) ثانيا: العيب الأساسي في الملف المؤدي لزيادة الحجم هو عدد المعادلات وطولها خصوصا في 7 ورقات (موردي القطن - موردي سيؤن - موردي صنعاء - عملاء البادية - عملاء المدارس - عملاء حلقات التحفيظ - عملاء اخرون) ففي هذه الورقات تحديدا معادلة مكررة 2475 مرة في كل ورقة وكل معادلة منها علي غرار =IF((OR('القيود اليومية'!C490="a",'القيود اليومية'!C490="b",'القيود اليومية'!C490="c",'القيود اليومية'!C490="d",'القيود اليومية'!C490="e",'القيود اليومية'!C490="f",'القيود اليومية'!C490="g",'القيود اليومية'!C490="h",'القيود اليومية'!C490="i",'القيود اليومية'!C490="j",'القيود اليومية'!C490="k",'القيود اليومية'!C490="l",'القيود اليومية'!C490="m",'القيود اليومية'!C490="n",'القيود اليومية'!C490="o",'القيود اليومية'!C490="p",'القيود اليومية'!C490="q",'القيود اليومية'!C490="s",'القيود اليومية'!C490="t",'القيود اليومية'!C490="u",'القيود اليومية'!C490="w",'القيود اليومية'!C490="x",'القيود اليومية'!C490="y",'القيود اليومية'!C490="z",'القيود اليومية'!C490="aa",'القيود اليومية'!C490="bb",'القيود اليومية'!C490="cc",'القيود اليومية'!C490="dd",'القيود اليومية'!C490="ee",'القيود اليومية'!C490="ff",'القيود اليومية'!C490="gg",'القيود اليومية'!C490="hh",'القيود اليومية'!D490="a",'القيود اليومية'!D490="b",'القيود اليومية'!D490="c",'القيود اليومية'!D490="d",'القيود اليومية'!D490="e",'القيود اليومية'!D490="f",'القيود اليومية'!D490="g",'القيود اليومية'!D490="h",'القيود اليومية'!D490="i",'القيود اليومية'!D490="j",'القيود اليومية'!D490="k",'القيود اليومية'!D490="l",'القيود اليومية'!D490="m",'القيود اليومية'!D490="n",'القيود اليومية'!D490="o",'القيود اليومية'!D490="p",'القيود اليومية'!D490="q",'القيود اليومية'!D490="s",'القيود اليومية'!D490="t",'القيود اليومية'!D490="u",'القيود اليومية'!D490="w",'القيود اليومية'!D490="x",'القيود اليومية'!D490="y",'القيود اليومية'!D490="z",'القيود اليومية'!D490="aa",'القيود اليومية'!D490="bb",'القيود اليومية'!D490="cc",'القيود اليومية'!D490="dd",'القيود اليومية'!D490="ee",'القيود اليومية'!D490="ff",'القيود اليومية'!D490="gg",'القيود اليومية'!D490="hh")),'القيود اليومية'!G490,"") ويمكن اختصارها بالطبع (مثلا استخدام Vlookup) لكن للأسف سيستغرق ذلك وقت طويل لتطويرها لتكون بحجم مناسب وتؤدي نفس الغرض مؤقتا يمكنك استخدام الصيغة xlsb في الحفظ لتقليل الحجم قليلا (4.3MB وبعد الضغط 1.25) انظر المرفق مركز القصر.rar
  17. اين المرفق
  18. جميلة أخي الكريم بارك الله فيك كم هو رائع برنامج الإكسل وكم هي كبيرة إمكاناته
  19. السلام عليكم أخي الكريم إضغط الزر الأسود تفضل المرفق اظافة درجات للمادة2.rar
  20. السلام عليكم أخي الكريم (sasa22584) جاءك العون من ملك المعادلات الأخ الفاضل الكريم بن علية إن شاء الله يكون كما تريد أخي الحبيب / بن علية جزاك الله خيرا وكل عام ونتم بخير إسمح لي أخي الحبيب ، بإضافة بسييييييطة جدا خلية التاريخ في الإيصالات يبدو أنها بتنسيق فرنسي ضبطها وقللت قليلا المساحة بين الإيصالات لأسمح بأكبر نسبة تكبير للصورة المطبوعه جمعية خيرية2.rar
  21. السلام عليكم عندك حق الدالة التالية لاتعمل مع 2003 IFERROR(VLOOKUP($A4,الاجوروالمرتبات,2),"") إستبدلها بالتالية =IF(ISERROR(VLOOKUP($A4,الاجوروالمرتبات,2)),"",VLOOKUP($A4,الاجوروالمرتبات,2)) وانسخها لباقي العمود
  22. السلام عليكم أخي الحبيب / مجدي يونس وأنت وكل الأحباب بخير وصحة وسعادة جزاك الله خيرا
  23. السلام عليكم أخي الكريم أقدر ثقتك الغالية ولكنك الآن خالفت قواعد المشاركة بالمنتدي ============================ عنوان المشاركة 1 . يجب أن يكون عنوان المشاركة يدل على محتواها 2 . ان لا يحتوي على عبارات مثيرة مثل " النجدة " ، "الحقونا 3. كما يمنع منعا باتا توجيه السؤال الي شخص بعينه لان هذا قد يدفع الاخرين الي عدم الاجابة ،و الهدف هو التفاعل من الجميع. ============================ سأغير إسم الموضوع لكيلا نخالف قواعد المشاركة وبالنسبة للحل تفضل المرفق 11new.zip
  24. السلام عليكم أخي العزيز إذا كنت تقصد بالمشكلة عرض العمود فيمكنك توسيعه وإلا ففسر لي ماذا تقصد بــ "عمود الاسم به مشكلة"
×
×
  • اضف...

Important Information