تعديل كود حساب

[ابو حمادة]

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

كل عام وانتم  والامه الاسلاميه بخير

رجاء المساعده 

عندي ملف به كود محتاج تعديله  حسب المطلوب

المعيار فى العمود (i) يوجد عمودين كل عمود به قيمه ليتم استخراج النسبه المئويه منهم حسب اختياري من اليوزر فورم 

العمود الاول (Q) 

العمود الثاني (R) 

يوجد تكست بوكس فى اليوزر فورم اسمه (TextBo_05) ودا لتحديد النسبه المئويه

ويوجد ايضا تكست بوكس فى اليوزر فورم اسمه (TextBo_06)  ودا لتحديد قيمة الحد الادنى 

ويوجد ايضا قائمه منسدله اسمه (TexR_01) لاختيار من اريد اضافه النسبه لهم

 المطلوب عند تنشيط (CheckBo_06) يتم حساب قيمة العمود (Q) فى النسبه المئويه واذا كان الناتج اقل من قيمة الحد الادنى يتم اضافه قيمة الحد الادنى على القيمة الموجوده فى العمود (Q)  وان كان ناتج النسبه اكبر من الحد الادنى يتم اضافه الناتج على قيمة العمود (Q) 

واذا تم تنشيط (CheckBo_07) يتم حساب قيمة العمود (R) فى النسبه المئويه واذا كان الناتج اقل من قيمة الحد الادنى يتم اضافه قيمة الحد الادنى على القيمة الموجوده فى العمود (R)  وان كان ناتج النسبه اكبر من الحد الادنى يتم اضافه الناتج على قيمة العمود (R) 

مثال

الحد الادنى 50 جنيه

قيمة العمود  = 100 

النسبه = 10%

يعني اذا تم حساب قيمة العمود فى النسبه  هكذا 100*10% = 10

10 يعني اقل من الحد الادنى وهو 50  الناتج المفروض  = قيمة العمود (Q) + الحد الادنى 50 الناتيج = 150  بدلا من 110

بمعني اخر  

اريد اقول لسطر الحساب

اضرب قيمة العمود(Q) فى النسبه واذا كان الناتج اقل من الحد الادنى يرفع الناتج الى الحد الادنى ويتم جمعه الى قيمة العمود (Q)

اتمنى اكون قدرت اوصل المطلوب

مرفق ملف 

 

Private Sub CommandButton1_Click()
      
      
      Dim ws As Worksheet: Set ws = Sheets("add")
      Dim CL, C2 As Range
      Application.ScreenUpdating = False
' _________________________________________________________________________________
    For Each CL In ws.Range("i6:i" & ws.Range("i" & Rows.Count).End(xlUp).Row)

  If Me.CheckBo_06.Value = True Then
       If CL.Value = Me.TexR_01.Value Then
محتاج تعديل هذا السطر اذا كان ناتج النسبه المئويه اقل من قيمة الحد  الادنى جنيه (50 جنيه) يتم رفعه الى 50 جنيه واضافتها لقيمة العمود (R)
       CL.Offset(0, 9) = Format(Round(CL.Offset(0, 9) + CL.Offset(0, 8) * Me.TextBo_05.Value / 100, 2))
  End If
    Next
' _________________________________________________________________________________
   If Me.CheckBo_07.Value = True Then
   For Each C2 In ws.Range("i6:i" & ws.Range("i" & Rows.Count).End(xlUp).Row)
   If C2.Value = Me.TexR_01.Value Then
محتاج تعديل هذا السطر اذا كان ناتج النسبه المئويه اقل من قيمة الحد  الادنى  (50 جنيه) يتم رفعه الى 50 جنيه واضافتها لقيمة العمود (R)
     C2.Offset(0, 9) = Format(Round(C2.Offset(0, 9) + C2.Offset(0, 9) * Me.TextBo_05.Value / 100, 2))
 
  End If
  Next
     Application.ScreenUpdating = True
 End Sub

Test1.rar

[ابو حمادة]

السلام عليكم

مافيش حد موجود

[ابو حمادة]

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

الموضوع صعب 

ارجو المساعدهمناهل الخبره رجااااااء

المطلوب تعديل هذا السطر

محتاج تعديل هذا السطر اذا كان ناتج النسبه المئويه اقل من قيمة الحد  الادنى  (50 جنيه) يتم رفعه الى 50 جنيه واضافتها لقيمة العمود (R)
     C2.Offset(0, 9) = Format(Round(C2.Offset(0, 9) + C2.Offset(0, 9) * Me.TextBo_05.Value / 100, 2))
 

او ان كان هناك كود اخر ينفذالمطلوب 

؟؟؟؟؟؟؟

[ابو حمادة]

اساتذتى الكرام خبراء الاكسل

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

رجااء المساعده 

واسف عن الحاحى حيث ان الموضوع مهم ومطلوب منى على وجه السرعه