اريد دالة لكتابة العلاوة الاجتماعية طبقا للحالة والنوع

[أ محمد عبد الصمد]

المطلوب كتابة دالة فى الخلايا الصفراء   العمودين ( h,g) بحيث تكتب العلاوات الاجتماعية حسب اختيارالنوع والحالة الاجتماعية للموظفين من الخلايا فى العمودين a,b

المطلوب واضح فى المرفق اى كلما تحقق شرطين فى خليتين مختلفتين يكتب رقما معينا وليكن اذا كان متزوج+1 والنوع ذكر يكتب 4 اما اذا كان متزوج وانثى يكتب 2 بغض النظر عن عدد الولاد للانثي

الاجتماعية.rar

[ياسر خليل أبو البراء]

جرب الدالة المعرفة التالية (يمكنك التعديل عليها بما هو صحيح)

Function Status(Gender As String, Degree As String, S_Rng As String) As Variant
    Select Case Gender & " " & Degree & " " & S_Rng
        'أعزب وحالاته
        Case "ذكر الأولى أعزب": Status = 0
        Case "ذكر خبير أعزب": Status = 0
        Case "ذكر الثانية أعزب": Status = 0
        Case "ذكر الثالثة أعزب": Status = 0
        Case "ذكر الرابعة أعزب": Status = 0
        Case "ذكر الخامسة أعزب": Status = 0
        Case "ذكر السادسة أعزب": Status = 0
        Case "ذكر بدون درجة أعزب": Status = 0
        
        Case "أنثى الأولى أعزب": Status = 0
        Case "أنثى خبير أعزب": Status = 0
        Case "أنثى الثانية أعزب": Status = 0
        Case "أنثى الثالثة أعزب": Status = 0
        Case "أنثى الرابعة أعزب": Status = 0
        Case "أنثى الخامسة أعزب": Status = 0
        Case "أنثى السادسة أعزب": Status = 0
        Case "أنثى بدون درجة أعزب": Status = 0
        
        'متزوج وحالاته
        Case "ذكر الأولى متزوج": Status = 2
        Case "ذكر خبير متزوج": Status = 2
        Case "ذكر الثانية متزوج": Status = 2
        Case "ذكر الثالثة متزوج": Status = 2
        Case "ذكر الرابعة متزوج": Status = 2
        Case "ذكر الخامسة متزوج": Status = 2
        Case "ذكر السادسة متزوج": Status = 2
        Case "ذكر بدون درجة متزوج": Status = 2
        
        Case "أنثى الأولى متزوج": Status = 2
        Case "أنثى خبير متزوج": Status = 2
        Case "أنثى الثانية متزوج": Status = 2
        Case "أنثى الثالثة متزوج": Status = 2
        Case "أنثى الرابعة متزوج": Status = 2
        Case "أنثى الخامسة متزوج": Status = 2
        Case "أنثى السادسة متزوج": Status = 2
        Case "أنثى بدون درجة متزوج": Status = 2
        
        'متزوج+1 وحالاته
        Case "ذكر الأولى متزوج+1": Status = 4
        Case "ذكر خبير متزوج+1": Status = 4
        Case "ذكر الثانية متزوج+1": Status = 4
        Case "ذكر الثالثة متزوج+1": Status = 4
        Case "ذكر الرابعة متزوج+1": Status = 4
        Case "ذكر الخامسة متزوج+1": Status = 4
        Case "ذكر السادسة متزوج+1": Status = 4
        Case "ذكر بدون درجة متزوج+1": Status = 2
        
        Case "أنثى الأولى متزوج+1": Status = 2
        Case "أنثى خبير متزوج+1": Status = 2
        Case "أنثى الثانية متزوج+1": Status = 2
        Case "أنثى الثالثة متزوج+1": Status = 2
        Case "أنثى الرابعة متزوج+1": Status = 2
        Case "أنثى الخامسة متزوج+1": Status = 2
        Case "أنثى السادسة متزوج+1": Status = 2
        Case "أنثى بدون درجة متزوج+1": Status = 2
        
        'متزوج+2 وحالاته
        Case "ذكر الأولى متزوج+2": Status = 6
        Case "ذكر خبير متزوج+2": Status = 6
        Case "ذكر الثانية متزوج+2": Status = 6
        Case "ذكر الثالثة متزوج+2": Status = 6
        Case "ذكر الرابعة متزوج+2": Status = 6
        Case "ذكر الخامسة متزوج+2": Status = 6
        Case "ذكر السادسة متزوج+2": Status = 6
        Case "ذكر بدون درجة متزوج+2": Status = 2
        
        Case "أنثى الأولى متزوج+2": Status = 2
        Case "أنثى خبير متزوج+2": Status = 2
        Case "أنثى الثانية متزوج+2": Status = 2
        Case "أنثى الثالثة متزوج+2": Status = 2
        Case "أنثى الرابعة متزوج+2": Status = 2
        Case "أنثى الخامسة متزوج+2": Status = 2
        Case "أنثى السادسة متزوج+2": Status = 2
        Case "أنثى بدون درجة متزوج+2": Status = 2

        'تعول وحالاتها
        Case "أنثى الأولى تعول": Status = 4
        Case "أنثى خبير تعول": Status = 4
        Case "أنثى الثانية تعول": Status = 4
        Case "أنثى الثالثة تعول": Status = 4
        Case "أنثى الرابعة تعول": Status = 4
        Case "أنثى الخامسة تعول": Status = 4
        Case "أنثى السادسة تعول": Status = 4
        Case "أنثى بدون درجة تعول": Status = 2
        
        Case Else: Status = ""
    End Select
