جدول الضرب للصغار

[ابو اسامة العينبوسي]

السلام عليكم

مساهمه بسيطه بجدول الضرب للصغار

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

بالاضافه الى رابط لملفات تعليميه للاكسل ( وليس البيسك)

‫ إضغط هنا‬

__________.rar

[خالد القدس]

السلام عليكم

يسعدني أن أكون أول الاقفين للهدية أستاذ أبو أسامة

بارك الله فيك وزادك علما ورفعة شأن

[عبدالله باقشير]

السلام عليكم

[ابو القبطان]

أخي : ابوأسامه

الفكرة رائعة .. والتنفيذ أروع

تسلم الايادي .. وتقبل دعوات أولادي..

[m_127899]

:fff: :fff: :clapping: :clapping:

[m_127899]

الله يرض على الجميع كثروا من هذه النوعية ( برامج تعليمية ) للأطفال تكسبوا فيهم أجر :fff: :fff:

[سالم شباني]

السلام عليكم

حياك الله أستاذ أبو أسامة

برنامج بناسبني شخصيا قبل أولادي

[أبو عادل]

أخي الكريم أبو أسامة

جزاك الله كل خير على الفكرة الرائعة لأنها تفيد جيل كبير من الأطفال

اسأل الله أن تكون في ميزان حسناتك

أخوك أبو عادل

جربت عمل جدول لوحدي لكن ظهر لي خطأ أرجو المساعدة

الملف بالمرفقات

1.rar

تم تعديل يوليو 11, 2009 بواسطه mfawaz

[زياد علي]

السلام عليكم

يسعد صباحك اخي ابواسامة

فعلاً فكرة مميزة ورائعة ،،، هذا هو الجدول الديناميكي فعلاً

ياريت تستمر اخي المبدع في مشاركاتك ،،، ففي الاونة الاخيرة قلت مشاركتك

ومن يدخل على ارشيف المنتدى يجد ابداعاتك شامخة ،،، فيتضاءل دونها

لك مني كل الود والتحية يا استاذي الفاضل

[يحيى حسين]

ما شاء الله عليك

فكرة جميلة و عمل جميل

فلقد نسيت جدول الضرب منذ سنين

[ابو اسامة العينبوسي]

السلام عليكم

الاخوة الافاضل

شكرا لكم جميعا

اخ على زيد لو نظرت الى وقت المشاركة لعذرتنى (الساعة الواحدة فجرا الا دقيقه)

انا مقصر فعلا (لكن هذا ما يسمح به وقتى )

[أبو عادل]

الأخ أبو أسامة المحترم

ارجو مراجعة المشاركة 8 مع وافر الشكر

[ابو اسامة العينبوسي]

السلام عليكم

لانك لم تقم بتسمية مدى

المدى من B2:M13 سمه Data

تم تعديل يوليو 11, 2009 بواسطه ابو اسامة العينبوسي

[زائر]

لفته جميله اخى ابو اسامة

فدائما ما ننسى صغارنا

جزاكم الله كل خير

[رفيق محمد]

يجزاك الله كل الخير يا ابواسامة

تقبل تحياتي

[سمير نجار]

السلام عليكم ورحمة الله وبركاته

كل الشكر لك استاذي الكريم ابو اسامة

[الجزيرة]

طريقة عرض رائعة

شكراً لك مبدعنا أبو أسامة

[أحمد عبدالعزيز]

ما شاء الله

فكره ممتازه وعمل جميل وإبداع رائع

أبناءنا قبلنا فى إنتظار مثل هذه الأعمال المفيده

بالتوفيق دوماًً يا غالى

ولكن لى طلب وهو: رجاء شرح الكود إن أمكن
مع الشكر

[خالد نور]

السلام عليكم ورحمة الله وبركاته

كود جميل وفكرة اجمل

وأبنتى مريم تهديك السلام بس ليها تعليق صغير " مينفعش يتكلم" هههههههههه أى ينطق الرقم

تحياتى لك اخى ابو اسامة واشتقنا اليك

[ابو اسامة العينبوسي]

السلام عليكم

اقر الله بها(مريم ) عينك و اسعدك بها

شكرا لمرورك

و لكل اسرة اوفسينا

[أبو عادل]

جزاك الله كل خير أخي أبو أسامة

تم عمل اللازم%100

أخي أبو أسامة

قمت بعمل بعض التعديلات البسيطة بحيث المدى أصبح من 1 إلى 20

وقمت بإضافة عمود يمثل الجذر التربيعي للعدد الصحيح الموجب

لكن توقفت عند مشكلة أرجو ان تكون بسيطة وشرحها في الملف المرفق

وجزاك الله كل خير أستاذنا الكريم

الملف بالمرفقات

1.rar

تم تعديل يوليو 11, 2009 بواسطه mfawaz

[م.البوريني]

عمل اكثر من رائع ابو اسامة يسلموا الايادي

حياك الله

[أبو عادل]

اخي ابو أسامة العزيز

يرجى مراجعة المشاركة 21

مع الشكر

[ابو اسامة العينبوسي]

السلام عليكم

ممكن

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

_SQRT.rar

تم تعديل يوليو 12, 2009 بواسطه ابو اسامة العينبوسي

[أبو عادل]

بارك الله فيك اخي ابو اسامة

والله إنك أستاذ بكل معنى الكلمة

متستاهل ان يطلق عليك إسم عبقري

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