جمال عبد السميع

أولا - الحمد لله أن حققت المعادلة ماطلبتة ثانيا - المعادلة هى معادلة " SUMPRODUCT " وهى معادلة صفيف بالرغم أنها المعادلة الوحيدة فى معادلات الصفيف التى لايشترط فيها الضغط على " CTRL+SHIFT+ENTER " كما فى غالبية معادلات الصفيف ثالثا - السؤال الأن ماهى معادلات الصفبف ؟ هى معادلات تقوم بتوليد " MATRIX " أو صفيف من البيانات تقوم بتحويلة إلى قيمتين أساسيتين " TRUE " فى حالة تحقق الشرط ، و " FALSE " فى حالة عدم تحققة ويمكن أن تكون شبيهة بالدالة " AND " كما فى سؤالك ، أى لابد من تحقق الشروط مجتمعة لتحقيق الشرط وتكون فى الغالب بوضع علامة الضرب بين الشروط ويمكن أن تقوم بدور الدالة " OR " أى يكفى تحقق شرط واحد لتحقق الشرط وهنا نستعيض عن علامة الضرب بين الشروط بالعلامة " + " ويمكن توضيح الشرح السابق على معادلتك بالشكل التى تعمل علية المعادلة كمايلى: =SUMPRODUCT(--({FALSE;TRUE;TRUE;TRUE;FALSE;FALSE;FALSE;FALSE;FALSE;FALSE;FALSE;FALSE;FALSE})*({TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;FALSE})) ستجد أن الشرط الأول تحقق 3 مرات حيث كانت " س1 "مكررة 3 مرات فى العمود أما الشرط الثانى وهوشرط وجود البيانت فى العمود ستجد أنة متوفر بالكامل حيث لاتوجد بالعمود خلايا خالية لذلك ستجد أن الشرط تحقق فى كامل العمود وهكذا أرجو أن أكون وفقت فى الشرح تقبل تحياتى

جرب هذه المعادلة وأسحبها إلى اليسار أعتقد ستحقق المطلوب ، لو كنت فهمت السؤال " صح " =SUMPRODUCT(--($F$3:$F$15=K5)*($F$3:$F$15<>"")) تقبل تحياتى

تفضل أخى ماطلبت ونظرا لأن حضرتك تستخدم أوفيس أعلى من 2003 ستكون معادلتك كالأتى: =IFERROR(INDEX(tbl;SMALL(IF((date>=$C$4)*(date<=$D$4);MATCH(ROW(tbl);ROW(tbl));"");ROW(A1));COLUMN(A1));"") مع ملاحظة أن هذه المعادلة معادلة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER " تقبل تحياتى البحث بين تاريخيين.rar

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

أخى " أبو صلاح " تفضل المعادلة لتطبق على OFFICE 2003 =IF(ISERROR(SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1)));"";SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1))) بالطبع المعادلة معادلة صفيف أى لابد من الضغط على ( CTRL+SHIFT+ENTER ) تقبل تحياتى

تفضل أخى طريقة أخرى لعلها تفيد أيضا تقيل تحياتى شهادات ميلاد.rar

ألبك أخى المطلوب ولكن يبدو أن لدى حضرتك مشكلة فى الأسماء ففى خلية الأسم ثلاثى وخلية أخرى رباعى وأخرى خماسى وأعتقد أن هذا خطأ فلابد أن تكون هناك وتيرة واحدة نمشى عليها على العموم أليك المطلوب: B4=TRIM(LEFT(A4;FIND("/";A4)-5)) C4=MID(A4;LEN(B4)+2;LEN(A4)-LEN(B4)-LEN(D4)-5) D4=MID(TRIM(RIGHT(SUBSTITUTE(A4;"/";REPT(" ";99));99));4;99) تقبل تحياتى

تفضل أخى هذه المعادلة ستحقق لك المطلوب =LOOKUP(2;1/($A$2:$A$20=$D$3);B2:B20) تقبل تحياتى

تفضل أخى ماطلبت لو أنى لاأريد الأنخراط فى عمل الكود معلش لأنى ليس لدى أوفيس 2007 البرنامج اللى عندى لايريد عمل " save " للماكرو لذلك تفضل الكود وأضغط على "alt+f11 " ثم "insert "ثم " module " ثم ضع هذا الكود Sub gamal() Dim Rng As Range Dim Dn As Range Dim q As String Dim cols As Variant Dim n As Long 'تغيير الألوان لتناسب cols = Array(0, 1, 3, 4, 5, 6, 7, 38, 46, 50) Set Rng = Range(Range("A1:c4"), Range("A" & Rows.Count).End(xlUp)) For Each Dn In Rng Dn = Replace(Dn, " ", "") q = StrConv(Dn, vbUnicode) Dn = Join(Split(Left(q, Len(q) - 1), vbNullChar), " ") For n = 1 To Len(Dn) With Dn.Characters(n, 1) .Font.ColorIndex = cols(Val(Dn.Characters(n, 1).Text)) .Font.Bold = True End With Next n Next Dn End Sub تقبل تحياتى تغيير لون الرقم.rar

