اذهب الي المحتوي
أوفيسنا

أريد معادلة تربط عدة شروط


الردود الموصى بها

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

أشكرك ياأستاذ أبو حنين الله يباركلك

أشكرك ياأستاذ محمود فكرة المعادلة رائعة

ولكن أسف لم أستطع توضيح طلبي جيدا تم توضيحه أكثر في المرفق

1المبيعات.rar

رابط هذا التعليق
شارك

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

لي تساؤل ياأخي كيف يكون هناك شرط إن أكبر من 181%=2000 ويكون شرط 250%=صفر

معلش أخي المعادلة في sheet2

مبيعات 1.rar

رابط هذا التعليق
شارك

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

بشكركم علي مساعدتي بارك الله فيكم

أستاذ محمود

أسف علي إزعاجك ولكن أريد المعادلة

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

رابط هذا التعليق
شارك

أعتقد صعبة بعض الشئ بسبب تعدد الشروط المطلوبة ومحدودية نتائج الدالة ( if) كما أوضحت لحضرتك لأن عدد شروطها لاتزيد عن 7 شروط والحل البديل الكود

رابط هذا التعليق
شارك

أخى الحبيب محمود

هذا هو الكود المطلوب

أرجو أن يفى بالغرض لأخى / 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

رابط هذا التعليق
شارك

ماشاء الله عليك أستاذي ومعلمي ربنا يزيدك علم وتعلمنا بأستمرار كل ألف سنة وأنت طيب ورمضان كريم

رابط هذا التعليق
شارك

أخى الحبيب / محمود

شكرا جزيلا أخى الحبيب

والحقيقة لو ركزت فى الكود تلاقى بصمة أستاذى الحبيب / عبد الله باقشير

أنا فقط تلميذ صغير فى جامعته أحاول التعلم

رابط هذا التعليق
شارك

الاخوة الافاضل

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

اضع بين يديكم هذه المشاركة المتواضعة والتى اعتقد انها ربما تفى بالمطلوب بإذن الله

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

Sales.rar

رابط هذا التعليق
شارك

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

أخي الأستاذ فؤاد لديك الأن تحفة وعمل تفخر أنة معمول لك مخصوص من أستاذ ونعم الأساتذة ومعادلة تنقص شرط واحد وهذا لأمكانيات الدالة

المبيعات 2.rar

رابط هذا التعليق
شارك

أخى الحبيب محمود

هذا هو الكود المطلوب

أرجو أن يفى بالغرض لأخى / 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% لايستحق اى مبالغ عن الصنفين

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

رابط هذا التعليق
شارك

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

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

أعتقد صعبة بعض الشئ بسبب تعدد الشروط المطلوبة ومحدودية نتائج الدالة ( if) كما أوضحت لحضرتك لأن عدد شروطها لاتزيد عن 7 شروط والحل البديل الكود

أستاذي محمود بشكرك علي إهتمامك ورغبتك علي مساعدتي

بارك الله فيك

أخى الحبيب / محمود

شكرا جزيلا أخى الحبيب

والحقيقة لو ركزت فى الكود تلاقى بصمة أستاذى الحبيب / عبد الله باقشير

أنا فقط تلميذ صغير فى جامعته أحاول التعلم

أستاذي ومعلمي رجب جاويش

كود رائع ولكن كنت أريد أن يربط الشروط الثلاثة معا

ولا أنسى معلمنا الكبير / عبد الله باقشير

كثيرا ما أبدعنا وتعلمنا من أكواده

بارك الله فيك

اضع بين يديكم هذه المشاركة المتواضعة والتى اعتقد انها ربما تفى بالمطلوب بإذن الله

أستاذ عمرو رحيل

الله يباركلك معادلة رائعة

هو ده المطلوب

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information