بن علية حاجي

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

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

السلام عليكم ورحمة الله أخي وحبيبي سالم، إخواني الأعزاء، يمكن أيضا حل المشكلة بالطريقة التالية التي تجدها في الرابط التالي في موضوع مشابه (المشاركة رقم 8): الرابط هنا أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم إن ما قدمه أخي الحسامي جميل جدا ورائع يشكر على ذلك، وبالمعادلات الحل لا يختلف كثيرا عن مضمون الكود، باستعمال الدوال IF ، ٌRIGHT ، MOD نتحصل على النتائج نفسها ولكن يبقى الكود هو الأروع... إليك الملف المرفق... التقريب بالمعادلات.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن حل هذه المشكلة باستعمال الدالة TEXT في اكسيل قبل إدراجها في ملف وورد... بالنسبة لمثالك نضع هده الدالة في خلية في إكسيل بالصيغة =TEXT(21.19999999999999;"00.00") ثم ندرج مضمون هذه الخانة في وورد فتظهر النتيجة على الشكل التالي: 21.19 أو 21.20 ملاحظة : هذا الرد هو على سؤال التقريب الذي تقدمتم به وتقدم به أخي وحبيبي "سالم" في موضوع مشابه ومستقل... والموضوع المعني سؤاله من نوع آخر وقد أجبت عليه في رد سابق... والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم لقد شرحت في نص موضوعك ما تعنيه هذه المعادلة، فهي تمنع تكرار مضمون الخلايا في النطاق من F1 إلى F20 فهي تسمح بكتابة مضمون هذه الخلايا مرة واحدة فقط وتعبر عن ذلك الكتابة "1 =" في الصيغة، وإذا أردت أن تسمح الصيغة بإعادة مضمون الخلايا مرتين بدّل =1 بـ =2 وهكذا... والله أعلم

السلام عليكم ورحمة الله أخي الكريم جرب إضافة الجزء التالي إلى الكود في المكان الذي تغير فيه رقم الشهر: =Month(Date) أتمنى أن ينجح الأمر معك... أخوك بن علية

السلام عليكم ورحمة الله لا مشكلة في الإحصاء سواء أكان في الورقة نفسها أو في ورقة أخرى... أخوك بن علية Book1_1.rar

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