اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

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

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

قام بنشر

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

قام بنشر (معدل)

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

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

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

أخوك أبو عادل

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

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

1.rar

تم تعديل بواسطه mfawaz
قام بنشر

السلام عليكم

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

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

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

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

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

قام بنشر

السلام عليكم

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

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

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

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

قام بنشر

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

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

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

قام بنشر

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

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

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

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

قام بنشر (معدل)

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

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

أخي أبو أسامة

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

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

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

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

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

1.rar

تم تعديل بواسطه mfawaz
قام بنشر (معدل)

السلام عليكم

ممكن

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

تم تعديل بواسطه ابو اسامة العينبوسي
قام بنشر

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information