علي السحيب

هنا اختصار للكود 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