أخى الحبيب " صلاح " ماتريدة لايمكن عملة عن طريق المعادلة لأن مقارنات الجداول تقوم على عنصرين أساسين 1- المقارنة على أساس القيم الأكثر تكرار " أو القيم الأكثر أنتشارا " 2- المقارنة على أساس القيم الفريدة أى القيم " الفريدة فى كلا الجدوليين " أما ماتريدة وفقا للصور لايتم إلا عن طريق " conditional formmating " أو التنسيق الشرطى حيث سيترك الجدول كما هو ويقوم بوضع علامة لونية على الفريد أو الأكثر تكرارا أيضا والله أعلى وأعلم ، و ربما يكون يكون لدى أحد من أعضاء منتدانا حل أخر أو فكرة أخرى أما بخصوص بطأ الجدول فهذا متوقع لأن المعادلة معادلة صفيف ، والصفيف قد يؤدى للبطأ أحيانا لذلك عليك بتسمية النطاقات أو أجزاء المعادلة حتى تكون أسرع تقبل تحياتى

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

أحسنت أخى الحبيب " محمود " عمل جميل ومتقن بارك الله فيك وجعله فى ميزان حسناتك تقبل تحيات : أخيك

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

كود رائع أستاذى " رجب جاويش " تقبل تحياتى

حل أخر بعد الحل الرائع لأختى العزيزة " أم عبد الله " =SUMPRODUCT(--(date>=$E$3)*(date<=$H$3)*(tools=C$4)) وعذرا لبعدى عن المنتدى هذه الأيام لكثرة الأعباء تقبلوا تحياتى 1556.rar

أخى غير " small " إلى " large " ستحقق ماتريد =IF(ISERR(INDEX(C$8:C$47;MATCH(LARGE($D$8:$D$47;ROW(A1));$D$8:$D$47;0)));"";INDEX(C$8:C$47;MATCH(LARGE($D$8:$D$47;ROW(A1));$D$8:$D$47;0))) تقبل تحياتى فرز مخصص حسب التاريخ 2.rar

تفضل أحى ماطلبت فرز مخصص حسب التاريخ.rar

حل أخر بمعادلة غير معادلة الصفيف الموجودة فى المرفق رقم "2#" ضع هذه المعادلة فى فى " E2 " ثم قم بسحبها يمينا ثم إلى أسفل =INDEX(A$2:A$8;MATCH(SMALL($A$2:$A$8;ROW(A1));$A$2:$A$8;0)) تقبل تحياتى ترتيب الأسماء تصاعديا وفقا لرقم القيد.rar

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

هناك طريقة أخى داخل الأكسيل يمكن وضع الصورة بها فى رأس الصفحة بعيدا عن الأكواد والمعادلات وهى أن تتبع الأتى 1- تذهب إلى قائمة " file " / " page stup "/ "header/fo0ter"/"custom header "/ ثم قم بوضع مؤشر الكتابة فى " right " / " left " / center " ثم ستجد زراير أعلى هذه المربعات ستجد إحداها مسئول عن جلب الصورة إضغط عليها ثم قم بعمل " browser " للمكان الموجود به الصورة وهكذا سيتم جلبها وتكرارها فى كل الصفحات أرجو أن تؤدى المطلوب تقبل : تحياتى

ماذا تعنى برأس الصفحة أخى ؟ ياريت مثال ، على ذلك

يبدو إنك لم تنظر إلى كل المعادلات أخى المعادلة الموجودة بالمشاركة "3# " تحقق كل ماتريد بمنتهى البساطة أخى أنا قمت بإضافة المعادلات الأخرى للذى يريد الحلول الأخرى ولكن المعادلة المنوة عنها تحقق ماتريد =TRIM(MID(SUBSTITUTE(SUBSTITUTE($A2;"/";REPT(" ";444));"-";REPT(" ";444));444*COLUMNS($A:A)+1;444)) وإذا أردت أضافة لها شرط لتكتب " لايوجد " فى حالة عدم وجود البيان أستخدم هذه المعادلة =IF(TRIM(MID(SUBSTITUTE(SUBSTITUTE($A3;"/";REPT(" ";444));"-";REPT(" ";444));444*COLUMNS($A:A)+1;444))="";"لايوجد";TRIM(MID(SUBSTITUTE(SUBSTITUTE($A3;"/";REPT(" ";444));"-";REPT(" ";444));444*COLUMNS($A:A)+1;444))) أسف يكفى هذا اليوم لأن عينية تعبت تقبل تحياتى

ماشاء الله عليكى " بارك الله فيكى " بجد شئ يدعو للفخر والإعجاب لوعلمت أن لدى حضرتك هذه المعادلة مارفعت معادلتى تقبلى تحياتى: وطريقة أخرى أيضا بطريقتين للتبسيط فى الخلية " B2 " =SUBSTITUTE(REPLACE(A2;1;FIND("-";A2);"");"/"&C2;"")+0 وفى الخلية " C2 " =REPLACE(A2;1;FIND("/";A2);"")+0 تقبلوا جميعا تحياتى

الطريقة الأبسط للحل يمكن أن تتم بخطوتين أو بمعنى أدق بمعادلتين الأولى فى " B2 " وتكون كالأتى: =MID(A2;FIND("-";A2)+2;FIND("/";A2)-FIND("-";A2)-2) والثانية فى " C2 " وتكون كالأتى: =RIGHT(A2;LEN(A2)-FIND("/";A2)) ثم إسحبهم لإسفل فصل حروف عن أرقام ووضع كلا منهم فى عمود مستقل 2.rar

بارك الله فيك وشكرا على حسن حديثك ومرورك الكريم وبارك الله فيك تقبل تحيات : أخيك