أبو لجين

شكرا لكم اخي الكريم و جزاكم الله عنا خيرا

تمام هذا المطلوب

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

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

لدي ملف به بيانات كثيرة. 

اول عمود هو تاريخ. 

باقي العواميد هي بيانات رقمية. البيانات في صفحة data مثلا. 

عملت صفحة أخرى باسم search 

اكتب في الخلية A2  من صفحة search   تاريخ محدد

اريد ان يبحث عن هذا التاريخ في الصفحة data 

و يكتب كامل السطر الموافق لنفس التاريخ 

مثلا التاريخ موافق للخلية A13 في data 

اريد ان يظهر كل السطر من A13 حتى m13 مثلا  

صيغة التاريخ  مثل 31\12\2020

في حال كان لدي  تاريخ و وقت ايضا :  التاريخ في العمود A و الوقت في العمود B

اريد ان يكتب بيانات السطر الموافق كاملا  اي يجب تطابق التاريخ و الوقت.

كذا صاروا امرين  الاول فقط تاريخ الثاني تاريخ و وقت او بلغة اخرى امر بحث عن قيمة واحدة و امر بحث عن قيمتين و نسخ السطر الموافق كاملا

MM.xlsx

الله يجزيك الخير و ينور طريقك أخي ياسر  

فعلا طبقت ما قلت لي و ضبط الملف أشكركم كثيرا 

^_^ لم اجد خيار افضل اجابة رما بالتحديث الجديد لم تعد موجودة 

ما شاء الله أشكركم كثيرا اخواني الكرام 

