lلمساعدة في عمليات حسابية داخل الفورم

[أبو أدم]

اخواني واستاذتي الأعزاء في هذا الصرح العظيم

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

هذه اول تجربـة لي في الفورم بعد عدة محاولات فاشلة والحمد لله رب العالمين بفضل الله ثم بفضل ما تعلمته منكم

تم الوصول الي عمل مقبول بعض الشيء بالنسبة لمبتدء

بارك الله فيكم

طلبي ورجائي عندكم

لدي بيانات للاشتراكات معينة 

لها تاريخ بداية ويتم تحديد تاريخ الانتهاء بالمعدلات 

وكذلك النسبة مع التقريب 

بالنسبة للمعادلات داخل الشيت انا سويتها

لكن ما ينقصني هو ان تتم تلك العمليات داخل الفورم

وبالمرفق شرح تفصيلي

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

 

الاشتركات.rar

[ضاحي الغريب]

 الأخ العزيز // أبو أدم

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

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

تم عمل المطلوب (العمليات الحسابية ) داخل الفورم 

كما يلي :

الشـرح من الكود

في كود Private Sub ComboBox1_Change()

1- بما ان عدد الشهور = K3

تم اضافة السطر التالي  عدد الشهور (تكست بوكس 3) = الخلية (K39) في الشيت النشط

Me.TextBox3 = ActiveSheet.[K3

2- لحساب النسبة والتقريب لاقرب عدد صحيح تم اضافة السطر التالي مع دالة Ceiling

النسبة بعد التقريب (تكست بوكس 5) = معادلة التقريب (المبلغ (تكست بوكس 5) X (النسبة الموجود بالشيت النشط خلية (j3) ورقم الواحد ليقرب لك الكسر لاقرب واحد صحيح

TextBox6.Value = Application.Ceiling((TextBox5.Value * ActiveSheet.[J3]), 1)

3- للحصول علي اجمالي المبلغ(تكست بوكس 7) =  (المبلغ(تكست بوكس 6)  + النسبة بعد التقريب(تكست بوكس 5) ) تم اضافة السطر التالي

Me.TextBox7 = Val(TextBox6) + Val(TextBox5)

ليصبح الكود النهائي في Private Sub ComboBox1_Change()

Private Sub ComboBox1_Change()
On Error Resume Next
Sheet1.Activate
III = 3
Do Until Sheet1.Cells(III, "A").Text = ""
    If Me.ComboBox1.Text = Sheet1.Cells(III, "A").Text Then
      Cells(III, "A").Activate
        
Me.TextBox1 = ActiveCell.Offset(0, 1).Text
Me.TextBox2 = ActiveCell.Offset(0, 2).Text

Me.TextBox3 = ActiveSheet.[K3]
Me.TextBox4 = ActiveCell.Offset(0, 2).Text
Me.TextBox5 = ActiveCell.Offset(0, 4).Text

TextBox6.Value = Application.Ceiling((TextBox5.Value * ActiveSheet.[J3]), 1)

Me.TextBox7 = Val(TextBox6) + Val(TextBox5)

Exit Sub
    End If
    III = III + 1
Loop

MsgBox ("!!! ÇáÑÞã ÇáÐì ÇÏÎáÊå ÛíÑ ÕÍíÍ")

Me.TextBox1.SetFocus

Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.TextBox5.Text = ""
Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
Spin1.Value = ComboBox1.Text
End Sub

ثانيا للحصول علي فترة انتهاء الاشتراك في حدث Private Sub TextBox4_Change()

 

تم اضافة مايلي 

1- لحساب تاريخ الانتهاء كما يلي

تاريخ الانتهاء (تكست بوكس 4) = اضافة شهر (M) عدد الشهور (تكست بوكس 3) - تاريخ الاشتراك (تكست بوكس 2)

TextBox4.Value = DateAdd("m", TextBox3.Value, TextBox2.Value)

واضافة السطر التالي لتغير فورمات التاريخ يوم / شهر / سنة

TextBox4.Text = Format(TextBox4, "YYYY /MM /DD")

ليكون شكل الكود في حدث  Private Sub TextBox4_Change()

كالتالي

Private Sub TextBox4_Change()

TextBox4.Value = DateAdd("m", TextBox3.Value, TextBox2.Value)

TextBox4.Text = Format(TextBox4, "YYYY /MM /DD")
End Sub

وتم اضافة تنسيق تاريخ الاشتراك  ايضا في تكست بوكس 2

Private Sub TextBox2_Change()

TextBox2.Text = Format(TextBox2, "YYYY/MM /DD")
End Sub

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

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

الاشتركات.rar

[أبو عبد الرحمن سعيد]

أخى العزيز الفاضل / ضاحى " ابوعمرو"

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

مشاركتكم دائما فعاله

على أيديكم أحببت التعامل بالاكواد

وخصوصا أن الموضوع مشفوعا بالشرح

بارك الله فيكم وفى أولادكم

[ضاحي الغريب]

اخي الحبيب أبو سلمي الغالي الأستاذ / سعيد بيرم

مرورك زين الموضوع واعطي له تلك الابتسامة الجميلة التي تظهر مع المشاركة والتي تعكس روحكم وحسكم الرائع

بارك الله فيك واتمني ان اكون عند حسن ظنكم بي

مع اني اسلوبي في الشرح علي قد حاله لكن ان شاء الله اكون قد وصلت الفكرة للاخ السائل

ولايـأتي شيئا امام كلماتك الجميلة ومشاراكتك الخفيفة 

 

ادام الله علينا محبته في سبيله 

تقبل تحياتي

[الصاوي حسن]

جزا الله كل خير استاذ / ضاحي

كما عهدناك سباق إلى مساعدة الاخوة الاعضاء

جعله الله في ميزان حسناتك

[حمادة عمر]

السلام عليكم

يا لروعتك اخي الحبيب

ضاحي الغريب

شرح ولا احلي ولا اروع من كدة

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

[seee2005]

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

[أبو أدم]

اخي الاستاذ/ ضاحي

اعتذر لتاخري في الرد

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

علي هذا المجهود اتبعت الخطوات وقمت بتنفيذها والحمد لله

ربنا يجعله في ميزان حسناتك

[ضاحي الغريب]

الاخ ابو ادم

بارك الله فيك

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

تقبل تحياتي

[ضاحي الغريب]

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

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

[حليم ناصر]

 

بارك الله فيكم

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

                 تقبلو تحياتي