أبو لجين قام بنشر أغسطس 11, 2015 الكاتب قام بنشر أغسطس 11, 2015 تحية طيبة للجميع و خاصة السيد ياسر أبو البراء بعد التجريب الكثير تمت معرفة الخطوات اللازمة و آسف لاني اتعبتك و و أشكرك كثيرا المطلوب هو عمل دالة Av.Ang تقوم بما يلي بالنسبة للخلايا التي يتم تحديدها وفق هذه الدالة 1- حساب متوسط مجموع جيب كل خلية بعد تحويله للراديان اي يتم حساب جيب sin كل خلية و يتم حساب متوسط هذه القيم Av.Sin 2- حساب متوسط تجيب cos الخلايا ايضا بعد تحويلها للراديان Av.Cos 3- حساب القيمة ( ATAN2 (AV.CON ; AV.SIN و تحويله للدرجات 4- اذا كان الناتج السابق سالب يتم اضافة 360 أرجو ان يكون كل شيء واضح و جزاكم الله كل خير و مرفق ملف فيه الخطوات كل على حدا و جزاكم الله كل خير AvAngles.zip
تمت الإجابة ياسر خليل أبو البراء قام بنشر أغسطس 11, 2015 تمت الإجابة قام بنشر أغسطس 11, 2015 إليك الملف التالي عله يكون الحل النهائي للموضوع 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 1
أبو لجين قام بنشر أغسطس 11, 2015 الكاتب قام بنشر أغسطس 11, 2015 نعم اخي ياسر جزاك الله كل خير و بارك بك و بكل الاخوة في هذا المنتدى المبارك 1
أبوعيد قام بنشر أغسطس 11, 2015 قام بنشر أغسطس 11, 2015 السلام عليكم الحمد لله على السلامة شكرا لك أخ ياسر على المجهود المبذول تنبيه كان من المتوقع أن أرى أفضل إجابة في مكانها وهي آخر المشاركات في هذا الموضوع ولكن ظهرت في بداية الموضوع واختفت من هنا لذلك أرجو من الأخوة المشرفين إصلاح هذا الخطأ حيث أن المتابع لن يجد التسلسل في الردود تحياتي للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.