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

السلام عليكم بعد الشكر للاماسة الاستاذ محمد صالح ===== هذا حل لما تطلبه قدمه أمبراطور معادلات الصفيف الاستاذ يحيى حسين في موقعه واضعه هنا للفائدة ضع هذه المعادلة في الخلية AG7 ولا تنسى انها معادلة صفيف (Ctrl + Shift +Enter) =INDEX($B$5:$W$5;LARGE(IF(FREQUENCY(IF($B7:$AE7="x";MATCH($B$5:$AE$5;$B$5:$AE$5;0));TRANSPOSE(COLUMN($B7:$AE7)-COLUMN($B7)+1));TRANSPOSE(COLUMN($B7:$AE7)-COLUMN($B7)+1));COLUMNS($B$13:B13))) وهذه المعادلة ستضعها في الخلية AH7 =SUMPRODUCT(--($B7:$AE7="x");--($B$5:$AE$5=$AG7))

بسم الله الرحمن الرحيم أود أولا أن أشكر كل من يتعاون ويساهم في هذه الدورة التي تدل على أن التعاون أساس التقدم وأواصل مع أحبتي الفصل الرابع في دورة فيجوال بيسك التطبيقات vba نموذج كائن الإكسل excel object model مقدمة نظرية البرمجة التقليدية كانت لا تعتمد على أسلوب الكائنات فكان المبرمج يكرر الكثير من الأكواد لتحديد الكائن الذي يعمل عليه ولكن تغير الأمر بظهور البرمجة كائنية التوجه object oriented programming أو اختصاراً oop ولنتعرف أولا على معنى الكائن: الكائن هو وحدة كاملة لها خصائصها وطرقها (أفعالها) فعلى سبيل المثال: الإنسان كائن له خصائصه ومنها اسمه وجنسه وطوله ولون شعره وهكذا وله أيضا أفعاله الخاصة به فالإنسان: يمشي يتحدث يسكت يقف يجلس وهكذا. وكل تطبيق في الأوفيس له نموذج كائن خاص به يمكنك استخدامه من الفيجوال بيسك للتطبيقات vba والتحكم فيه بدءً من التطبيق ككل حتى أي خلية في أي ورقة عمل. ويندرج تحت الكائن الرئيسي كائنات كثيرة فرعية (كخصائص للكائن الأكبر) وكل كائن له خصائصه وله طرقه (أفعاله) ويوجد في الإكسل أكثر من 200 كائن ولهم أكثر من 5000 خاصية وطريقة وبالتالي يصعب تذكرهم جميعاً وهنا يظهر دور مستعرض الكائنات object browser بالضغط على F2 من لوحة المفاتيح ، ويوجد أيضاً ما يسمى بمجموعات الكائنات collections وهي مجموعة من الكائنات التي لها نفس عدد الخصائص والطرق فمثلا: محمد و احمد ومحمود يمكن جمعهم في مجموعة الذكور مثل workbooks للتعامل مع مجموعة المصنفات المفتوحة و worksheets للتعامل مع أوراق عمل المصنف النشط أو أي مصنف يتم تحديده ، ولكن من أهم هذه الكائنات وأكثرها استخداماً: application التطبيق و workbook المصنف و worksheet ورقة العمل و chart التخطيط (الرسم البياني) و range المدى و dialog صندوق حواري. وسوف نتحدث عن كل كائن من هذه الكائنات بصورة مختصرة: * التطبيق application هو أول كائن وكل الكائنات الأخرى أبناء له ويمكن الاستغناء عنه في حالة وجود الخاصية المستعمله أو الطريقة ضمن الكائن عام <globals> في مستعرض الكائنات بمعنى أنه يمكنك استعمال أي من السطرين التاليين للتعامل مع الخلية النشطة. application.activecell أو activecell وبالنسبة للخصائص أو الطرق التي لا توجد ضمن العام <globals> يجب كتابة مسارها كاملاً بهذه الصورة فمثلا: (لإيقاف تحديث الشاشة) Application.ScreenUpdating = False ولن تحصل على النتائج المطلوبة إذا استعملت ScreenUpdating = False ويمكنك البدء في مدارسة خصائص وطرق أي كائن مثل application عملياً بكتابة اسم الكائن في بداية السطر ثم نقطة ستظهر قائمة بكل الخصائص والطرق المتاحة لهذا الكائن. (فقط يلزمك ترجمتها ومعرفة طريقة استخدامها وهذا ما ستتحدث عنه الفصول القادمة إن شاء الله في الدورة) * المصنف workbook للتعامل مع المصنف المفتوح ويمكنك استخدام مجموعة المصنفات workbooks المزيد من المعلومات في الفصل التاسع. * ورقة العمل worksheet للتعامل مع ورقة العمل المحددة ويمكنك استعمال مجموعة worksheets المزيد من المعلومات في الفصل العاشر. * المدى range للتعامل مع أي مدى حتى وإن كان خلية واحدة مثال: (للتعامل مع الخلية a1 ) range(“a1”) المزيد من المعلومات في الفصل 11 * مربع الحوار dialog للتعامل مع مربعات الحوار الموجودة ضمن الإكسل ويمكن استعمال مجموعة dialogs فمثلا لعرض الصندوق الحواري الخاص بحفظ باسم save as نستخدم Application.Dialogs(xlDialogSaveAs).Show المزيد من المعلومات في الفصل 12 * التخطيط chart للتعامل مع الرسم البياني وتحديد خصائصه وأفعاله ممن خلال الكود المزيد في الفصل 13 === للتعامل مع الخصائص نستعمل الصورة العامة التالية: القيمة = الخاصية.الكائن مثال: لتغيير قيمة الخلية a1 إلى رقم 45 range(“a1”).value=45 === للتعامل مع الطرق (الأفعال) نستعمل الصورة العامة التالية: باقي الخيارات الطريقة.الكائن مثال: لنسخ ورقة العمل الأولى بعد الثالثة Worksheets(1).Copy After:=Worksheets(3) === للتعامل مع المجموعات يتم استعمال رقم (مسلسل - ترتيب) الكائن في المجموعة مثال: للتعامل مع ورقة العمل الثانية worksheets(2) ****************************** وبإذن الله في الجانب العملي من هذا الفصل سوف نتناول ما يلي: استخدام مستعرض الكائنات إنشاء كائن تغيير خصائص كائن مقارنة الكائنات استخدام طرق(أفعال ووظائف) كائن عرض صناديق الحوار الموجودة ضمن الإكسل ========= والسلام عليكم ورحمة الله وبركاته

