نجوم المشاركات

أولا - الحمد لله أن حققت المعادلة ماطلبتة ثانيا - المعادلة هى معادلة " 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

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

تفضل أخى طريقة أخرى لعلها تفيد أيضا تقيل تحياتى شهادات ميلاد.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

ممكن انظر الصورة المرفقة

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

هدية العام الهجري الجديد ******************************************* كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت **************************************************************************** السلام عليكم هذا الموضوع مقدم هدية لاساتذة وقادة هذا الصرح العملاق وهو هدية خاصة ( بسيطة جدا جدا ) بمناسبة العام الهجري الجديد للاستاذ القدير العلامة الخبير عبد الله باقشير لأقدم له عرفانا بالجميل لبعض ما تعلمناه منه ونتعلمه دائما بارك الله فيه ... وجزاه الله عنا خيرا وارجو ان ينال الملف اعجابكم تقبلوا خالص تحياتي وكل عام وانتم بخير وسلام وعلي طاعة الله دائما اضافة ازرار باسماء الشيتات وزر للرئيسية في كل شيت.rar

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

قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة السلام عليكم الاساتذة الافاضل اخواني الاعزاء اقدم لكم هذا الملف به قوائم مصممه باستخدام الفورم بطريقة بسيطة وسهله وبها بعض الاوامر علي سبيل المثال ويمكنكم تغييرها بالطبع لتتناسب مع طبيعة وتصميم برنامجكم ... ومن الجدير بالذكر ان الاستاذ الغائب الحاضر / الحسامي ... له ملف رااائع بهذا الموضوع وقوائم ولا اروع ولا احلي من كده وهو اول من قام بهذه الفكرة ( الحقوق محفوظة ) وطبعا هذا الملف بجواره لا شئ ... ولكنني استخدمت اسهل وابسط الطرق الممكنه لعمل ذلك وكنت قد صممتها لاستخدامها في برنامج لدي واحببت ان اطلعكم عليها واطلع علي رأيكم فيها واوجة القصور الموجودة فيها وتجربتها علي اكثر من جهاز قبل العمل النهائي عليها حيث لدي مقاس الشاشة 19" مستطيل Resolution 1366 x 768 نسخة اوفيس 7 اوفيس 2003 ، اوفيس 2007 ارجو ان تنال رضاكم جزاكم الله خيرا قوائم جديدة لاي برنامج تصممه بنفسك.rar

السلام عليكم تحيه طيبه ... لكل اهل المنتدى الكرام مرفق شيت به اصناف لقطع غيار سيارات محتاج انفذ عليه فورم فواتير يسحب من مخزون الصنف وفورم يضيف لمخزون الصنف ... برجاء المساعده 28-4.rar

أخى فى الله الأستاذ القدير // مجدى يونس بارك الله فيكم و نسأل رب العالمين أن أكون عند حسن ظن الجميع بى تقبل منى وافر الاحترام والتقدير

أستاذنا الكبير / مجدي يونس السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على مرورك الكريم الذي يسعدني دائماً . .أسأل الله العلي القدير أن يعطيك الصحة والعافية ويزيدك من علمه وفضله. لك كل التحية والتقدير.

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

اخى احمد السلام عليكم ورحمة الله وبركاته ---------------------------- هذه محاوله بسيطه منى ارجو ان تفى بالغرض خزينة وبنك.rar

تفضل انظر المعيار في الاستعلام داخل التقرير db1.rar

انشاء زر في الصفحة من المطور واربطه بهذا الماكرو Sub sho() UserForm2.Show End Sub الكود السابق لستدهاء الفورم الثاني

لسلام عليكم استعمل هذا الكود Sub Actv() Dim sh As Worksheet: Set sh = Sheet1 Dim lr As Long: lr = sh.Cells(sh.Rows.Count, "M").End(xlUp).Row + 1 Me.TextBox5.Value = sh.Range("B" & lr).Value End Sub كل ما تحتاجه قم باستدعائه فقط مثلا عندما تريد ان تضهر النتيجة في بداية اقلاع الفورم اكتب العبارة call activ في حدث UserForm_Initialize

السلام عليكم اخي الفاضل ابراهيم :: اعتقد المشكلة كانت في عدد الاعمدة وعدم توازي الاعمد وكذالك في اخفاء بعض الاعمدة التي بها معادلات انا اتعلم فيها الان فبارك الله لك وعليك لي سؤال بعد اذنك في الصوره

السلام عليكم أخي فراسكو تفضل الملف به طلبك الأخير =================== أخي الفاضل / محمود_الشريف أخي الفاضل / أبو حنين جزاكما الله كل خير علي المرور الكريم والكلمات العطرة TOTAL_Files3.rar

يتم لك ذلك من خلال التقرير باستخدام خاصية الفرز ، انظر التوضيح في الصورة المرفقة

شرح الطريقة : ( حسب المثال المرفق) لدينا نموذج غير منضم يشتمل على عدة حقول ومربع تحرير مصدره جدول معين ونريد عندما نختار اسما معينا من مربع التحرير ان تظهر بقية بيانات السجل اسم مربع التحرير combo1 واسماء الحقول الاخرى txt1 .. txt2.. txt3...... وهكذا ____________________________________________ لنلقي نظرة على محتويات مربع التحرير الداخلية : - ننقر بزر الفأرة الايمن على مربع التحرير ونختار خصائص - نفتح على لسان التبويب : بيانات - ننقر على النقاط الثلاث التي بجانب القيمة : مصدر الصف سيفتح الاستعلام الذي هو مصدر الصف لمربع التحرير لاحظ ان الاستعلام يحتوي على 8 اعمدة وهي الحقول الموجودة في سجل الجدول معرف العمود الاول = صفر معرف العمود الثاني = 1 معرف العمود الثالث = 2 وهكذا ........ هذه المعرفات سنحتاجها عندما نرغب في جلب البيانات من مربع التحرير _________________________________________ الآن نرجع الى النموذج على عرض التصميم وننقر على مربع التحرير بزر الفأرة الايمن - نفتح على لسان التبويب : حدث - ننقر على النقاط الثلاث التي بجانب القيمة : بعد التحديث سيفتح محرر الفيجوال ونلاحظ وجود سطرين جديدين ننسخ الجملة التالية ونلصقها بين السطرين Me.txt1 = combo1.Column(1) Me.txt2 = combo1.Column(2) Me.txt3 = combo1.Column(3) Me.txt4 = combo1.Column(4) Me.txt5 = combo1.Column(5) Me.txt6 = combo1.Column(6) Me.txt7 = combo1.Column(7) (Me.txt1 = combo1.Column(1 تعني : الحقل الاول في النموذج يساوي الحقل1 في مربع التحرير وهكذا ... امل ان يكون الشرح وافيا db.rar