نايف - م قام بنشر سبتمبر 30, 2017 مشاركة قام بنشر سبتمبر 30, 2017 السلام عليكم أريد جمع الأرباح بين تاريحين و في يوم محدد أرفقت مثال أوضح فيه المطلوب و حاولت باستخدام sumifs و لم تنجح ممكن مساعدة حساب الربح بين وقتين.rar رابط هذا التعليق شارك More sharing options...
صـدّيـق قام بنشر سبتمبر 30, 2017 مشاركة قام بنشر سبتمبر 30, 2017 تفضل حساب الربح بين _وقتين.rar رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر سبتمبر 30, 2017 الكاتب مشاركة قام بنشر سبتمبر 30, 2017 شكرا لردك صديقي المحترم المطلوب بالأكواد و المجموع يكون بالتكستبوكس في اليوسرفورم شكرا مرة أخرى رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 30, 2017 مشاركة قام بنشر سبتمبر 30, 2017 جرب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر سبتمبر 30, 2017 الكاتب مشاركة قام بنشر سبتمبر 30, 2017 شكرا للحل أستاذي سليم لكنك لم تلحظ اليوم المحدد بالكود و أنا أريد جمع الأرباح بعد وقت محدد و بالتالي أشارة المساواة هنا غير منطقية If Range("f" & i) = Const_Time Then كما أنني أريدد جمع الأرباح من العمود D رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 30, 2017 مشاركة قام بنشر سبتمبر 30, 2017 3 دقائق مضت, نايف - م said: شكرا للحل أستاذي سليم لكنك لم تلحظ اليوم المحدد بالكود و أنا أريد جمع الأرباح بعد وقت محدد و بالتالي أشارة المساواة هنا غير منطقية If Range("f" & i) = Const_Time Then كما أنني أريدد جمع الأرباح من العمود D يمكن استبدال = باشارة =< رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر سبتمبر 30, 2017 الكاتب مشاركة قام بنشر سبتمبر 30, 2017 طيب و شرط اليوم المحدد رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر سبتمبر 30, 2017 الكاتب مشاركة قام بنشر سبتمبر 30, 2017 لقد وضعن شرط اليوم على الشكل التالي : For i = 2 To lr If Range("ae" & i) >= Const_Time And Range("ad" & i) = LL Then Exit For End If Next LL= date لم ينجح رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.