تحديد متوسط زوايا دائرية ... كيف ؟؟

[أبو لجين]

تحية طيبة للجميع و خاصة السيد ياسر أبو البراء 

بعد التجريب الكثير تمت معرفة الخطوات اللازمة  و آسف لاني اتعبتك  و و أشكرك كثيرا 

المطلوب هو عمل دالة Av.Ang   تقوم بما يلي بالنسبة للخلايا التي يتم تحديدها وفق هذه الدالة 

1- حساب متوسط مجموع جيب كل خلية بعد تحويله للراديان  اي يتم حساب جيب sin  كل خلية و يتم حساب متوسط هذه القيم       Av.Sin

2- حساب متوسط تجيب cos  الخلايا ايضا بعد تحويلها للراديان                                                                          Av.Cos

3-   حساب القيمة  ( ATAN2    (AV.CON     ;      AV.SIN  و تحويله للدرجات 

4-  اذا كان الناتج السابق سالب يتم اضافة 360 

أرجو ان يكون كل شيء واضح و جزاكم الله كل خير  و مرفق ملف فيه الخطوات  كل على حدا 

و جزاكم الله كل خير 

 

AvAngles.zip

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

إليك الملف التالي عله يكون الحل النهائي للموضوع

Function AvAngles(Param As Range) As Double
    Dim Cell As Range, AvSin As Double, AvCos As Double, At2 As Double
    Dim F As WorksheetFunction
    Set F = WorksheetFunction
    
    For Each Cell In Param
        AvSin = AvSin + Sin(F.Radians(Cell.Value))
        AvCos = AvCos + Cos(F.Radians(Cell.Value))
    Next Cell
    
    AvSin = AvSin / Param.Count
    AvCos = AvCos / Param.Count
    At2 = F.Degrees(F.Atan2(AvCos, AvSin))
    AvAngles = IIf(At2 < 0, At2 + 360, At2)
End Function

النتائج للدالة المعرفة تماماً مثل النتائج المرفقة

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

AvAngles UDF Function.rar

[أبو لجين]

نعم اخي ياسر  جزاك الله كل خير و بارك بك و بكل الاخوة في هذا المنتدى المبارك 

[أبوعيد]

السلام عليكم

الحمد لله على السلامة 

شكرا لك أخ ياسر على المجهود المبذول

 تنبيه

كان من المتوقع أن أرى أفضل إجابة في مكانها وهي آخر المشاركات في هذا الموضوع

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

حيث أن المتابع لن يجد التسلسل في الردود

تحياتي للجميع