طارق محمود

السلام عليكم أخي الكريم تفضل المرفق اجمالى المبيعات بالاصناف2.rar

السلام عليكم أخي الكريم أنظر المرفق تم حل جزء ثم به بعض الإستفسارات MASTER0_6.rar

السلام عليكم تمام أخي / عمر عابدين جزاك الله خيرا

السلام عليكم مرفق الملف وبه كود الأستاذ عبدالله حفظه الله يعمل جيدا ولامشاكل تجارة.rar

السلام عليكم استخدم المعادلة =SUMIF(A2:A182,">="&F1,B1:B182)-SUMIF(A2:A182,">"&D1,B1:B182) طويلة شوية عشان إكسل 2003 لو 2007 /2010 كان ممكن استخدام SUMIFS

السلام عليكم أخي / سامي أرسل الملف ولو فيه أسرار شغل أو بيانات لاتريد اطلاع احد عليها ، إمسحها وضع بيانات وهمية

السلام عليكم سامحوني إخواني فلم أنتبه للموضوع إلا الآن جزاكم الله خيرا جميعا وندعو الله أن يديم علينا هذه الروح الطيبة <<< شكر خاص >> لصاحب اللافتة الكريمة أخونا الحبيب / محمد مصطفي وكما قال أخي الغالي أبوأحمد ، نحن نرد دين علينا للمنتدى جزاكم الله خيرا جميعا وجمعنا دائما علي طاعته

الحمد والشكر لله معادله int تأتي بالرقم الصحيح لما داخل القوسين مثلا لو داخل القوسين 15÷4 سيكون 3.75 ستأتي بالرقم الصحيح 3 وفي حالتنا هذه داخل القوسين هو (J9-1)/30)+1 J9 أيام التأخير نطرح منها 1 ثم نقسم علي 30 حتي نضمن أن ناتج القسمة أقل من 1 إذا كانت تساوي 30 كما طلبت فيكون الناتج حتي الآن 0 إذا كان التأخير أقل من أو يساوي 30 ثم نضيف 1 فيصبح الناتج النهائي = 1 إذا كان التأخير أقل من أو يساوي 30 ، = 2 إذا كان التأخير أكبر من 30 وفي نفس الوقت أقل من أو يساوي 60 وهكذا

السلام عليكم تفضل أخي الملف المرفق به الحل وبعض الشرح prob2.rar

السلام عليكم الحمد لله أخي الكريم أنا لم أبتكر الطريقة (طريقة إيجاد أفضل خط يصل بين نقاط وتقليل الفروق لأقل مايمكن) ، أنا فقط أذكرها والحمد لله كما درسناها زمااان

السلام عليكم أخي الحبيب / أحمد غانم أخي الحبيب أنت صاحب السؤال قرب لنا ماتريد حتي نتفق علي العمل أنصح بقراءة الموضوع التالي بتمعن ، ستجد فيه إن شاء الله كثير مما تريد http://www.officena.net/ib/index.php?showtopic=30404&st=0 ثم إذا استقر ذهنك علي شكل محدد لإدخل البيانات أو كيفما تريد ستجدنا جميعا معك

السلام عليكم أخي العزيز / عمر عابدين ماشاء الله ، ملاحظة ممتازة فعلا ، لو لم تكن البايانات مرتبة تاريخيا (كما هو معتاد) لأعطت نتائج خاطئة أشكرك كثيرا علي التفاعل والمشاركة الجيدة وحيث أننا تفرعنا ، فمازال أمامنا عقبتان الأولي : أن من ليس لديه أوفيس 2007/ 2010 ، لن يستطيع استخدام SUMIFS _______________ وهذه ممكن التغلب عليها بـ SUMPRODUCT الثانية : لو استخدمنا معادلة SUMIFS / DMAX في حالة أن آخر يوم تم الشراء بفاتورتين حتي لو بنفس السعر سيتضاعف السعر الناتج من المعادلة ​_______________ وهذه أعتقد أنه بتعديل طفيف علي كود أخونا عبدالله يمكن ضبطها أو ننتظر المزيد من المشاركات

السلام عليكم أخي الكريم تفضل المرفق 12_2.rar

السلام عليكم أخي العزيز تفضل المرفق وبه الشرح Extarvascular Dose2.rar

السلام عليكم قف علي الزر ثم اضغط يمين الماوس إختر Proparities وليس Formate Control ثم من القائمة التي ستظهر إختر BackColor من السهم المجاور لها سيظهر لك خياران إختر Palette

السلام عليكم الموضوع يحتاج للتنشيط مرة أخري اليوم سأتعرف معكم علي المسألة الثالثة ماذ تفعل لو - المسألة الثالثة ماذ تفعل لو أردت الحصول علي آخر (أحدث) سعر / بيان سأستعين بإحدي مشاركات الأعضاء بالمنتدي ، لشرح هذه المسألة عندنا مثلا مخزن لبضائع متنوعة ويتم تدوين البضائع الداخلة والخارجة بصفة يومية مع اسعارها ومع تنوع البضائع وتغير أسعار الشراء ، قد يحدث خطأ شائع وهو بيع بضاعة بسعر قديم (أكبر أو أقل من سعرها الحالي) ونريد الحصول علي آخر سعر تم تسجيله لصنف كذا حتي لانقع في خطأ بيع بضاعة بسعر منخفض وهي قد غلا سعرها ، أو تبيع بسعر مرتفع بضاعة أخري قد إنخفض سعرها بالسوق في المرفق تم حل هذه المشكلة باستخدام الدالة LOOKUP وبالمثل باستخدام الدالة LOOKUP يمكنك الحصول علي تاريخ آخر تعامل لشخص ما أو أحدث بيان يخص كذا ، في قاعدة بيانات كذا أترككم للإستكشاف والمشاركة أحدث سعر بيع.rar

