السلام عليكم ورحمة الله وبركاته
اساتذتي الكرام
بعد كل الحب والتقدير
ارجو من زو الخبره في الاكسل
عندي فورم به عدة تكستات محتاج قسمة قيمة كل تكست على عدد الايام المتبقيه في الشهر والنتيجه تهر في نفس التكست
مثال انا عملت المطلوب على تكست 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