قسمة عدة تكستات

[ابو حمادة]

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

اساتذتي الكرام

بعد كل الحب والتقدير

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

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

مثال انا عملت المطلوب على تكست 1 محتاج كود مختصر يعمل المطلوب لكل التكستات من تكست 28 الى تكست 54

اتمنى قراءة الكود المرفق لفهم المطلوب بالظبط منعا لضياع المجهود والوقت علم ان هذا الكود يقوم بعمل لمطلوب على اكمل وجه ولكن يعمل علي تكست28 فقط اريد بدل مكرر الكود لكل تكست عايز كود مختصر لعمل المطلوب على جميع التكستات

ولكم مني كل الحب والتقدير

كود قسمة.rar

If Me.TextBox28.Value <> "" Then
Me.Text3.Value = Format(Round((Val(Me.TextBox1) - Val(Me.TextBox2)), 2), "0")
Me.TextBox28.Value = Format(Round((Val(Me.TextBox28 / Val(Me.TextBox1)) * Val(Me.TextBox2)), 2), "0.00")
Else
End If

[ابو حمادة]

4 ساعات مضت, ابو حمادة said:

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

اساتذتي الكرام

بعد كل الحب والتقدير

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

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

مثال انا عملت المطلوب على تكست 1 محتاج كود مختصر يعمل المطلوب لكل التكستات من تكست 28 الى تكست 54

اتمنى قراءة الكود المرفق لفهم المطلوب بالظبط منعا لضياع المجهود والوقت علم ان هذا الكود يقوم بعمل لمطلوب على اكمل وجه ولكن يعمل علي تكست28 فقط اريد بدل مكرر الكود لكل تكست عايز كود مختصر لعمل المطلوب على جميع التكستات

ولكم مني كل الحب والتقدير

كود قسمة.rar

If Me.TextBox28.Value <> "" Then
Me.Text3.Value = Format(Round((Val(Me.TextBox1) - Val(Me.TextBox2)), 2), "0")
Me.TextBox28.Value = Format(Round((Val(Me.TextBox28 / Val(Me.TextBox1)) * Val(Me.TextBox2)), 2), "0.00")
Else
End If

السلام عليكم

هو مافيش حد هنا ولا ايه هههههههه

[سمير نجار]

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

تفضل اخي الكريم ابوحمادة

كود قسمة1.rar

[ابو حمادة]

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

عمل متميز حقيقي جزاك الله عنه خيرا