بن علية حاجي

لسلام عليكم ورحمة الله أخي الكريم، هذا أكيد يمكن استثناء اللون الأبيض وإليك الملف المرفق به المطلوب... أخوك بن علية project1_2.rar

السلام عليكم ورحمة الله أخي الكريم هذا الكود وضعه أحد الإخوة الكرام في موضوع سابق، قمت بتغيير طفيف عليه ليعدّ في النطاق المطلوب كل الألوان (حتى الأبيض)، ما عليك إلا كتابة الصيغة في الخلية المطلوبة ووضع النطاق المطلوب كما في المثال بالملف المرفق... بن علية project1_1.rar

أخي وحبيبي هشام، أعتقد أن أخي الكريم أبو أنس قد قام بالواجب، بالنسبة لكيفية عمل هذا (ولا يصلح إلا للجداول) فيكون كما يلي: - اختيار (تحديد) السطر أو الأسطر التي نريد تكرارها - نذهب إلى : جدول Table / خصائص جدول Table Options / سطر Line / تكرار بأعلى كل صفحة كسطر رأس الصفحة repeat at top of each page as a header line (نسخة 2003) ملاحظة: يمكن أيضا القيام بما يلي (في أي إصدار للأوفيس): بعد تحديد (تضليل) السطر أو الأسطر التي نريد تكرارها ننقر باليمين على التحديد نختار في الإطار "خصائص الجدول" Table Options وننفذ الخطوات المذكورة بالأعلى... والله أعلم

السلام عليكم ورحمة الله أخي وحبيبي هشام، أعتقد أن أخي الكريم أبو أنس قد قام بالواجب، بالنسبة لكيفية عمل هذا (ولا يصلح إلا للجداول) فيكون كما يلي: - اختيار (تحديد) السطر أو الأسطر التي نريد تكرارها - نذهب إلى : جدول Table / خصائص جدول Table Options / سطر Line / تكرار بأعلى كل صفحة كسطر رأس الصفحة repeat at top of each page as a header line والله أعلم

السلام عليكم ورحمة الله أخي الكريم، الكود معي يعمل جيدا دون أي مشكل... المشكل عندك يمكن أن يكون في إحدى الحالتين التاليتين: - إما أن يكون "أمان الماكرو" مرتفعا في البرنامج قم بتخفيضه عن طريق : أدوات Outils / ماكرو Macro / أمان Sécurité / منخفض Bas - وإما أن نكون طريقة الحساب يدوية إجعلها آلية عن طريق: أدوات Outils / خصائص Options / حساب Calcul / تلقائي Automatique والله أعلم

السلام عليكم ورحمة الله أخي الكريم، لم أغير في الكود سوى السطر : For I = 1 To Range("A1") بالسطر For I = 1 To Range("A1") Step 2 و Step 2 تعني بالخطوة 2 أي : عوض أن يقوم الكود بتغيير القيمة I بالقيم 1 ، 2 ، 3 ، 4 ... يكون التغيير بالقيم: 1 ، 3 ، 5 ، 7 وهكذا... وفي ورقة الشهادتين جعلت الشهادة الأولى تتعلق بالخلية A3 التي تأخذ قيم I والشهادة الثانية تتعلق بالخلية I3 التي وضعت فيها الصيغة التالية = A3 + 1 وبالتالي لو أخذ I القيمة 1 فقيمة الخلية A3 هي 1 وقيمة الخلية I3 هي 2 وبالتالي نستخرج في صفحة واحدة الشهادتين 1 و 2، وإذا أخذ I القيمة الموالية له وهي 3 تأخذ الخلية A3 القيمة 3 والخلية I3 تأخذ القيمة 3 + 1 أي 4 ونكون بالتالي قد استخرجنا الشهادتين 3 و 4 في الصفحة نفسها وهكذا... والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم أعتقد أن أخي ياسر قام بالواجب وزيادة... وأقدم أيضا هذا التغيير على ملفه في الملف المرفق... بالنسبة لكيفية نسخ هذا العمل على ملفك الخاص فيمكنك ذلك باستعمال المعادلات وكتابتها حسب ما وُضعت في الملفات باستعمال التنسيق الشرطي أو يمكنك تحديد أي خلية من الخلايا في العمود L في هذه الملفات ونسخها في ملفك (الأعمدة K و L و M يجب أن تكون متماثلة في الترتيب في الملفين وليس شرطا أن تكون هي نفسها)... والله أعلم Baraa3.rar

