بن علية حاجي

السلام عليكم ورحمة الله أعتقد أن الكود يكون من الشكل المبسط التالي: 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 يمثل عبارة المعادلة (الأصلية) كلها وأنتظر لمسات الإخوة الكرام في تغيير هذه الأوامر إلى أوامر تلقائية دون المساس بالمعادلات والصيغ... أخوكم بن علية والله أعلم

السلام عليكم ورحمة الله أخي وحبيبي سالم، هذه الطريقة لا تفي بالمطلوب ثم إن نتيجة الدالتين LEFT و RIGHT هي نتيجة نصية وليست رقمية... بالإضافة إلى ذلك إن كانت الأعداد تحوي أكثر من 4 أرقام قبل الفاصلة فإن نتائج الصيغة تكون خاطئة مثلا إذا وضعت العدد 12345.76 تجعلها 1234... والله أعلم

السلام عليكم ورحمة الله أخي الكريم يوسف أعتقد أن الخلل الذي حدث بالموقع مؤخرا قد حذف كل الردود على الموضوع التي قدمناها وقدمها إخوتي الكرام... وسأعيد عليك الكود (الأخير) الذي قدمته في أحد ردودي مع أمل تحسينه من أحد الإخوة الكرام أو إعطاء طريقة أخرى مثل التي قدمها أخي وحبيبي هشام والتي تفي بمطلوبك... والكود هو كالتالي: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If VarType(Target) = 8 Then Target = Target Else If Target - Int(Target) = 0 Then Target = Target Else Target = Round(Target, 1) End If End If End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، بالنسبة لمسح الخلايا دون المساس بالخلايا التي تحوي المعادلات يمكن اتباع الخطوات التالية: 1- تحديد كل نطاق الخلايا -الجدول- (دون العناوين) 2- الضغط على مفتاح F5 3- في النافذة المفتوحة نختار "خلايا" ثم "الثوابت" Constants (ونعين فيها ما نريده) 4- الضغط على OK أو مفتاح ENTER 5- نضغط على مفتاح Suppr أو DEL ويتم المطلوب... بالنسبة لعمل الفرز حسب الفصل فهنا يجب أن يكون أمامنا مثال على ذلك... (في ملف مرفق) بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، يقوم الإكسيل تلقائيا بالتغييرات اللازمة على المعادلات والصيغ بمجرد فتح الملفات المعنية (إلا في حالات خاصة جدا مثل ما وقع لي في ملف الأخ خبور الخاص ببرناج كأس العالم الذي قدمه في نسختين لأن جهازي يحوي إكسيل بالفرنسية وهو قد قام بتسمية بعض النطاقات بالرمز RC9 -مثلا- على شكل نص وليس صيغة وإكسيل عندي لم يقم بتغييرهاإلى LC9 التي يعتمدها جهازي فظهر عندي خلل في جل معادلات البرنامج ولم أجد الخطأ إلا مؤخرا، وهي من الحالات النادرة)... أما إذا قمنا بنسخ الصيغ التي تحوي الفاصلة (الفارزة أو الكومة) من المنتديات على شكل أكواد ثم لصقها في ملفات في أجهزتنا التي تعتمد الفاصلة المنقوطة (الفارزة المنقوطة أو الكومة المنقوطة) فهنا يظهر الخطأ ولا بد من تصحيحها لتتوافق مع أجهزتنا... والله أعلم

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى ما قدمه أخي طارق، أقدم لك الملف التالي وقد استعملت فيه الدوال : LEFT وRIGHT وCOLUMN وCOUNTA... بن علية فرز_أرقام_2.rar

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

السلام عليكم ورحمة الله إليك بالملف المرفق قمت فيه بإضافة معادلة ترتيب بالسطر 2 وباستعمال الدالة HLOOKUP تم المطلوب... بن علية اظهار اول رقم بعد الصفر.rar