نزار سليمان عيد

السلام عليكم حياك الله اخي شرجاوي سلام كيف حالك وفعلا طالت الغيبة المهم انك بخير والحمدلله اخي الكريم انظر للمرفق ______________________.rar

السلام عليكم اضف الكود ActiveWorkbook.Save مع الشكر ابوخالد

السلام عليكم اخي محمد بصراحة انا دخلت على الموضوع اكثر من مرة ولكن لم استطيع تحديد ماتطلبه على المرفق فاول صفحة صفحة الرواتب فاضية ثاني صفحة بها بيانات ولكن لماذا هذه الصفحة وماعلاقتها بالسابقة وهل هي صفحة التقرير الخاصة بالموظف ام السابقة وهكذا. اخي محمد ارجو الا يصيبك اي احباط وتاكد اننا كلنا هنا اخوة والكل هنا يحاول المساعدة على حسب المقدرة والتفرغ اخيرا وليس آخرا ارجو منك اخي مراجعة الملف وتوضيح المطلوب اكثر لكي تجد الحل ان شاء الله مع الشكر ابو خالد

السلام عليكم بخصوص الدالة Replace فهي من الاسم تعني استبدال =REPLACE(E9,1,1,"") ففي الكود اعلاه بعد كتابة يساوي ثم Replace ثم فتح القوس ثم تحديد الخلية المراد التعديل عليها ثم من اي حرف او رقم يبدأ التعديل فهنا من بداية الرقم الاول يكون التعديل على الرقم الاول وهو حذفه ووضع بدلا منه فراغ "" وفي مثالك المعادلة قامت بحذف الحرف ووضع فراغ بدلا منه لتظهر ارقام =REPLACE(E9,2,4,"") وفي الكود اعلاه نفس الشرح لما سبق ولكن تعديل البداية فمن بداية الرقم الثاني وعدد اربعة ارقام قم بتعديلها الى فراغ "" =REPLACE(D9,2,0,"-") اما في الكود اعلاه يكون التعديل كالاتي فبعد العدد الاول وقبل الرقم الذي يليه قم باضافة "-" ارجو ان يكون الشرح واضح واي جزئية غير واضحة حياك الله اخي باي استفسار مع الشكر لاخي عادل ابو خالد

السلام عليكم مرحبا بك مجددا انظري للمرفق وهو من احد اعمال عملاق المنتدى اخي الحبيب علي السحيب انظري للمرفق ______________________________.rar

السلام عليكم اخي الغريب 1 يمكن عمل ذلك باتباع الخطوات التالية 1- فتح الملف الذي تظهر به رسالة التحديث 2- تذهب للقائمة تختار Edit ثم Link 3- سيظهر مربع حوار تختار المربع الذي على السار 4- يظهر مربع حوار آخر تختار مايناسبك وهو أ- دع المستخدمين يحددون التحديث ام لا ب- لاتظهر رسالة التحديث ولايتم التحديث اتوماتيكيا ج- لاتظهر رسالة التحديث ويتم التحديث اتوماتيكيا ارجو ان يكون الشرح واضح 111.bmp 222.bmp 333.bmp مع الشكر ابو خالد

السلام عليكم مرحبا بك اخي الكريم بين اخوتك في هذا المنتدى الرائع ممكن ان ترسل ملف وتوضح النقاط التي ذكرت عليه وان شاء الله تجد الحل مع الشكر ابو خالد

السلام عليكم اخي الكريم لايوجد حماية كل ماعليك هو الوقوف على اي خلية بها التاريخ ثم الذهاب الى التنسيق الشرطي من خلا شريط الادوات تنسيق ثم تختار تنسيق شرطي فسترى المعادلتين بملف الاخ احمد يعقوب والملف الذي ارسلته واي استفسار اخر نحن حاضرين مع الشكر ابو خالد

اخي الحبيب احمد جزاك الله خيرا ومن تواضع لله رفعه فالحل المرفق من قبلك اسهل وافضل جزاك الله خيرا وجعله بموازين حسناتك شكري وتقديري لشخصك الكريم ابو خالد

السلام عليكم اخي الكريم انظر للمرفق مع الشكر ابو خالد Book555.rar

السلام عليكم جهد مشكور لاخي عادل واخي Bluemind وبالاضافة لحلول الاخوة انظر للمرفق فيه حل عن طريق دالة replace فالمعادلة ادناه تقوم بفصل الحرف عن الرقم اي يظهر الحرف فقط =REPLACE(E2,2,4,"") والمعادلة ادناه تفصل الرقم عن الحرف اي تظهر الارقام فقط =REPLACE(E2,1,1,"") وبنفس الدالة يتم اضافة - بالمعادلة ادناه =REPLACE(A13,2,0,"-") ولمزيد من التوضيح انظر للمرفق مع الشكر ابو خالد to_know.rar

