بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم قمت بإضافة شرط بالدالة IF في خانات Sheet2 من الصيغة =sheet1!B3 إلى الصيغة =SI(sheet1!B3="";"";sheet1!B3) وقد استعملت "التنسيق الشرطي" على خلايا الورقتين في العمود الثاني ويضع إطارا (حدودا) لها إذا كانت هذه الخلايا غير فارغة... أتمنى أن يكون هذا هو المطلوب... أخوك بن علية book1.rar

السلام عليكم ورحمة الله وفي الملف المرفق التالي قمت بتغيير صيغة استخراج قائمة الأسماء المكررة، بحيث يُكتب الاسم مرة واحدة ويُذكر حتى الاسم الذي كًتب مرة واحدة في القائمة... وقد احتفظت بالصيغ الأخرى من الملف المرفق في الرد السابق... أخوكم بن علية الاسماء المكررة1.rar

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

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

السلام عليكم ورحمة الله قدمت هذه الدالة لتنويع الإجابات ولكني أفضل التي قدمها أخي وحبيبي هشام لأن دمج الدالتين IF (التي يمكن أن تحوي 8 متغيرات) و CONCATENATE (التي تحوي 30 متغيرا) وبالتالي يكون عدد الشروط التي يمكن الحصول عليها بواسطة استعمال هاتين الدالتين مرة مرة هو 30×8 أي 240 متغيرا (شرطا) وإذا استعملتا أكثر من مرة في صيغة واحدة فالعدد هنا يكون مرتفعا جدا (ولو أنه لا حاجة لنا لكل هذا العدد)... والله أعلم

السلام عليكم ورحمة الله أخي الكريم أقدم لك الملف التالي في المرفق وهو تكملة لعمل الأخ الكريم "مصطفى كمال" (بالمعادلات)... أخوكم بن علية 1_تكملة.rar

السلام عليكم ورحمة الله أخي الكريم بالإضافة إلى ما قدمه أخي وحبيبي هشام (وأستسمحه في استعمال ملفه المرفق) أضيف المثال التالي في الملف المرفق وقد استعملت فيه الدالة CHOOSE حسب الصيغة التالية: =CHOOSE(A2:A15;"يناير";"فبراير";"مارس";"ابريل";"مايو";"يونيه";"يوليه";"اغسطس";"سبتمبر";"اكتوبر";"نوفمبر";"ديسمبر";"منتدى اوفسينا";"منتدى العمالقة") حيث النطاق A2:A15 هو النطاق الشروط... أخوكم بن علية Hisham_hben.rar

السلام عليكم ورحمة الله أخي الكريم "حسن علي" في الصف الأول يحوي في خانته B2 العدد 0 (ضروري) لكي تعمل الدالة بشكل صحيح (ولا ينبغي حذفه) حتى وإن تم إخفاؤه فالخلايا الأخرى تعتمد في الترقيم على هذه الخانة (التي تضع في الخانات التي تليها والتي تم إخفاؤها القيمة 0 وبها يكون ترقيم الخلايا الظاهرة بترتيب تصاعدي من 1)... والله أعلم

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

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم أنور... أعود إليك لتصحيح خطأ طرأ مني في الصيغة السابقة، لم أضع في الحسبان أن تكون كل قيم range معدومة (تساوي 0) لذا أضع وأغير الصيغة السابقة غلى الصيغة التالية (بفرض أن نضع فراغا في حالة انعدام كل قيم النطاق): =IF(COUNTIF(range;"<>0")=0;"";SUMIF(range;"<>0")/COUNTIF(range;"<>0")) وإذا كنت تستعمل إكسيل 2007 فقد تم إضافة دالة تقوم بحساب المعدل بشروط وهي الدالة AVERAGEIF وبالفرنسية MOYENNE.SI ويكون تطبيقها في مثالنا (مع فرض أنه يمكن أن تكون كل قيم النطاق معدومة) وتكون الصيغة كما يلي: =IFERROR(AVERAGEIF(range;">0");"") وبالفرنسية: =SIERREUR(MOYENNE.SI(range;">0");"") والله أعلم

السلام عليكم ورحمة الله أخي الكريم أنور لم تفلح كل هذه الطرق التي اقترحها إخوتي الكرام... غريب!! والله ما قصروا وقد نوعوا الحلول الناجعة وما عليك إلا حيرة الاختيار... وأضيف هذه الطريقة بعد أن أستسمح من كل إخوتي الكرام وأعتقد أنه ما تريده، إستعمل أخي الكريم هذه الصيغة في ملفك وإن شاء الله يكون هذا هو المطلوب... =SUMIF(range;"<>0")/COUNTIF(range;"<>0") range هو النطاق الذي تريده... أخوك بن علية

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

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

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

السلام عليكم ورحمة الله الخطأ وارد لأن عمل INDEX يعتمد على رقمين رقم السطر في القاعدة ومثلته في الصيغة بـ C7 ورقم العمود الذي يمثله رقم ترتيب العمود في قاعدة البيانات (في مثالنا هو رقم من 1 إلى 11 حسب المعلومة المطلوبة) وبما أن C7 هو رقم السطر وهو الرقم الوظيفي لذا فالمعلومات التي تكتب في البطاقة هي معلومات السطر الذي رقمه C7 (على أساس أن الرقم الوظيفي هو رقم تسلسلي تصاعدي)... الآن قمت ببعض التغييرات على القاعدة وعلى البطاقة وعلى الصيغ ليقبل رقما وظيفيا كيفيا حتى وإن لم يكن مرتبا والمثال في الملف المرفق خير دليل على ذلك... أخوك بن علية lordring2.rar

السلام عليكم ورحمة الله بالتأكيد أخي الكريم، يمكنك ذلك وقد وضعت مثالا باستعمال الكود التالي: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A1") = Date Then 'هنا تضع الكود خاصتك ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If End Sub عندما يكون التاريخ في الخلية A1 مساويا لتاريخ اليوم يقوم الكود بتنفيذ الأوامر المكتوبة بين شرط IF ونهاية الشرط END IFوفي المثال جعلته يقوم بالطباعة... والله أعلم

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

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

السلام عليكم ورحمة الله أختي الكريمة لقد تم المطلوب... جعلت كود الطباعة يتحقق أولا من إصدار إكسيل ثم يقوم بالطباعة باعتبار أن أمر الطباعة في إكسيل 2003 يختلف عن أمر الطباعة في إكسيل 2007... (والملف يمكن العمل به في الإصدارين)... أخوك بن علية printing.rar

السلام عليكم ورحمة الله أخي الكريم في الملف المرفق وضعت عمود "الرقم الوظيفي" هو الثاني بعد عمود 'اسم الموظف' وغيّرت الدالة VLOOKUP بالدالة INDEX ويمكنك استعمالها وتغييرها حسب رقم العمود الذي تريد في الموضع الذي تريد... والله أعلم lordring1.rar