لم اختفي اخي ياسر لكن صباحا بالعمل ^_^

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

 asLtr = Split("ء أ إ آ ا ئ ب ج د ه و ز ح ط ي ك ل م ن س ع ف ص ق ر ش ت ـة ث خ ذ ض ظ غ

تظهر بالفيجوال برموز انكليزية غريبة نوعا ما ربما لان الفيجوال لا يتقبل العربية  او بسبب اختلاف ملفات الفونت بين الانظمة و اصدارات اوفيس 

لذا هنا قد نضطر للاستعانة بالجدول مثلما فعل الاخ احمد عبد الناصر او ان نستبدل الاحرف برموزها الاساسية اي رمز الحرف كما يتلقاه المعالج من لوحة المفاتيح و هي صعبة نوعا ما 

لذا اشكركم جميعا و الحلين ممتازين 

نعم اخي ياسر أبو البراء .. هو الامر واضح لكن جديد على أغلب الاخوة و الشرح هو كما يلي :

بالاعتماد على الجدول بالملف المرفق السابق  يتم اعطاء قيمة عددية لكل حرف   و يتم جمع القيم للحروف المشكلة للكلمة  فالخطوات هي :

1-  اسناد كل حرف للقيمة الموافقة له 

2 -  تفكيك السلسلة النصية الى حروف ( طبعا الحروف هي عربية حصرا ) 

3- جمع قيم الاحرف المكونة للسلسلة النصية  

و هذه امثلة للتوضيح 

لفظ الجلالة ( الله )  هو مكون من الحروف ا ل ل ه     ,  ا= 1 و ل = 30 و هـ = 5  فالمجموع هو :  1+ 30 + 30 + 5 = 66

فالدالة يجب ان تعطيني الرقم 66 و هو القيمة العددية للفظ الجلالة 

اسم أحمد  حروفه  أ ح م د  و القيم العددية المقابلة لها   1 و 8 و 40 و 4  و مجموعهم 53 

جملة بسم الله الرحمن الرحيم  بنفس الطريقة يجب ان تكون قيمتها 786

بداية الدالة يجب اسناد كل حرف لقيمته الموافقة و من ثم  كل نرى الحروف الموجودة بالخلية و يتم حساب القيم الموافقة لها 

أرجو ان يكون الشرح واضح و اي سؤال تفضل أخي ياسر و جزاك الله خيرا

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

Function FactorNumber(lNumber As Long)
Dim x As Long
Dim y As Long
Dim sList As String
y = 0
For x = 1 To lNumber
If Int(lNumber / x) = lNumber / x Then
y = y + 1
If x = 1 Then
sList = x
Else
sList = sList & "," & x
End If
End If
Next
FactorNumber = sList
End Function

هذه الدالة مفيدة جدا  لكن بها عيب انها تظهر جميع الاعداد التي يقبل الرقم الاساسي القسمه عليها بينما المطلوب هو الاعداد الاولية فقط  و مثالها

360 اعطاني الناتج التالي :

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

كيف حال الاخوة الكرام 

أحب القيام ببعض الابحاث في القرآن العظيم باستخدام حساب ابجد هوز و توجد برامج تقوم بالحسابات بطرق متنوعة  لكن الاقي صعوبة بالنسخ و و القيام بنقل الحسابات فأريد من الاخوة الكرام كتابة دالة تقوم بهذا الحساب 

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

و لدي  سؤال متعلق بالدالات هل توجد دالة تعطي العوامل الاولية لعدد ما ؟ مثلا العدد 21 عوامله هي 7 و 3 و شكرا لكم و بالمرفقات ملف القيم و ايضا برنامج جميل للاحصاءات و الحسابات في القرآن 

برنامج الدقائق تكشف الحقائق في حساب الجمل.rar

abjad.zip

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

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

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

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

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

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

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

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

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

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

AvAngles.zip

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

الاخ الطيب المجتهد ياسر ابو البراء اشكرك كثيرا جدا لتعبك و اهتمامك و كنت اريد ان اجد الصيغة المطلوبة كي لا اتعبك في هذا الامر و لكن حيويتك و حبك لافادة الناس كبيرة و ربنا يجزيك كل خير 

المعادلة الاخيرة و الكود كلاهما يعطي نفس النتيجة بالضبط لكن يبقى هناك اخطاء حيث تغير يمة المتوسط بشكل كبير بمجرد ان احد زوايا كانت اقل من 90 او 270 او 300  ثم ثم زادت عنها و ستراها موضحه بالمرفق 

المشكلة بالنسبة للدالة  TANA  انها فقط تعطي نتيجة بين 90 و -90   لذا لاتعد مناسبة 

و بحثت في جوجل و رايت هاتين الصفحتين  و حاولت اجرب لكن الاوامر ليست ضمن فيجوال بيزك بل C++ او غيرها  لذا  ساضع رابط الصفحة و اضع الكود الذي رايته انه مناسب و بالحقيقة توجد عده اكواد بالصفحة و لم اعرف ايها الاصح لان لم ااستطع ان اجربها و بالملف المرفق ايضا جدول يمكن نسخه و التجربة عليه كي يتبين اذا في خطا ام لا فلا يجب ان تتغير قيمة المتوسط بشكل كبير فجاة 

و الاخ طارق محمود الطيب اهلا بك نورتنا و ملاحظتك صحيحة لكن للتوضيح كنت اقصد المتوسط الذي تحسبه الدالة حيث بعض الاحيان بسبب برمجتها (تتم اضافة قيم عددية للزوايا ) يصبح المتوسط اكبر من 360  ^_^

 public static GeoCoordinate GetCentralGeoCoordinate(
        IList<GeoCoordinate> geoCoordinates)
    {
        if (geoCoordinates.Count == 1)
        {
            return geoCoordinates.Single();
        }

        double x = 0;
        double y = 0;
        double z = 0;

        foreach (var geoCoordinate in geoCoordinates)
        {
            var latitude = geoCoordinate.Latitude * Math.PI / 180;
            var longitude = geoCoordinate.Longitude * Math.PI / 180;

            x += Math.Cos(latitude) * Math.Cos(longitude);
            y += Math.Cos(latitude) * Math.Sin(longitude);
            z += Math.Sin(latitude);
        }

        var total = geoCoordinates.Count;

        x = x / total;
        y = y / total;
        z = z / total;

        var centralLongitude = Math.Atan2(y, x);
        var centralSquareRoot = Math.Sqrt(x * x + y * y);
        var centralLatitude = Math.Atan2(z, centralSquareRoot);

        return new GeoCoordinate(centralLatitude * 180 / Math.PI, centralLongitude * 180 / Math.PI);
    }

الروابط هي :

http://stackoverflow.com/questions/6671183/calculate-the-center-point-of-multiple-latitude-longitude-coordinate-pairs?lq=1

http://stackoverflow.com/questions/491738/how-do-you-calculate-the-average-of-a-set-of-angles

http://stackoverflow.com/questions/5189241/how-to-find-the-average-of-a-set-of-bearings?lq=1

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

NEW3.zip

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

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

الاخ الطيب ياسر أبو البراء التتعديل لم يحل المشكلة بالنسة لما تتغير الدرجة من 179 الى 180 يبقى هناك اختلاف كبير في المتوسط   و  بالنسبة للامر الاخر فهو تمام  و أشكرك لجهوك  و أشكر الاخ أبو عيد لاضافه القانون و أتمنى أن يتم كابته بصيغه  دالة  أخرى .

و بالنسبة للغرض من هذا الطلب فبكل بساطه  نعرف جميعا ان الكواكب تسير بنظام دائري و انا اريد حساب متوسط حركتها :)

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

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

