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

السّلام عليكم و رحمة الله و بركاته أخي الكريم " بحّار الأكسس " بارك الله فيك و جزاك خير الجزاء على البرنامج الرّائع و المميّز لإنجاز الشّهادات التّقديرية .. لكن حبّذا لو تتكرّم برفع البرنامج مفتوحًا .. صحيح لا أفهم بالاكسس لكن على الأقل سأتعلم من خبرتكم الواسعة بهذا المجال و سأحاول تغيير ربّما بعض العبارات التي لا تليق بي أو بجمعيتي .. كذلك التاريخ لا يظهر كاملا بنفس السطر .. فائق إحتراماتي و إعجاباتي ببرنامجكم المدهش

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

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

أخي الكريم ناصر جرب الملف التالي Sample UDF.rar

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

اهلا بك الاستاذ عبدالعزيز في منتدى الاكسس وتشرفت بالرد ضع التعبير التالي في حقل جديد باستعلام جديد Expr1: DateDiff("yyyy";[birth];Date()) وتم استخدام الدالة datediff لحساب فرق السنوات بين تاريخين حيث اصبح التاريخ الثاني هو دالة تحسب تاريخ اليوم بالتوفيق

برنامج صغير جدا لطباعة شهادات تقدير هدية للاعضاء طباعة شهادات تقدير.rar

و عليكم السلام ورحمة الله و بركاته ... تستطيع عمل حقل في الاستعلام ... فمثلا الحقل الذي تريده اسمه " aadd " تعمل حقل جديد كما يلي aadd2: iif(isnull[aadd];"لا يوجد";[aadd])

الله يحفظك ويبارك لك الاستاذ المحترم عبد السلام أبو العوافي

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

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

حساب العمر.rar إليك الحل أخي عبد العزيز لقد أضفت ذلك في مشاركة سابقة

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

ايه رايكم نفتح تصنيف جديد بالمنتدى ونسميه "اكسسل" مع اجمل التحايا استاذ ياسر

المطلوب: في المرفق وفي sheet(الدليل المحاسبي)عند اختيار اي صف والنقر عليه double click يقوم بنسخ نفسه تحته مباشرة وبجميع التنسيقات والمعادلات : مع فائق شكري وتقديري للاخوه في هذا الصرح العلمي الكبير دليل الحسابات 2016.rar

أعتذر إليك أخي العزيز وائل حدث لبس عندي فاعتقدت أنك تريد مسح النقطة التي في نهاية الجملة وليس وضع النقطة عموماً ملحوقة تفضل الكود التالي Sub Split_It() Dim Arr, I As Long, P As Long Application.ScreenUpdating = False With Sheet1 Arr = .Range("A1").CurrentRegion.Value For I = 1 To UBound(Arr) Sheet2.Cells(P + 1, 1).Value = Application.Trim(Split(Arr(I, 1), ":")(0)) If Right(Split(Arr(I, 1), ":")(1), 1) = "." Then Sheet2.Cells(P + 1, 2).Value = Application.Trim(Split(Arr(I, 1), ":")(1)) Else Sheet2.Cells(P + 1, 2).Value = Application.Trim(Split(Arr(I, 1), ":")(1)) & "." End If P = P + 1 Next I End With Application.ScreenUpdating = False MsgBox "Done...", 64 End Sub تقبل تحياتي Split By Delimiter YasserKhalil V3.rar

احذف (_) من اسم الفنكشن .. اسم الفنكشن يجب ان يكون احرف فقط

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

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

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

لا تعتذر ولا تتأسف فنحن لا نحبك لعلمك وأهتمامك ومتابعتك لنا فقط بل لأدبك وقلبك الأبيض يا أبو البراء توكلت على الله فكانت النتيجة كالعادة ررررررررررررررررررررررررائعة ولكن لا يضع نقطة في نهاية جملة وصف التعريف شكرا لك

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