End Function

 

[أ محمد عبد الصمد]

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

تم تعديل ديسمبر 30, 2016 بواسطه أ محمد عبد الصمد

[أ محمد عبد الصمد]

للرفع كيفية استخدام الدالة

[ياسر خليل أبو البراء]

استخدام الدالة محدد بأول سطر

Function Status(Gender As String, Degree As String, S_Rng As String) As Variant

الأول النوع والثاني الدرجة والثالث الحالة الاجتماعية

يمكن التعديل في الدالة المعرفة حسب المطلوب .. واستخدامها مثل أي دالة في الإكسيل ..اكتب اسم الدالة المعرفة ثم افتح قوس وبعد القوس اكتب عنوان الخلية التي بها النوع ، ثم فاصلة ، ثم عنوان الخلية التي بها الدرجة ، ثم فاصلة ، ثم عنوان الخلية التي بها الحالة الاجتماعية ثم أغلق القوس ..

إذا تعذر عليك استخدامها فيمكن لأحد الأخوة تكملة الموضوع نظراً لانشغالي في أمور خاصة

[أ محمد عبد الصمد]

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

[دغيدى]

أخى الكريم ... محمد عبد الصمد ...  أخى الكريم ... أبو البراء

العلاوة الاجتماعية ليس لها علاقة بالدرجة ولكن

آنسة أو أعزب  =  0

متزوجة أو متزوج    =    2  

المتزوج ( ذكر) م

م = 2

م+1 = 4

م + 2 = 6

أرملة +1 = 2

أرملة +2 = 4

هذه جميع الحالات من واقع شغلى

 

 

[ياسر خليل أبو البراء]

ليس لدي علم بالتفاصيل .. الدالة المعرفة موجودة ويمكن عليها التعديل بما يتناسب مع الشروط الصحيحة ..

[Khalid Jnb]

السلام عليكم

اخي العزيز

اكتب لي جدول بالعلاوات لكل حال

 

[أ محمد عبد الصمد]

الجدول فى المرفق

 

الاجتماعية2.rar

[ابو عبدالبارى]

 

3 ساعات مضت, أ محمد عبد الصمد said:

الجدول فى المرفق

 

الاجتماعية2.rar

الأخ الكريمأ محمد عبد الصمد

السلام عليكم

ضع المعادلة التالية فى g2 واسحبها نزولا

=IF(A2="";"";IF(A2="اعزب";0;4))

ضع المعادلة التالية فى h2 واسحبها نزولا

=IF(OR(CONCATENATE(A2;B2)="متزوجذكر";CONCATENATE(A2;B2)="متزوجانثي";CONCATENATE(A2;B2)="متزوجانثي";A2="اعزب")=TRUE;0;IF(OR(CONCATENATE(A2;B2)="متزوج+1ذكر";CONCATENATE(A2;B2)="متزوج+1انثي";CONCATENATE(A2;B2)="متزوج+2انثي";CONCATENATE(A2;B2)="متزوج+3انثي");2;IF(OR(CONCATENATE(A2;B2)="متزوج+2ذكر";A2="ارملة+2");4;IF(CONCATENATE(A2;B2)="متزوج+3ذكر";6;""))))

أو جرب المرفق التالى

abo_abary_الاجتماعية.rar

[أ محمد عبد الصمد]

الف الف شكر هو ده المطلوب