أهلا بك اخي ياسر خليل أبو البراء 

أشكرك لجهدك الطيب  و عملك المبدع 

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

و بالنسبة للدالة التي تفضلت بعملها فهي جيدة و ممتازة و لكن تظهر مشكلة و تحتاج لامر 

المشكلة تظهر لما تكون الزاوية اقل من 180 ثم تصبح 180 او اكثر هنا يحدث فرق بين المتوسطين اللذين تم حسابهما بالدالة الجديدة 

و الامر الذي احتاج اليه  هو اذا كانت قيمة المتوسط اكثر او تساوي 360  نقوم بطرح 360  و هو امر ليس ضروريا لكن اذا سهل ادخاله بالدالة فسيكون اسهل لي

و بالملف المرفق توضيح للمشكلة و للامر و جزاكم الله كل خير 

Angles Average UDF Function 2.zip

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

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

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

الدائرة طبعا هي 360 كما تفضلتم و كان خطا كتابي و بالنسبة لكيفية حساب المتوسط يوجد مشاركة بعنوان قياسات زوايا الدائرة و الاخت ام عبد الله اجابت بحل لها و ممكن بتقسيم الناتج على 2  اضافة الناتج الجديد للقيمة الاصغر 

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

الفرق ين زاويتين.rar

برنامج رائع جدا 

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

بسم الله الرحمن الرحيم 

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

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

لدي امور متعلقة بزوايا الدائرة و كما تعرفون هي بين 0 و حتى 360

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

فمثلا اذا اعتبرنا لدينا زاوية هي 330 و زاوية اخرى هي 10  بالطريقة العادية نحصل على 140 و لكن بالنسبة للدائرة يجب ان تكون  350   و عندما تكون عندي زاويتين فقط فالامر ربما سهل و لكن عندما توجد اكثر من زاويتين فاحتاج فوامر فهل ممكن المساعدة و مرفق ملف  و شكرا لكم و تقبل الله صيامكم 

الاخوة الكرام 

ياسر أبو البراء   - سليم حاصيبا  المحترمين 

جزاكم الله كل خير و أشكركم و استفدت عده حلول فبارك الله بكم 

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

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

لي طلب مرفق ملف  اقوم بنسخ بيانات من ملف نصي كبير و هنا الامر تمام 

لكن الملف النصي بعض البيانات ( كل البيانات ارقام ) يلحق بها رمز النجمة ( * ) 

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

new.zip