أخي الكريم سيف الدين إليك الكود التالي يؤدي الغرض إن شاء الله Sub Goal_Seek() With Sheet1 .Range("P5").GoalSeek Goal:=3000, ChangingCell:=.Range("G5") End With End Sub ضع الكود في موديول عادي ، امسح الخلية G5 ، ثم اضغط Alt + F8 واختر الإجراء الفرعي المسمى Goal_Seek ثم انقر زر الأمر Run ..

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

For x = 1 To Range("B" & Rows.Count).End(xlUp).Row السلام عليكم اخي وائل الخطأ كان في النقطة في هذا السطر For x = 1 To Range("B" & .Rows.Count).End(xlUp).Row تحذف فقط النقطة الموجودة بجانب الكلمة : Rows.Count فيصبح هكذا For x = 1 To Range("B" & Rows.Count).End(xlUp).Row

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

وعليكم السلام ورحمة الله وبركاته أخي العزيز أبو حنين رغم أنني لا أحب التعامل مع الطلبات في المشاركات الفرعية إلا أنني سأضع رداً على سؤالك لأنك غائب من فترة ونسيت التوجيهات ... قم بالإطلاع على الرابط التالي ، وركز على الكود الثاني فقد تم إضافته للموضوع للإجابة على سؤالك .. الكود الثاني ستغير رقم 5 في أول الكود إلى 8 .. وهذا بفرض أن المصنف يحتوي على أوراق عمل وتريد اختبار أول 8 ورقات واختبار الخلية A1 الرابط من هنا

Sub AAAAAAAAA() Application.ScreenUpdating = False For x = 1 To Range("B" & .Rows.Count).End(xlUp).Row For i = 1 To Len(Cells(x, 2)) If Mid(Cells(x, 2), i, 1) = ":" Then Cells(x, 1) = Mid(Cells(x, 2), 1, i - 1) & " :" Cells(x, 2) = Mid(Cells(x, 2), i + 1, Len(Cells(x, 2)) - 1) & "." GoTo 1 End If Next i 1 Next x Application.ScreenUpdating = True End Sub السلام عليكم اضافة لما ادلى به اخي سليم و اخي ياسر اعتقد ان هذا الكود ايضا يفي بالغرض