السلام عليكم صباح الخير جزاك الله خيرا اخي عادل ولو سمحت ساضيف المعادلة ادناه وان شاء الله تفي بالغرض المطلوب =COUNTA(A4:J4)-COUNTBLANK(A4:J4)+COUNTBLANK(A4:J4) ولمزيد من التوضيح انظر للمرفق اخي ايمن واي استفسار اعلمني من فضلك مع الشكر ابو خالد COUNTA.rar

اخي الكريم السلام عليكم ممكن ارسال ملف لتوضيح ماتريد فمثلا المعادلة ادناه تقوم بجمع الصفوف الفردية في عمود {=SUM(IF(MOD(ROW(MyRng),2)=1,MyRng,0))} مع الشكر ابو خالد

السلام عليكم بالاضافة لحل اخي عمودي هنا طريقة باستخدام الصفيف وهي تتعامل مع الرقم السالب والموجب المعادلة ادناه على افتراض الرقم موجب {=SUM(VALUE(MID(A10,ROW(A1:OFFSET(A1,LEN(A10)-1,0)),1)))} والمعادلة ادناه لو الرقم سالب تتجاهل الاشارة ويجمع الرقم {=SUM(VALUE(MID(A11,ROW(A2:OFFSET(A2,LEN(A11)-2,0)),1)))} وفي النهاية لا بد من تحرير الخلية التي بها المعادلة وذلك بالضغط على F2 ثم Ctrl+Shift+Enter لتحرير المعادلة مع الشكر ابو خالد

اخي الكريم السلام عليكم انظر للمرفق وهو يقوم باخفاء الصفوف التي تساوي صفر بالعمود F مع مراعاة تكبير المدى بالماكرو بالفقرة ادناه على حسب طلبك فهنا يتم الاخفاء لعشرة سطور واذا اردت ان تزيد غير رقم عشرة ادناه للمدى الذي لديك For A = 1 To 10 مع الشكر ابو خالد ______________________________________F.rar

اخي الكريم لايوجد حد لقاعدة البيانات فهي محددة بالمدى بكامل العمود =OFFSET(Table!$A$4,0,0,COUNTA(Table!$B:$B),4) مع الشكر ابو خالد

السلام عليكم حياك الله اخي حمد وجزاك الله خيرا مع الشكر ابو خالد

آمين يارب العالمين اخي عادل اسعدني مرورك وجزاك الله خيرا اخوك ابو خالد

السلام عليكم اخي mhareek لايوجد مضايقة وحياك الله تم عمل المطلوب واي استفسار اعلمني من فضلك انظر للمرفق مع الشكر ابو خالد _____________________2________________.rar

جزاك الله خيرا اخوك ابو خالد

اخي humad السلام عليكم اولا ما فيه ازعاج و حياك الله في اي وقت اخي الكريم انسخ المعادلة ادناه في الخلية D5 ثم طبق عليها ماتريد انظر للمعادلة ادناه وانسخها في D5 =IF(C5<0,"I",IF((C5>=0)*OR(C5<=39),"F",IF(C5<=44,"D",IF(C5<=49,"D+",IF(C5<=54,"C",IF(C5<=59,"C+",IF(C5<=69,"B",IF(C5<=79,"B +","A")))))))) مع الشكر ابو خالد

السلام عليكم انظر للمرفق مع التأكد من المعادلة لانها لاتعمل الا على اكسيل 2007 لو كان الاكسيل الذي تعمل عليه اقل من 2007 لن تعطيك الدالة اي نتيجة انظر للمرفق ابو خالد ______________________________________________.rar

السلام عليكم انظر للمرفق مع الشكر ابو خالد _____________________2.rar

اخي الكريم السلام عليكم انظر للمرفق وهو من عمل اخي ابوتامر شفاه الله مع الشكر ابو خالد ____________________.rar

السلام عليكم اخي الكريم يتم ذلك بحماية الخلايا التي بها معادلات وذلك باتباع الاتي 1- تظليل الصفحة بالكامل 2- كليك يمين تنسيق خلايا اختيار اول مربع يمين حماية 3- ازالة العلامة ان وجدت بالمربعين (مربع الحماية 7 مربع الاخفاء) 4- تحديد الخلايا التي بها معادلات ثم اتباع الخطوتين السابقتين مع وضع علامة صح بالمربعين 5- من ادوات حماية ستجد ان المعادلات تم حمايتها واخفاؤها عن المستخدم ارجو ان يكون الشرح واضح واي استفسار آخر اعلمني من فضلك مع الشكر ابو خالد