أبو عادل

اخي الكريم جزاك الله كل خير على الملاحظات وهي : هنا سقطت كلمة للعدد لتصبح العبارة ( الجذر التربيعي للعدد الصحيح الموجب ) والحق معك لأن هذا خطأ علمي أشكرك جزيل الشكر لأنها سقطت سهواً والملاحظة الثانية وهي عندما قلت أخي الكريم بما أنني أستخدم الأعداد التي تنتمي إلى المجموعة ط ( وهي مجموعة الأعداد الطبيعية ) فلا ضرر من كتابة ليس له جذر تربيعي والمقصود ضمناً في المجموعة ط لأن الخلية صغيرة لاأريد أن اكبر تلك الخلية ولاحظ أنني قلت والمقصود بناتج الضرب هنا أي ضمن هذا الجدول هو بعض عناصر من المجموعة ط لأن معلومك أن حاصل ضرب عدد طبيعي في عدد طبيعي فإن الناتج ينتمي إلى ط وعندما يكون ناتج الضرب لعدد طبيعي في نفسه يمثل مربع كامل وبالتالي له جذر تربيعي في ط . والجدول هنا ليخدم فئة من الطلاب لم تتعرف على مجموعة الأعداد الحقيقية ( ح ) وأخيراً هل تعتقد أنه لايمكن إيجاد الجذر التربيعي بإستخدام الجدول السابق لأي عدد ؟؟ نعم يمكن ذلك لأن الكود يوجد الجذر التربيعي لأي عدد ضمن هذا الجدول فمثلا 4 × 6 = 24 ويلاحظ أن الأعداد 4 و 6 و 24 أعداد تنتمي إلى ط وأن العدد 24 ليس مربعاً كاملاً وبالتالي جذره التربيعي = 4.8989794 قيمة تقريبية وهو عدد غير طبيعي (حقيقي) ففي هذه الحالة كيف تريد أن تكون الإجابة لطالب لم يتعرف على مجموعة الأعداد الحقيقية ( أعداد نسبية وأعداد غير نسبية ) ؟ لذلك كتبنا العبارة ( ليس له جذر تربيعي ) لاأريد أن يطول الموضوع حتى لايفقد البرنامج قيمته هذا والله أعلم أشكرك مرة أخرى إنظر المرفق ____________________________.rar

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي الكرام بالحقيقة تم طرح هذا الموضوع من قبل أستاذنا أبو أسامة وهو ضرب عددين ضمن حدود جدول الضرب من 1 إلى 12 وكان العمل رائعاً جداً .وكان الكود كما يلي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 Or Target.Column = 1 Or Target.Row > 13 Or Target.Column > 13 Or Target.Cells.Count > 1 Then Exit Sub With Range("data") .ClearContents .Cells.Interior.ColorIndex = xlNone End With Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44 Range(Cells(Target.Row, 2), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44 Target.Value = Cells(1, Target.Column) * Cells(Target.Row, 1) Target.Interior.ColorIndex = 6 MyZoom = ActiveWindow.Zoom ActiveWindow.Zoom = 120 Application.Wait (Now() + TimeValue("00:00:02")) ActiveWindow.Zoom = MyZoom End Sub أحببت أن أزيد في مجال الأعداد وكان التحديد من 1 إلى 20 ثم خطر على بالي الإستفادة من جدول الضرب وخاصة عند ضرب 1×1 و2×2 و3×3 .......وناتجها هو مربع كامل لتلك الأعدد حيث من الممكن إيجاد الجذر التربيعي الصحيح الموجب لتلك الأعداد فقمت بإضافة عمود في نهاية الجدول يظهر الجذر التربيعي للعدد ويظهر العبارة التالية ( ليس له جذر تربيعي ) في حال ان ناتج الضرب ليس مربعاً كاملاً . طلبت من الأستاذ ابو أسامة كود يظهر العبارة المطلوبة السابقة فقام مشكوراً برفع الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 Or Target.Column = 1 Or Target.Row > 21 Or Target.Column > 21 Or Target.Cells.Count > 1 Then Exit Sub With Range("data") .ClearContents .Cells.Interior.ColorIndex = xlNone End With Range("sqrng").ClearContents Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44 Range(Cells(Target.Row, 2), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44 Target.Value = Cells(1, Target.Column) * Cells(Target.Row, 1) Cells(Target.Row, 22) = Target ^ 0.5 If Cells(Target.Row, 22) - Int(Cells(Target.Row, 22)) <> 0 Then Cells(Target.Row, 22) = "ليس له جذر تربيعي" Else Cells(Target.Row, 22) = Target ^ 0.5 End If Target.Interior.ColorIndex = 6 MyZoom = ActiveWindow.Zoom ActiveWindow.Zoom = 120 Application.Wait (Now() + TimeValue("00:00:01")) ActiveWindow.Zoom = MyZoom End Sub وبما أن المشاركة كانت ضمن مشاركة فرعية أحببت أن اضعها بموضوع جديد حتى يستفاد العدد الأكبر من إخواننا وأخواتنا و فائدة لأولادنا لاتنسوا الدعاء لأخينا وأستاذنا أبو أسامة / وتقبلوا مني خالص التحية أبو عادل حمل الملف من هنا

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

اخي ابو أسامة العزيز يرجى مراجعة المشاركة 21 مع الشكر

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

جزاك الله كل خير أخي أبو أسامة تم عمل اللازم%100 أخي أبو أسامة قمت بعمل بعض التعديلات البسيطة بحيث المدى أصبح من 1 إلى 20 وقمت بإضافة عمود يمثل الجذر التربيعي للعدد الصحيح الموجب لكن توقفت عند مشكلة أرجو ان تكون بسيطة وشرحها في الملف المرفق وجزاك الله كل خير أستاذنا الكريم الملف بالمرفقات 1.rar

الأخ أبو أسامة المحترم ارجو مراجعة المشاركة 8 مع وافر الشكر

أخي الكريم أبو أسامة جزاك الله كل خير على الفكرة الرائعة لأنها تفيد جيل كبير من الأطفال اسأل الله أن تكون في ميزان حسناتك أخوك أبو عادل جربت عمل جدول لوحدي لكن ظهر لي خطأ أرجو المساعدة الملف بالمرفقات 1.rar

بارك الله فيك مهندس صالح

تسلم يديك اخي زياد وبارك الله فيك

أخي زياد علي المحترم يأخي أنا لم أرد على مشاركة الأخ أيسم هذا أولاً وثانيا الرد كان على الأخ goda509129 الرجاء منك قراءة المشاركة جيداً مع جزيل الشكر أخي الحبيب

أخي زياد أشكرك حبيب قلبي لكن أين السؤال الذي وجهته لأخي أيسم ؟؟؟

أخي زياد أكرمك الله على هذه الأداة

أشكرك أخي أحمد عبد العزيز على المعلومة أخي العزيز goda509129 الرجاء عند الكتابة بالمشاركة أن تراجع ماكتبته !!!!!!!!!! إقرأ ماكتبته في العبارة السابقة انا لاأقصد التجريح بقدر الإهتمام بكتابتنا ولغتنا حتى نستطيع الفهم والتفاعل بالنسبة لرفع أي صورة يمكنك عن طريق عدة مواقع لعرض الصورة التي تريد عرضها هنا على الأعضاء إليك أحد المواقع والتي تسجل فيها وتتبع مايلي: بعد التسجيل بالموقع : 1) ترفع الصورة المطلوبة في هذا الموقع من جهازك 2) بعد إنتهاء رفع الصورة يأتيك رابط الصورة فقم بنسخه 3) في شريط الأدوات هنا بالمنتدى توجد أيقونة تحت إسم أضف صورة وعند فتحها إلصق رابط الصورة الذي نسخته من موقع رفع الصور ثم وافق إليك رابط موقع رفع الصور إسمه العملاق http://www.0zz0.com/index.php?pz=41404 أخوك أبو عادل ملاحظة : إذا ماوضحت الطريقة سأشرح لك بالصور

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

السلام عليكم ورحمة الله وبركاته أخي الكريم أهلاً وسهلاً بك أخ عزيز بين إخوانك أولاً الرجاء توضيح التالي وكيف يتم إظهار الصورة في الصفحة الثانية ؟؟؟ مع جزيل الشكر

مجموعة من الشباب المتفاعل ما شاء الله لاقوة إلا بالله

بارك الله فيك استاذ يحيى بإنتظار الشرح

اخي m_127899 جزاك الله كل خير ورزقك الجنة ... أميييييييييييييييين

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

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

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

السلام عليكم الإخوة سالم الشيباني طارق بوش يحيى يوسف عطا m - 127899 جزاكم الله كل خير على الردود تم رفع البرنامج على الرابط الذي وضعه الأخ يوسف مشكوراً والشرح موجود داخل الملف قام به الأخ خالد مخلوف جزاه الله عنا كل خير رابط التحميل هنا

أخي أحمد جزاك الله كل خير على المعلومة وأنا عن نفسي لاأعلمها أخي زياد : ليس من الداعي الإحراج لأخيك أحمد وكلنا نتعلم والتمس لأخيك عذراً هدانا الله لما فيه مرضاته