بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، أقدم لك الملفين معا في المرفقات إن كنت قد فهمت المطلوب... أخوك بن علية الملفان معا.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);""))) والله أعلم

السلام عليكم ورحمة الله أخي الكريم طارف، الصيغة التي وضعها الأخ .X8 هي كما يلي: =W8&" "&V8&" "&U8&" "&R8&" "&Q8&" "&N8&""&B8&"" والسؤال الذي أطرحه لصاحب الموضوع هو: أين تريد وضع هذا الكود؟ وهل سيوضع في كل الخلايا من العمود؟؟ أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، لقد نسيت أن أعطيك طريقة أخرى لإنشاء هذا النوع من التخطيط سواء أكانت في إكسيل 2003 أم في إكسيل 2007... والطريقة هي كما يلي: 1- نقوم بتحديد جدول القيم التي سنمثلها (ثلاثة أعمدة) 2- نقوم بإدراج تخطيط (مثلا من نوع خطي Courbes) 3- ننقر باليمين على أحد الخطين (المنحنيين) 4- في إطار الحوار نختار (واعذرني على الترجمة) "تنسيق على قيم السلسلة" Mettre en forme une série de donnée أو بالإنجليزية (بتحفظ) Formatting a data series (المهم هو الاختيار الموجود بأسفل الإطار تماما بالنسبة لإكسيل 2007) 5- نغير في الإطار "المحور الرئيسي" Axe principal أو Principal Axis بـ "المحور الثانوي" Axe secondaire أو Secondary Axis ثم نختار "إغلاق" Fermer أي Close أو نضغط على مفتاح Enter أتمنى أن تنجح معك هذه الخطوات... ملاحظة: هذه الخطوات تطبق على أحد الخطين فقط وليس عليهما معا أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إن أمر الجمع الشرطي في Excel 2007 يجب إظهاره من خلال الخطوات التالية: 1- اختيار خاصية "خصائص إكسيل" Options Excel 2- اختيار خاصية وظائف إضافية Complements 3- اختيار "معالج الجمع الشرطي" Conditionnel Sum Assistant والضغط على زر "الوصول" Reach Button 4- اختيار معالج الجمع الشرطي ثم OK 5- وتجد هذا الأمر في قائمة "الصيغ" Formulas في إطار Solutions أنظر الملف المرفق لعله يكون أكثر شرحا... أخوك بن علية شرح تثبيت الجمع الشرطي في إكسيل 2007.rar

السلام عليكم ورحمة الله إعادة الرد لعدم توفر "ميزة الكود" معي في المرة السابقة: أخي الكريم، يمكنك أيضا كتابة الصيغة التالية (بسيطة) في الخلية B12 ثم سحبها إلى الأسفل: =LOOKUP(A12;$A$2:$C$10) أو الصيغة التالية لتجنب الخطأ (في حالة الخلايا الفارغة) =IF(ISERROR(LOOKUP(A12;$A$2:$C$10));LOOKUP(A12;$A$2:$C$10)) وقد قمت بتطبيقهما في الملف المرفق.... والله أعلم الدلالة على القرن.rar

السلام عليكم ورحمة الله أخي الكريم، يمكنك يضا كتابة الصيغة التالية (بسيطة) في الخلية B12 ثم سحبها إلى الأسفل: =LOOKUP(A12;$A$2:$C$10) أو الصيغة لتالية لتجنب الخطأ (في حالة الخلايا الفارغة) =IF(ISERROR(LOOKUP(A12;$A$2:$C$10));LOOKUP(A12;$A$2:$C$10)) والله أعلم

السلام عليكم ورحمة الله أخي الكريم، الآن أفهم عليك المطلوب، إن إكسيل يقدم هذه الخدمة من خلال "إدراج" Insertion ثم "تخطيط" Graphique ثم "أنواع مخصصة" Types personnalisés ثم تختار بين "خطي - أعمدة على محورين" Courbe - Histogramme sur deux axes أو "خطي على محورين" Courbes sur deux axes وتواصل العملية إلى نهايتها (مثل العادة) مع ملاحظة أنه يمكن القيام ببعض التخصيصات الأخرى بعد انتهاء العملية. ومعذرة على المصطلحات بالفرنسية (لأني لا أعرف ما يقابلها بالإنجليزية) وأقدم لك الملف بالمرفق الذي طبقت عليه هذه الخطوات... أرجو أن أكون قد وُفّقت في الشرح... أخوك بن علية Classeur1.rar

السلام عليكم ورحمة الله أخي الكريم الأمر لا يحتاج إلا تحديد الأعمدة المطلوب تمثيلها حتى وإن كانت متباعدة (يمكن استعمال مفتاح Ctrl + الفأرة للتحديد) ثم الضغط على مفتاح F11 (لإدراج مخطط في ورقة مستقلة) أو اتباع خطوات إدراج مخطط بياني (لتخصيص الاختيارات)... أنظر الملف المرفق أين قمت بتحطيط ثلاثة أعمدة (العمود الأول لمحور السينات والأخرين لمحور العينات) ولكن لم أكمل العملية وتركتها لك حتى تتمكن من فهم طريقة التحديد.... أخوك بن علية Classeur1.rar

السلام عليكم ورحمة الله أخي الكريم أعجبني كثيرا ما قمت به، والله رائع جدا هذا التدخل وهذه اللمسة، وهذا ما كنت شخصيا أنتظره من إخوتي الكرام وهذا أيضا هو الطلب المنشود من الأخ يوسف، بارك الله فيك أخي الكريم وجزاك الله خير الجزاء وزادك الله علما وفيرا... ويبقى المشكل الوحيد هو في المعادلات والصيغ المكتوبة في الملفات، فالأكواد التي قدمناها تقوم بمسحها وتعويضها بنتيجتها التي تم تطبيق التنسيق الخاص عليها... وقد قمت بإضافة الأسطر التالية في الكود: If Target.HasFormula Then Target = Target.Formula Else مع End If في نهاية الكود والكود خاصتك يكتب بالشكل التالي (حسب الإضافة الجديدة): Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) For Each Cell In ActiveSheet.UsedRange On Error Resume Next If Cell.Value <> 0 Then If Cell.HasFormula Then Cell = Cell.Formula Else If Cell.Value - Int(Cell) = 0 Then Cell.Value = Round(Cell, 0) Else Cell.Value = Round(Cell, 1) End If End If End If Next End Sub وهذه الأوامر تُبقي على المعادلات والصيغ كما هي (وحتى التنسيق الخاص لا يطبق عليها)... ولم أجد حلا لهذه المشكلة إلا تغيير كل معادلة مكتوبة في الورقة بالشكل التالي: =IF(X-INT(X)=0;X;ROUND(X,1)) حيث X يمثل عبارة المعادلة (الأصلية) كلها وأنتظر لمسات الإخوة الكرام في تغيير هذه الأوامر إلى أوامر تلقائية دون المساس بالمعادلات والصيغ... أخوكم بن علية والله أعلم