بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم طارف، الصيغة التي وضعها الأخ .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

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

السلام عليكم ورحمة الله أخي الكريم نورسعيد إن الصيغة التي وضعتهاهي صيغة شرطية بالدالة IF =IF(SUMPRODUCT(($J$6:$J6=J6)*($K$6:$K6=K6))<=1;$L6;"") والشرط المطلوب هو SUMPRODUCT(($J$6:$J6=J6)*($K$6:$K6=K6))<=1 وهو يتأكد من عدم تكرار مضمون الخانتين J6 و K6 في النطاقين $J$6:$J6 و $K$6:$K6 على الترتيب (أي من السطر الحالي إلى الأعلى) والصيغة >=1 يمكن جعلها =1 فإنا كان الشرط غير محقق (عدم تكرار الحالة) فإنه يأخذ مضمون الخلية L6 وإذا لم يكن كذلك (تحقق تكرار الحالة) فإن يترك الخلية فارغة ""، هذا بالنسبة لشرح الصيغة أتمنى أني وفقت في الشرح... بالنسبة لطلب أن نكون أصدقاء فنحن في هذا المنتدى إخوة وأصدقاء وأحباب وعائلة واحدة ولا شك في ذلك... بالنسبة للاتصال بي عن طريق الإيميل فهذا ممكن من خلال بياناتي لأني لا أعرف إن كان مسموحا وضع عنوان الإيميل من خلال الردود في المنتدى... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم لازلت لا أفهم المطلوب، وقد اقترحت عليك تقديم مثال تضع فيه المطلوب... رغم ذلك أقدم لك الحل التالي وإن شاء الله الله يكون المطلوب... ألق نظرة على الملف المرفق أدناه... أخوك بن علية Founding and analysing and data processing_VIP_Charpinig_ Empty_2.rar

السلام عليكم ورحمة الله أخي الكريم أقدم لك الفكرة التالية في الملف المرفق ويمكنك تغيير شروط الصيغة المقترحة... أخوك بن علية Book1_1.rar

السلام عليكم ورحمة الله أخي الكريم إن الفيروس يظهر عن بداية تنصيب البرنامج مباشرة وهو من نوع win 32 Sality وقد أعلنه عندي برنامجا AVAST4.8Pro وAVG9 المنصبين في جهازي... المهم قد قمت بالتنبيه لمن أراد أن يحمّّل البرنامج وينصبه... ومنذ عامين يحدث ما يحدث لهذه النسخ من البرامج... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم في الحقيقة لم أفهم المطلوب جيدا ولكن أقدم هذه المحاولة علّها تكون هو المطلوب... وإن لم يكن كذلك فرجاء ضع شرحا مستوفيا للمطلوب من خلال مثال تبين فيه النتيجة المنتظرة... أخوك بن علية Founding and analysing and data processing_VIP_Charpinig_ Empty.rar