عبد الفتاح كيرة

وفقك الله يا أخانا salamaxp و إلى الأمام

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

موضوع كله بركة و فائدة عند إجراء تغيير فى آخر خليه بحذفها مثلا فإن موقع آخر خلية يتغير ومع ذلك يعين إكسل مكان الخلية الممسوحة على أنها آخر خلية لأن إكسل لا يعيد أو ينشط حساب عدد الصفوف و الحل فى واحد من اثنين الأول حفظ الملف و غلقه و إعادة فتحه فعند ذلك يعيد إكسل حساب عدد الصفوف الجديد الحل الثانى إضافة السطر التالى فى بدايةالكود x = ActiveSheet.UsedRange.Rows.Count هذا السطر يجبر إكسل على تحديث عدد الصفوف وبالتالى تحديد الموقع الصحيح لآخر خلية الجديد وشكرا للأستاذ طارق على الكود الجيد و المفيد

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

شكرا أخ هشام على الكود الجميل

الحق أننى لم أفهم شيئا بارك الله فيكم

شكرا على جهدك بارك الله فيك

للمتابعة

هذا هو الملف الأول kemasنسخة خاصة لمجموع.zip

هل هذا شيت ابتدائي ؟

جزاك الله خيرا أخى الحسام

أخى الطرابلسي أولا معادلة الأستاذ MAS123 أنا جربتها و تعطى نتائج مقاربة معمول حساب الشهور التى هى 31 فى معادلتى لاحظ +(B5/2 حيث قسمنا عدد الشهور على 2 لأن نصف هذه الشهور = 31

هذا مقارب Private Sub CommandButton1_Click() Range("c4:f50").ClearContents Dim i As Integer For j = 1 To 4 For i = 1 To Val(Me.Controls("TextBox" & j).Text) Cells(i + 3, j + 2).Value = j & " م" & i Next i Next j End Sub

جزاك الله خيرا يا قصى

لا يوجد دور ثان فى الهندسة أو الجبر الدور الثانى فى الرياضيات حتى لو حصل على صفر فى أحد الفرعين و حصل على 6 فى الفرع الثانى وحصل على نصف الدرجة العظمى فهو ناجح و الله أعلم

ممكن هذه =A5+(B5*30)+(B5/2)

أشكرك جدا أخى هشام بارك الله فيك و تحياتى لك

جزاك الله خيرا و نفع بك

للمتابعة حتى تصلنى الردود

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

تشرفت بك أخى بارك الله فيك و هذه هى القناة على يوتيوب بها فديوهات مماثلة هنا

ملف الإكسل المستخدم للشرح نسخ معادلة للكود و تخصيص زر أمر.rar

جزيت خيرا أستاذنا

معذرة يبدو أننا و الأستاذ خبور كتبنا بوقت واحد لعل هذا من الفأل الحسن الأستاذ خبور فى رد واحد قدم لنا كتابا نذاكر فيه إن شاء الله بقية الصيف و مع هذه المذاكرة فالنتائج غير مضمونة زادك الله علما مؤقتا وكدفعة بسيطة لتلميذك ما فائدة هذا السطر المزيد على الكود الذى قدمته للأخ Range("e2:e100").Cells = Range("e2:e100").Value جزاك الله خيرا

تفضل اضغط زر الأمر وانتظر قليلا لأن البيانات كثيرة Test--kemas.zip