حساب الربح بين تاريخين

[نايف - م]

السلام عليكم

أريد جمع الأرباح بين تاريحين و في يوم محدد

أرفقت مثال أوضح فيه المطلوب 

و حاولت باستخدام sumifs و لم تنجح

ممكن مساعدة

حساب الربح بين وقتين.rar

[صـدّيـق]

تفضل

حساب الربح بين _وقتين.rar

[نايف - م]

شكرا لردك صديقي المحترم

المطلوب بالأكواد و المجموع يكون بالتكستبوكس في اليوسرفورم

شكرا مرة أخرى

 

[سليم حاصبيا]

جرب هذا الكود

Private Sub CommandButton1_Click()
Dim ws As Worksheet, lr%, i%, s#, p#
Set ws = ThisWorkbook.Sheets("sale")
Dim Const_Time
lr = ws.Cells(Rows.Count, 1).End(3).Row
Const_Time = CDate("11:00:00")
     For i = 1 To lr
        If Range("f" & i) = Const_Time Then
                Exit For
        End If
    Next
    
 For k = i To lr
  p = Range("c" & k) * Range("b" & k)
  s = s + p
Next

Me.TextBox1 = s
Me.TextBox1.Font.Size = 14
End Sub

 

[نايف - م]

شكرا للحل أستاذي سليم

لكنك لم تلحظ اليوم المحدد بالكود

و أنا أريد جمع الأرباح بعد وقت محدد و بالتالي أشارة المساواة هنا غير منطقية 

 If Range("f" & i) = Const_Time Then

كما أنني أريدد جمع الأرباح من العمود D

[سليم حاصبيا]

3 دقائق مضت, نايف - م said:

شكرا للحل أستاذي سليم

لكنك لم تلحظ اليوم المحدد بالكود

و أنا أريد جمع الأرباح بعد وقت محدد و بالتالي أشارة المساواة هنا غير منطقية 

 If Range("f" & i) = Const_Time Then

كما أنني أريدد جمع الأرباح من العمود D

يمكن استبدال = باشارة  =<

[نايف - م]

طيب و شرط اليوم المحدد

[نايف - م]

لقد وضعن شرط اليوم على الشكل التالي :

For i = 2 To lr
        If Range("ae" & i) >= Const_Time And Range("ad" & i) = LL Then
                Exit For
        End If
    Next

LL= date 

لم ينجح