السلام عليكم تفضل أخي المرفق مهم3.rar

السلام عليكم هذا من أعمال أستاذنا الكبير وأخونا الحبيب / يحي حسين ، حفظه الله بعد إذنه وإذن أخي الحبيب /أبوعبد الله تفضل أخي المجلد وبه التعديل ، Class by choose one.rar

أستاذي القدير وأخي الفاضل الحبيب/ أحمد يعقوب إن لله وإنا إليه راجعون غفر الله لها وأسكنها فسيح جناته إن شاء الله اللهم بدل سيئاتها حسنات وزد في حسناتها ووسع مدخلها ، إنك انت الغفور الرحيم أرجو السماح على التأخير لم أعرف إلا الآن

السلام عليكم أخي العزيز غير المعادلة في الخلية K9 إلي =IF(J9<4,"",(INT((J9-1)/30)+1)*2%) ثم إنسخها للأسفل

السلام عليكم أخي العزيز المرفق (بالورقة Statment) به كود يعمل التالي: يقوم بتكوين معادلات بالمنطقة الصفراء الأعمدة V:W لتحسب العدد المباع / اجمالي مبلغ مبيعات الصنف / الربح وكذلك يحسب بدون معادلات (اجمالي مبلغ شراء الكمية المباعة) بالعمود U ويتم تفعيل الكود إذا ضغطت الزر أو إذا نشطت الورقة Statment وكذلك إذا وقفت علي إحدي خلايا العمود U ، يعطي لك في صورة تعليق Comment يعطي ملخص لكيفية حساب مبلغ شراء الكمية المباعة لاحظ: علامة الـ (+) أعلي العمود T لإظهار / إخفاء الأعمدة الداخلية هذا كود الحساب Sub net_profit() 'By Tareq MAHMOUD LR = [D10000].End(xlUp).Row Dim Q(99), P(99) As Variant For r = 3 To LR cod = Cells(r, "D").Value With Sheets("Buys") LR2 = .[C10000].End(xlUp).Row I = 0 For nr = 2 To LR2 If .Cells(nr, "C").Value = cod Then I = I + 1 Q(I) = .Cells(nr, "F").Value P(I) = .Cells(nr, "H").Value End If Next nr End With Cells(r, "T").FormulaR1C1 = "=SUMIF(R2C5:RC[-15],RC[-15],R2C6:RC[-14])" Cells(r, "V").FormulaR1C1 = "=SUMIF(R2C5:RC[-17],RC[-17],R2C8:RC[-14])" Cells(r, "W").FormulaR1C1 = "=RC[-1]-RC[-2]" x = Cells(r, "T").Value T_x = 0 For j = 1 To I If x < Q(j) Then T_x = T_x + x * P(j): GoTo 10 x = x - Q(j): T_x = T_x + Q(j) * P(j) Next j 10 Cells(r, "U").Value = T_x Next r End Sub وهذا كود التعليق Comment Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'By Tareq MAHMOUD If Target.Column <> 21 Then Exit Sub LR = [D10000].End(xlUp).Row r = Target.Row If r > LR Then Exit Sub cod = Cells(r, "D").Value Range("U3:U" & LR).ClearComments Dim Q(99), P(99) As Variant With Sheets("Buys") LR2 = .[C10000].End(xlUp).Row I = 0 For nr = 2 To LR2 If .Cells(nr, "C").Value = cod Then I = I + 1 Q(I) = .Cells(nr, "F").Value P(I) = .Cells(nr, "H").Value End If Next nr End With x = Cells(r, "T").Value T_x = 0 tt_TX = "" For j = 1 To I If x < Q(j) Then T_x = T_x + x * P(j): tt_TX = tt_TX & " " & x & "x" & P(j) & Chr(10): GoTo 10 tt_TX = tt_TX & " " & Q(j) & "x" & P(j) x = x - Q(j): T_x = T_x + Q(j) * P(j) Next j 10 With ActiveCell .AddComment .Comment.Text Text:=tt_TX End With End Sub تفضل المرفق ربح صنف متعدد سعر الشراء2.rar

السلام عليكم م/شريف منكم نتعلم ياأستاذ ببساطة امتداد للخط ، علي فرض أن معدل الإنتاج لن يتغير (وهذا طبعا نظري والمفروض تحديثه دوريا)

Authorized Area هذه باللغة العريبة ولايوجد validity date ولا occupation

السلام عليكم أخي الكريم تفضل المرفق مهم2.rar

السلام عليكم أخي حسين: إقتراح جيد جزاك الله خيرا سيتم تنفيذه فورا