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

أبو لجين

عضو جديد 01
  • Posts

    19
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

3 Neutral

عن العضو أبو لجين

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    pharmcy

اخر الزوار

636 زياره للملف الشخصي
  1. شكرا لكم اخي الكريم و جزاكم الله عنا خيرا تمام هذا المطلوب
  2. السلام عليكم ورحمة الله وبركاته. جزاكم الله خيرا. لدي ملف به بيانات كثيرة. اول عمود هو تاريخ. باقي العواميد هي بيانات رقمية. البيانات في صفحة data مثلا. عملت صفحة أخرى باسم search اكتب في الخلية A2 من صفحة search تاريخ محدد اريد ان يبحث عن هذا التاريخ في الصفحة data و يكتب كامل السطر الموافق لنفس التاريخ مثلا التاريخ موافق للخلية A13 في data اريد ان يظهر كل السطر من A13 حتى m13 مثلا صيغة التاريخ مثل 31\12\2020 في حال كان لدي تاريخ و وقت ايضا : التاريخ في العمود A و الوقت في العمود B اريد ان يكتب بيانات السطر الموافق كاملا اي يجب تطابق التاريخ و الوقت. كذا صاروا امرين الاول فقط تاريخ الثاني تاريخ و وقت او بلغة اخرى امر بحث عن قيمة واحدة و امر بحث عن قيمتين و نسخ السطر الموافق كاملا MM.xlsx
  3. الله يجزيك الخير و ينور طريقك أخي ياسر فعلا طبقت ما قلت لي و ضبط الملف أشكركم كثيرا ^_^ لم اجد خيار افضل اجابة رما بالتحديث الجديد لم تعد موجودة
  4. ما شاء الله أشكركم كثيرا اخواني الكرام لم اختفي اخي ياسر لكن صباحا بالعمل ^_^ بالنسبة للدالة هي ممتازة لكن واجهت مشكلة و اظن هي متمثلة باختلاف الانظمة و الخطوط حيث جربت لكن تظهر النتيجة صفرا و ذهبت لمحرر الفيجوال رايت ان الرموز التي وضعتها asLtr = Split("ء أ إ آ ا ئ ب ج د ه و ز ح ط ي ك ل م ن س ع ف ص ق ر ش ت ـة ث خ ذ ض ظ غ تظهر بالفيجوال برموز انكليزية غريبة نوعا ما ربما لان الفيجوال لا يتقبل العربية او بسبب اختلاف ملفات الفونت بين الانظمة و اصدارات اوفيس لذا هنا قد نضطر للاستعانة بالجدول مثلما فعل الاخ احمد عبد الناصر او ان نستبدل الاحرف برموزها الاساسية اي رمز الحرف كما يتلقاه المعالج من لوحة المفاتيح و هي صعبة نوعا ما لذا اشكركم جميعا و الحلين ممتازين
  5. نعم اخي ياسر أبو البراء .. هو الامر واضح لكن جديد على أغلب الاخوة و الشرح هو كما يلي : بالاعتماد على الجدول بالملف المرفق السابق يتم اعطاء قيمة عددية لكل حرف و يتم جمع القيم للحروف المشكلة للكلمة فالخطوات هي : 1- اسناد كل حرف للقيمة الموافقة له 2 - تفكيك السلسلة النصية الى حروف ( طبعا الحروف هي عربية حصرا ) 3- جمع قيم الاحرف المكونة للسلسلة النصية و هذه امثلة للتوضيح لفظ الجلالة ( الله ) هو مكون من الحروف ا ل ل ه , ا= 1 و ل = 30 و هـ = 5 فالمجموع هو : 1+ 30 + 30 + 5 = 66 فالدالة يجب ان تعطيني الرقم 66 و هو القيمة العددية للفظ الجلالة اسم أحمد حروفه أ ح م د و القيم العددية المقابلة لها 1 و 8 و 40 و 4 و مجموعهم 53 جملة بسم الله الرحمن الرحيم بنفس الطريقة يجب ان تكون قيمتها 786 بداية الدالة يجب اسناد كل حرف لقيمته الموافقة و من ثم كل نرى الحروف الموجودة بالخلية و يتم حساب القيم الموافقة لها أرجو ان يكون الشرح واضح و اي سؤال تفضل أخي ياسر و جزاك الله خيرا
  6. بالنسبة لدالة الاعداد الاولية لرقم ما وجدت بالبحث هذا الكود لدالة و احببت مشاركتكم 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 اعطاني الناتج التالي : 1,2,3,4,5,6,8,9,10,12,15,18,20,24,30,36,40,45,60,72,90,120,180,360 بينما المطلوب ان يعطي فقط 2*2*2*3*3*5 و ايضا ممكن ان نزيل الرقم 1 من النواتج ؟
  7. السلام عليكم و رحمة الله و بركاته كيف حال الاخوة الكرام أحب القيام ببعض الابحاث في القرآن العظيم باستخدام حساب ابجد هوز و توجد برامج تقوم بالحسابات بطرق متنوعة لكن الاقي صعوبة بالنسخ و و القيام بنقل الحسابات فأريد من الاخوة الكرام كتابة دالة تقوم بهذا الحساب اي تقوم بتحديد الاحرف الموجودة بالنص في الخلية و مقابلة كل حرف بقيمته و جمع القيم اي ناتج الدالة هو مجموع القيم العددية للاحرف و هذه القيم محددة بالملف المرفق و لدي سؤال متعلق بالدالات هل توجد دالة تعطي العوامل الاولية لعدد ما ؟ مثلا العدد 21 عوامله هي 7 و 3 و شكرا لكم و بالمرفقات ملف القيم و ايضا برنامج جميل للاحصاءات و الحسابات في القرآن برنامج الدقائق تكشف الحقائق في حساب الجمل.rar abjad.zip
  8. نعم اخي ياسر جزاك الله كل خير و بارك بك و بكل الاخوة في هذا المنتدى المبارك
  9. تحية طيبة للجميع و خاصة السيد ياسر أبو البراء بعد التجريب الكثير تمت معرفة الخطوات اللازمة و آسف لاني اتعبتك و و أشكرك كثيرا المطلوب هو عمل دالة Av.Ang تقوم بما يلي بالنسبة للخلايا التي يتم تحديدها وفق هذه الدالة 1- حساب متوسط مجموع جيب كل خلية بعد تحويله للراديان اي يتم حساب جيب sin كل خلية و يتم حساب متوسط هذه القيم Av.Sin 2- حساب متوسط تجيب cos الخلايا ايضا بعد تحويلها للراديان Av.Cos 3- حساب القيمة ( ATAN2 (AV.CON ; AV.SIN و تحويله للدرجات 4- اذا كان الناتج السابق سالب يتم اضافة 360 أرجو ان يكون كل شيء واضح و جزاكم الله كل خير و مرفق ملف فيه الخطوات كل على حدا و جزاكم الله كل خير AvAngles.zip
  10. السلام عليكم و رحمة الله و بركاته الاخ الطيب المجتهد ياسر ابو البراء اشكرك كثيرا جدا لتعبك و اهتمامك و كنت اريد ان اجد الصيغة المطلوبة كي لا اتعبك في هذا الامر و لكن حيويتك و حبك لافادة الناس كبيرة و ربنا يجزيك كل خير المعادلة الاخيرة و الكود كلاهما يعطي نفس النتيجة بالضبط لكن يبقى هناك اخطاء حيث تغير يمة المتوسط بشكل كبير بمجرد ان احد زوايا كانت اقل من 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
  11. السلام عليكم و رحمة الله و بركاته الاخ الطيب ياسر أبو البراء بداية أشكرك و أشكر الاخ أبو عيد لاسعافه لي بالمعادلة التي تريحنا الان اعمل للتدقيق بالمطلوب لان تظهر لددي بعض الاخطاء حتى بمعادلة الاخ ابو عيد لذا ساقوم بدراسة الامر و اجيبكم غدا بحول الله و مشيئته
  12. السلام عليكم و رحمة الله و بركاته الاخ الطيب ياسر أبو البراء التتعديل لم يحل المشكلة بالنسة لما تتغير الدرجة من 179 الى 180 يبقى هناك اختلاف كبير في المتوسط و بالنسبة للامر الاخر فهو تمام و أشكرك لجهوك و أشكر الاخ أبو عيد لاضافه القانون و أتمنى أن يتم كابته بصيغه دالة أخرى . و بالنسبة للغرض من هذا الطلب فبكل بساطه نعرف جميعا ان الكواكب تسير بنظام دائري و انا اريد حساب متوسط حركتها :) و جزاكم الله كل خير
  13. و عليكم السلام و رحمة الله و بركاته أهلا بك اخي ياسر خليل أبو البراء أشكرك لجهدك الطيب و عملك المبدع بالنسبة لحساب الفرق حسبته بدالة المتوسط الحسابي العادي و اذا كنت تقصد الخلايا D فالمعادلة بتلك الخلايا و بالنسبة للدالة التي تفضلت بعملها فهي جيدة و ممتازة و لكن تظهر مشكلة و تحتاج لامر المشكلة تظهر لما تكون الزاوية اقل من 180 ثم تصبح 180 او اكثر هنا يحدث فرق بين المتوسطين اللذين تم حسابهما بالدالة الجديدة و الامر الذي احتاج اليه هو اذا كانت قيمة المتوسط اكثر او تساوي 360 نقوم بطرح 360 و هو امر ليس ضروريا لكن اذا سهل ادخاله بالدالة فسيكون اسهل لي و بالملف المرفق توضيح للمشكلة و للامر و جزاكم الله كل خير Angles Average UDF Function 2.zip
  14. بالنسبة لمعادلة الاخ الطيب ياسر أبو البراء المعادلة جيدة لكن ندخل لا تصلح لكل الحالات و مذكور بالملف الذي ارفقته كيف اننا يجب ان نضطر لاضافة 360 او 180 او طرحهما لذا الامر سيكون حسب ظني اما الحصول على المتوسط بمرحلتين او ستكون معادلة معقدة تحي اداة الشرط حسب الحالات و تحوي معادلة الحصول على المتوسط و بارك الله بكم جميعا
  15. السلام عليكم و رحمة الله و بركاته آسف جدا لتاخري و غيابي و أشكركم لتفاعلكم و ردودكم الطيبة و آسف لعدم رفع الملف بشكل جيد الدائرة طبعا هي 360 كما تفضلتم و كان خطا كتابي و بالنسبة لكيفية حساب المتوسط يوجد مشاركة بعنوان قياسات زوايا الدائرة و الاخت ام عبد الله اجابت بحل لها و ممكن بتقسيم الناتج على 2 اضافة الناتج الجديد للقيمة الاصغر هذا سهل نسبيا بالنسبة لزاويتين و في حال اكثر من ذلك فهنا مشكة و صراحة لا اعرف كيف اكتب صيغة تفيدني و بالملف المرفق شرح للمطلوب و ايضا يوجد الحل الذي تفضلت به الاخت ام عبد الله و جزاكم الله كل خير الفرق ين زاويتين.rar
×
×
  • اضف...

Important Information