السلام عليكم ما شاء الله عليك اخي ابو نصار مميز ومبدع بحق ............. ..................... مجرد مداخلة لاستخدام الالوان ... هناك خاصيتين تستخدمان للتلوين في الاكسل ( لون الخلية او لون الخط أو ... أو ... ) وهما خاصيتي (Color ,ColorIndex ) الخاصية الاولى والمتعارف عليها هي خاصية (ColorIndex ) وتكون قيمها من 0 الى 65 وهي على النحو التالي : Range("A1").Interior.ColorIndex = 19 اما خاصية (Color ) فهي خاصية اوسع واشمل عند استخدام الامر (RGB) .... جميع الالوان عبارة عن مزج ثلاثة الوان رئيسية وهي الاحمر (Red) و الاخضر (Green) و الازرق (Blue) وبالتالي الامر (RGB) هو مزيج الالوان السابقة (Red, Green, Blue) ويأخذ كل لون من الالوان السابقة القيم من 0 الى 255 وكلما زاد الرقم انخفض حدة اللون (وبلغة الاحتمالات ينتج لدينا أكثر من 16 مليون لون) Range("A2").Interior.Color = RGB(200, 200, 200) ونستطيع معرفة قيمة الارقام المقابلة لاي لون بالذهاب الى صندزق الالوان في الاكسل (لون الخط او لون الخلية) ثم نخنار (More Color) ثم نختار النافذة (custom) وسنجد في الاسفل خاصية (RGB) والارقام الثلاثة المقابلة للون المحدد

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