أخي الكريم وائل بناءً على الملف المرفق من قبل أخونا سليم من قبل ..تعاملت مع خلية واحدة فقط وهي الخلية A1 وتم فصل كل جملة ، وفصل كلمة التعريف بكود واحد بسيط جداً ويؤدي الغرض إن شاء الله ولكن انتبه من الأفضل إرفاق ملف معبر عن المطلوب .. سأرفق لك الملف الذي قمت بإعداده وأخبرني إذا كنت تريد التعديل عليه أم لا .. لو كانت البيانات عدة صفوف فلما لا ترفق ملف معبر بعض الشيء عن الملف الأصلي كأن ترفق 5 صفوف مثلاً ..ليتم العمل على هذا الأساس هذا هو الكود المستخدم (لتنفيذ الكود Alt+ F8 واختر الإجراء المسمى SplitIt) Sub SplitIt() Dim Arr, I As Long, P As Long Arr = Split(Range("A1").Value, """") For I = 0 To UBound(Arr) Step 2 P = P + 1 Cells(P + 1, 1).Value = Application.Trim(Split(Arr(I), ":")(0)) Cells(P + 1, 2).Value = Application.Trim(Split(Arr(I), ":")(1)) Next I End Sub وها هو الملف المرفق أيضاً Split By Delimiter YasserKhalil.rar وها هو ملف مرفق آخر حيث التعامل مع أكثر من خلية واحدة .. ضع البيانات في العمود الأول ثم نفذ الأمر وإليك الكود المستخدم Sub SplitIt() Dim Arr, I As Long, P As Long, T As Long, LR As Long LR = Range("A1").CurrentRegion.Rows.Count P = LR + 2 For T = 1 To LR Arr = Split(Cells(T, 1).Value, """") For I = 0 To UBound(Arr) Step 2 Cells(P + 1, 1).Value = Application.Trim(Split(Arr(I), ":")(0)) Cells(P + 1, 2).Value = Application.Trim(Split(Arr(I), ":")(1)) P = P + 1 Next I Next T End Sub أرجو أن يفي بالغرض إن شاء الله تقبل تحياتي Split By Delimiter In Multiple Cells YasserKhalil.rar

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

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

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

بالنسبة لفنح البرنامج خفف امان الماكرو ومرفق ملف وورد لذلك تخفيف امان الماكرو.rar

السلام عليكم اخينا الوحدة النمطية تحوي كلمة سر

أخي الكريم وائل هل التعامل مع خلية واحدة فقط فيها كل البيانات بهذا الشكل ؟ أم أنه يوجد في صفوف كثيرة في العمود الأول بيانات بهذا الشكل ؟؟ وفي حالة إذا كانت الإجابة بنعم في السؤال الثاني فكيف ستكون النتائج المتوقعة .. أعتقد في هذه الحالة الأفضل أن تكون النتائج في ورقة عمل أخرى ..مجرد اقتراح في انتظار ردك تقبل تحياتي

New Microsoft Excel Worksheet1.rar

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

ممكن ارسلى ملف الاكسل لاربطه بالبرنامج وقولى التقارير الى تحتاجه لتفعيل البرنامج و يعمل معك باحسن صورة

أخي الكريم أبو صلاح جرب الكود التالي Sub Copy_Specific_Row() Dim I As Long Application.ScreenUpdating = False For I = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 Range(Cells(I, "A"), Cells(I, "D")).Insert Shift:=xlDown Next I Application.ScreenUpdating = True End Sub نفس فكرة الكود موجودة في الموضوع على الرابط التالي (مع تعديلات بسيطة جداً ليناسب طلبك) الرابط من هنا

السلام عليكم الصحيح ان حقل الباقي من المادة يجب ان يكون محسوب اي غير منضم وبمعنى آخر لا يتم رصده في الجدول وبكذا مهما عدلت على العدد المبيع سيتغير الباقي آليا

بارك الله فيك أخي الكريم عبد السلام وجزاك الله خيراً لجعل الكود مرن ويعمل لأي مستخدم بدون التعديل فيه ، لا يجب وضع المسار لسطح المكتب بهذا الشكل .. جرب الكود التالي Sub Export_PDF_in_most() Dim Str As String Str = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = True Sheets(Array("sheet2")).Select ActiveSheet.ExportAsFixedFormat xlTypePDF, Str & "\ تاريخ " & Sheet2.Range("A1") & ".PDF" Worksheets("sheet2").Select ActiveWindow.DisplayWorkbookTabs = False Application.ScreenUpdating = True End Sub

Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = True Sheets(Array("sheet2")).Select 'محتاج تغيير مسار الحفظ الى سطح المكتب وليس الى نفس مكان تواجد الملف ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\new\Desktop\nam" _ & "\ تاريخ " & n & Sheet2.Range("a1") & ".PDF" Worksheets("sheet2").Select ActiveWindow.DisplayWorkbookTabs = False Application.ScreenUpdating = True لم اجربه .. اتمنى ان يكون صحيح

يمكن استخدام خاصية ScrollBar للمزيد قم بالإطلاع على الرابط التالي الرابط من هنا

غير مصدر الحقل الي تحتاجه ( في التقرير ) من الى

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

السلام عليكم ورحمة الله وبركاته الاخ الفاضل // العنكوش 1 ) جزاك الله خيرا على ذوقك في ردودك 2 ) هما شرطان بالفعل ولكن كان قصدي اقل من 3 مواد فقط ولا يساوي ال 3 3 ) في انتظار طلبات اخرى...

وعليكم السلام ورحمة الله وبركاته جزاك الله عنا اخي وحبيبي محمد الف الف خير وشكرا لابدائك المساعدة وطبعا عمل متقن رغم ما تراه انت فانا اراه رائع بما توصلنا اليه الى الان ولكن كان شرطي درسين او اقل وليس ثلاثة ( ويمتد مدى الخلايا ليشمل O204 اي الدرسين الاخيرين اخي ) فيكون المدى D5:O204 )

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