السلام عليكم ورحمة الله أخي الكريم، إذا كان العدد يحوي ثلاثة أرقام بعد الفاصلة يمكن استعمال الملف التالي بالمرفق.... ملاحظة : إذا كنت تريد أن يتم تقريب العدد بعد الفاصلة إلى مضاعف للعدد 10 الأقرب لهذا العدد (مثلا إذا كان العدد 274 وتريده أن يكون 270 أو إذا كان العدد 276 وتريده أن يكون 280) فيجب تغيير الرقم 3 في (Total = Arrondir(Total, 3 بالرقم 2 فيكون (Total = Arrondir(Total, 2 في السطر 113 من الكود في الملف.... بن علية رقم_إلى_نص_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، حلك تجده في خاصية "التنسيق الشرطي للخلايا" كما ذكرت لك... من المفروض أن العمل الذي قمت به في الملف يبقى صحيحا عند فتحه بأي نسخة لإكسيل... المهم أبعث لك الملف مرة أخرى وقد قمت بتغيير إصداره إلى إكسيل 2007 أو 2010 وأتمنى أن يعمل معك... وغيرت أيضا الشرط حسب المطلوب (لأني لم أفهم الشرح الأول)... وبالملف المرفق تجد ملفين أحدهما بإصدار 2003 والآخر بإصدار 2007 أو 2010 أخوك بن علية ayman badr_2.rar

السلام عليكم ورحمة الله أخي الكريم، إن العمل المطلوب تجده في المرفق... عليك قراءة الملاحظات... بالنسبة للشرح حاولت أن أكون أكثر دقة فاعذرني إن لم يكن الشرح وافيا... أخوك بن علية ali_1.rar

السلام عليكم ورحمة الله أخي الكريم، إليك الملف المرفق الذي تريد، وإذا رغبت في تغيير الدينار والدرهم إلى دولاروسنل ما عليك إلا تغيير كلمتا "دينار" بـ "دولار" وكلمتا "درهم" بـ "سنت" في الكود... أخوك بن علية رقم_إلى_نص.rar

السلام عليكم ورحمة الله أخي الكريم الملف المرفق به المطلوب وبعض الأمثلة عن كيفية استعمال الكود بالملف ونتائجها... أخوك بن علية رقم_إلى_نص.rar

السلام عليكم ورحمة الله أخي الكريم، هذا ممكن جدا، يمكنك ذلك باستعمال (مثلا) خاصية "تنسيق شرطي" Mise en forme conditionnelle أو Conditionnel Formatting بالطريقة في الملف المرفق... أخوك بن علية ayman badr_1.rar

السلام عليكم ورحمة الله أخي الكريم، يمكنك ذلك بتطبيق خاصية تنسيق نص على هذه الخلية... تختار (تحديد) الخلية (أو الخلايا) المطلوبة ثم من قائمة الأوامر تختار "تنسيق" Format ثم "خلية" Cell ثم في (رقم Number) ثم تختار خاصية "نص" Text واكتب ماشئت في الخلية أو الخلايا المعنية... والله أعلم

السلام عليكم ورحمة الله أختي الكريمة معذرة على الخلط وهو بسبب بياناتك في Gender: Male، المهم معذرة مرة أخرى... الدالة (مستحدثة) التي تطلبينها مذكورة في موضوع للأخ الكريم عمر الحسيني "أبو ثامر" وقد بناها الأخ الفاضل "أبو هادي" والرابط للموضوع هو : My link أتمنى أن يحالفك الحظ في تحميل هذه الدالة... وفقك الله لكل خير... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم لا أعرف دالة OrdinalNum في إكسيل (ربما تكون دالة مخصصة ومستحدثة) ولكنها غير موجودة... لماذا لا تستعمل الدالة RANK فقط بالطريقة التالية في الخلية C2 ثم تسحبها إلى الأسفل.... =RANK(B2;$B$2:$B$12;1) أخوك بن علية

السلام عليكم ورحمة الله أعتقد أن الكود يكون من الشكل المبسط التالي: If Range("A1").Value > Date Then Range("A2").Value = "hi" ElseIf Range("A1").Value < Date Then Range("A2").Value = "hello" End If ويمكن استعمال دالة IF في الخلية A2 بالشكل التالي: =IF(A1>TODAY();"Hi";IF(A1<TODAY();"Hello";"")) وهذه المعادلة تقوم مقام الكود... والله أعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم كمال، لست أدري إن كان الملف التالي يفي بالغرض أم ستنتظر تدخلات أعضاء آخرين من إخوتنا وأحبتنا الكرام... وقد حولت الملف إلى إصدار 2003 ليتمكن الإخوة من فتحه دون أي عناء... أخوك بن علية example.rar

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

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

السلام عليكم ورحمة الله أخي الكريم kemas هذه الصيغة وضعتها في ردي الأخير ثم بدلتها بالصيغة التالية =IF(AND(B1="غ";OR(A1<40;A1="غ"));"غ";IF(AND(B1>=40;B1<>"غ");40;IF(B1<40;MAX(A1:B1);""))) لأن الصيغة الأولى تعطي نتيجة خاطئة من الشرط الأخير (لو الأولى أقل من 40 والتانية غ الناتج غ) فهي تضع "غ" لما تكون الثانية "غ" ومهما كانت قيمة الأولى "غ" أم "أقل من 40" أم "أكثر من 40"، والشرط يقول الناتج "غ" لما تكون الثانية "غ" والأولى "غ" (في الشرط الأول) أو كانت الأولى أقل من 40 (في الشرط الأخير)... وفي الصيغة الأولى خلل آخر وهو إذا كانت الثانية أقل من 40 والأولى 45 (مثلا) فإنه الناتج يكون (الأكبر) أي 45 وهذا الخلل موجود أيضا في الصيغة الثانية ولم أنتبه له لذا أقوم مرة أخرى وأبدل الصيغة إلى الصيغة التالية: =IF(AND(B1="غ";OR(A1<40;A1="غ"));"غ";IF(AND(B1>=40;B1<>"غ");40;IF(AND(OR(A1<40;A1="غ");B1<40);MAX(A1:B1);""))) (وأعتقد أنها الصحيحة) والصيغة الثانية بعد التصحيح تصبح كاملة ونتائجها هي حسب الشروط الستة، وتعطي فراغا إذا لم تتوفر كل الشروط الستة وتعطي 0 في حالة ما إذا كانت الأولى والثانية فارغتين... والله أعلم

السلام عليكم ورحمة الله أخي الكريم إن الشروط الستة التي وضعتها تتلخص ببساطة إلى ثلاثة شروط فقط (وكلها حسب الثانية) والمعادلة تصبح كالتالي: =IF(AND(B1="غ";OR(A1<40;A1="غ"));"غ";IF(AND(B1>=40;B1<>"غ");40;IF(B1<40;MAX(A1:B1);""))) والله أعلم