أحمد فؤاد قام بنشر يوليو 11, 2012 قام بنشر يوليو 11, 2012 السلام عليكم ورحمة الله وبركاته أريد مساعدتكم في الملف المرفق 1المبيعات.rar
جمال عبد السميع قام بنشر يوليو 11, 2012 قام بنشر يوليو 11, 2012 بعد إذن أستاذي أبو حنين طريقة أخري للحل Book2.rar
أحمد فؤاد قام بنشر يوليو 12, 2012 الكاتب قام بنشر يوليو 12, 2012 السلام عليكم ورحمة الله وبركاته أشكرك ياأستاذ أبو حنين الله يباركلك أشكرك ياأستاذ محمود فكرة المعادلة رائعة ولكن أسف لم أستطع توضيح طلبي جيدا تم توضيحه أكثر في المرفق 1المبيعات.rar
أبو حنــــين قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 لحد الآن طلبك أخي غير واضح كيف تحصلت على الارقام في عمود المبلغ المستحق
جمال عبد السميع قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 لقد تم عمل المعادلة ولكن هناك مشكلة أن شروط دالة ( if ) لايمكن أن تزيد عن 7 شروط فتم عمل جميع الشروط بإستثناء الشرط الأخير لأنة الشرط الثامن علي العموم هذا هو المرفق لعل وعسي توجد لية طريقة للتخلص من شرط لتحقيق الشرط التبقي إذا كان هام لي تساؤل ياأخي كيف يكون هناك شرط إن أكبر من 181%=2000 ويكون شرط 250%=صفر معلش أخي المعادلة في sheet2 مبيعات 1.rar
أحمد فؤاد قام بنشر يوليو 12, 2012 الكاتب قام بنشر يوليو 12, 2012 السلام عليكم ورحمة الله وبركاته بشكركم علي مساعدتي بارك الله فيكم أستاذ محمود أسف علي إزعاجك ولكن أريد المعادلة إذا تحقق الشرطين الأول والثاني تبدأ في البحث في جدول النسب علي الشريحة ليستحق المبلغ
جمال عبد السميع قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 أعتقد صعبة بعض الشئ بسبب تعدد الشروط المطلوبة ومحدودية نتائج الدالة ( if) كما أوضحت لحضرتك لأن عدد شروطها لاتزيد عن 7 شروط والحل البديل الكود
رجب جاويش قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 أخى الحبيب محمود هذا هو الكود المطلوب أرجو أن يفى بالغرض لأخى / amfouad555 وأى تعديل عليه أخبرنى وأنا معك Sub Ghada_ragab() For i = 2 To 11 Dim ghada As Integer Select Case Cells(i, "H").Value Case 0.76 To 0.8: ghada = 500 Case 0.81 To 0.99: ghada = 800 Case 1: ghada = 1000 Case 1.01 To 1.2: ghada = 1200 Case 1.21 To 1.4: ghada = 1400 Case 1.41 To 1.6: ghada = 1600 Case 1.61 To 1.8: ghada = 1800 Case Is >= 1.81: ghada = 2000 Case Else: ghada = 0 End Select Cells(i, "I").Value = ghada Next End Sub المبيعات 2.rar
جمال عبد السميع قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 ماشاء الله عليك أستاذي ومعلمي ربنا يزيدك علم وتعلمنا بأستمرار كل ألف سنة وأنت طيب ورمضان كريم
رجب جاويش قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 أخى الحبيب / محمود شكرا جزيلا أخى الحبيب والحقيقة لو ركزت فى الكود تلاقى بصمة أستاذى الحبيب / عبد الله باقشير أنا فقط تلميذ صغير فى جامعته أحاول التعلم
عمرو رحيل قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 الاخوة الافاضل السلام عليكم ورحمة الله وبركاته اضع بين يديكم هذه المشاركة المتواضعة والتى اعتقد انها ربما تفى بالمطلوب بإذن الله وكل عام وانتم بخير Sales.rar
جمال عبد السميع قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 تلميذ عالم لابد وأن يكون ( دكتور ) وحضرتك ونعم التلميذ لأنك أكيد فخر لعالم عبقري كأستاذي وشيخ المعلميين ( عبد الله باقشير ) أطال الله لنا في عمرة لأننا نجتهد ونقدم الحلول علي أساس أن لدينا عالم يمكن أن يصوب أخطائنا أخي الأستاذ فؤاد لديك الأن تحفة وعمل تفخر أنة معمول لك مخصوص من أستاذ ونعم الأساتذة ومعادلة تنقص شرط واحد وهذا لأمكانيات الدالة المبيعات 2.rar
جمال عبد السميع قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 ماشاء الله أخي عمرو حل جميل بارك الله فيك
عمرو رحيل قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 ماشاء الله أخي عمرو حل جميل بارك الله فيك شكرا اخى محمود
عمرو رحيل قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 أخى الحبيب محمود هذا هو الكود المطلوب أرجو أن يفى بالغرض لأخى / amfouad555 وأى تعديل عليه أخبرنى وأنا معك Sub Ghada_ragab() For i = 2 To 11 Dim ghada As Integer Select Case Cells(i, "H").Value Case 0.76 To 0.8: ghada = 500 Case 0.81 To 0.99: ghada = 800 Case 1: ghada = 1000 Case 1.01 To 1.2: ghada = 1200 Case 1.21 To 1.4: ghada = 1400 Case 1.41 To 1.6: ghada = 1600 Case 1.61 To 1.8: ghada = 1800 Case Is >= 1.81: ghada = 2000 Case Else: ghada = 0 End Select Cells(i, "I").Value = ghada Next End Sub عمل رائع ا/ رجب ولكن ينقصه شيئ واحد وهو ربط الصنفين معا لكل عميل بحيث لو قلت نسبة اى صنف منهما عن 50% لايستحق اى مبالغ عن الصنفين وكل عام وانتم بخير
رجب جاويش قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 عند حق أخى عمرو فأنا لم أر هذا الشرط وهو ربط الصنفين معا وإن شاء الله سوف أقوم بتعديل الكود
أحمد فؤاد قام بنشر يوليو 12, 2012 الكاتب قام بنشر يوليو 12, 2012 السلام عليكم ورحمة الله وبركاته وكل عام وأنتم بخير أعتقد صعبة بعض الشئ بسبب تعدد الشروط المطلوبة ومحدودية نتائج الدالة ( if) كما أوضحت لحضرتك لأن عدد شروطها لاتزيد عن 7 شروط والحل البديل الكود أستاذي محمود بشكرك علي إهتمامك ورغبتك علي مساعدتي بارك الله فيك أخى الحبيب / محمود شكرا جزيلا أخى الحبيب والحقيقة لو ركزت فى الكود تلاقى بصمة أستاذى الحبيب / عبد الله باقشير أنا فقط تلميذ صغير فى جامعته أحاول التعلم أستاذي ومعلمي رجب جاويش كود رائع ولكن كنت أريد أن يربط الشروط الثلاثة معا ولا أنسى معلمنا الكبير / عبد الله باقشير كثيرا ما أبدعنا وتعلمنا من أكواده بارك الله فيك اضع بين يديكم هذه المشاركة المتواضعة والتى اعتقد انها ربما تفى بالمطلوب بإذن الله أستاذ عمرو رحيل الله يباركلك معادلة رائعة هو ده المطلوب
رجب جاويش قام بنشر يوليو 12, 2012 قام بنشر يوليو 12, 2012 أخى الفاضل / amfouad555 جرب الكود التالى بس معلش كود طويل شوية المبيعات 2.rar
أحمد فؤاد قام بنشر يوليو 12, 2012 الكاتب قام بنشر يوليو 12, 2012 أستاذي رجب جاويش كود رائع يحقق المطلوب بارك الله فيك
عمرو رحيل قام بنشر يوليو 13, 2012 قام بنشر يوليو 13, 2012 أستاذ عمرو رحيل الله يباركلك معادلة رائعة هو ده المطلوب ويبارك لك اخى الكريم .... الحمد لله انك وصلت لما تريد ... وكل عام وانت بخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.