علي السحيب

هنا اختصار للكود Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintOut End Sub

استخدم الكود التالي: Sub FindAndReplace() Application.SendKeys ("^f") End Sub

السلام عليكم، من المعروف أن عدد الألوان الموجودة في الإكسل هو 56 لون فقط .. ولكل لون رقم خاص به .. يمكن الإستفادة منه في التحكم في ألوان الخلايا والخطوط عن طريق الكود. والملف المرفق يساعدك في معرفة رقم كل لون من ألوان الإكسل. أتمنى أن يستفيد الجميع منه، ________________________________.rar

الصيغة التالية تخرج لك أسم مقدم أدنى سعر: =IF(M2=F2,E2,IF(M2=I2,H2,IF(M2=L2,K2,""))) شاهد المرفق، _______________________.rar

الصيغة التالية تفي بالغرض: =IF(OR(A13="",B13=""),"",IF(AND(A13>=13000,A13<=15000,B13>=3),40,IF(AND(A13>15000,A13<=20000,B13>=3),80,IF(AND(A13>20000,A13<=30000,B13>=3),120,IF(AND(A13>30000,A13<=40000,B13>=3),160,IF(AND(A13>40000,A13<=50000,B13>=1),200,IF(AND(A13>50000,A13<=60000,B13>=0),240,"")))))))&IF(OR(A13="",B13=""),"",IF(AND(A13>60000,A13<=70000,B13>=0),280,IF(AND(A13>70000,A13<=80000,B13>=0),320,IF(AND(A13>80000,A13<=90000,B13>=0),360,IF(AND(A13>90000,B13>=0),400,""))))) شاهد المرفق، ________IF___AND____________7_____.rar

لمعرفة رقم كل لون من ألوان الإكسل .. راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=14980

راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=9113

السلام عليكم، كما هو معلوم بأننا يمكن أن نغير لون الخلية عند تحقق شرط معين عبر إستخدام خاصية التنسيق الشرطي. ولكن هناك طريقة أخرى يمككننا من خلالها تغيير لون كتابة الخلية عند تحقق شرط معين .. ويكون ذلك عبر وضع الشرط في التنسيق الخاص بالخلية .. وهذه الطريق غير شائعة الإستخدام .. شاهد المرفق، _____________________________________________________.rar

رائع أخي خبور كما أنت دائماً .. أهنئك على هذا الإنجاز المتميز وأعتذر على عدم التجاوب معك بخصوص البرنامج الذي طرحته من قبل وذلك لإزدحام المنتدى بالمواضيع كما ترى.

راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=14101

استخدم هذا التنسيق مع التاريخ [$-2060401]B2ddd

شاهد المرفق، __________________________1427___.rar

تم التعديل على الكود ليتم إضافة المجموع التراكمي، شاهد المرفق، ________________________________2.rar

شاهد المرفق، ________________________________2.rar

شاهد المرفق، ___________.rar

تم التعديل .. شاهد المرفق، ___________________________________.rar

راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=7762

شاهد المرفق، ___________________________________.rar

وعليكم السلام، للتو انتبهت إلى مكان الخلل داخل الصيغة ..وهو أني قمت بالتأشير على الخلية الخاصة بالجنسية بدل الخلية الخاصة بيوم الميلاد .. على كل حال .. تم التعديل على الملف، _______________.rar

شاهد المرفق، __________________2.rar

يمكننا ربط الملف بإسم مستخدم معين أو إسم من قام بإنشاء الملف .. فإذا أختلف أحد هذين المسميين .. يتم إغلاق الملف فوراً .. ما رأيك؟؟

نعم نضع في D1 القيمة الرقمية أو الحرفية التى تساوي الشرط المطلوب تحقيقه، وليس من الضروري وضع علامة = فقط .. فيمكنك وضع = أو > أو < أو >= أو =<. وهكذا .. حاول تطبيق هذه الفكرة على الملف الذي لديك .. وإذا واجهتك أي صعوبات .. ضع الملف والشروط التي تريد تحقيق أي منها هنا.. وسنساعدك بإذن الله.

لأن عدد البيانات كبير جداً (أكثر من 4000 طالب) .. فإن الحصول على النتيجة عن طريق الصيغ سيجعل حجم الملف أكثر من 10 ميجابايت .. لذا قمت ببناء كود برمجي يقوم بنفس المهمة، ويقوم بإعطاء النتائج كلما تم تغيير أي درجة من درجات الطلاب. ويوجد أيضاً زر يحتوي على كود يعمل على إدراج نتائج جميع الطلاب دفعة واحدة . شاهد المرفق، ________________________________2.rar

نعم يمكن ذلك .. كما في الصيغة التالية مثلاً: =IF(OR(SUMIF(A1:A10,D1,B1:B10)=10,SUMIF(A1:A10,D1,B1:B10)=15),1,2) ومثال آخر أيضاً موجود على الرابط التالي .. وفيه تم إستخدام OR مع COUNTIF وليس SUMIF: http://www.officena.net/ib/index.php?showtopic=14655

جميع النتائج صحيحة 100% .. ولكن لابد لك من معرفة شيء مهم عن الدالة DATEDIF .. وهي أنها تقوم بحساب السنوات والشهور والأيام المكتملة فقط .. وإذا أردت إضافة اليوم الحالي والغير مكتمل إلى الأيام المكتملة .. فقط تقوم بإضافة (1+) في نهاية الصيغة الخاصة بحساب الأيام. ولمعرفق المزيد عن الدالة DATEDIF .. راجع المشاركة رقم 2 من الرابط التالي: http://www.officena.net/ib/index.php?showtopic=8616 على كل حال تم التعديل على المرفق .. ليتماشى مع ما تريد، _______________.rar