fady65

ارفقت لكم الملف TRANGEL.xlsm

أخي بن علية حاجي الدالة سليمة وتقبل وسأرفق لك ملف الدالهحساب مثلثات_1.xlsx Function ARETRANGEL(A As Currency, B As Currency, C As Currency) As Currency S = (A + B + C) / 2 ARETRANGEL = Math.Sqr(S * (S - A) * (S - B) * (S - C)) End Function

أحسنت اخي بن عليه واخي أبو عيد هي فعلا معادلة هيرون والقصد فيها ايجاد داله لحساب مساحات الارضي ذات الاشكل غير منتظمه اكرر شكري للجميع وأرفق لكم الكود حتى تعم الفائدة Function aretrangel(A As Currency, B As Currency, C As Currency) As Currency S = (A + B + C) / 2 aretrangel = Math.Sqr(S * (S - A) * (S - B) * (S - C)) End Function

برفقه كود لحساب مساحة مثلث مختلف الاضلاع هناك خطاء في الكود بأمل شرح سبب الخطاء وكيف تتم معالجته Function aretrangel(hs As Currency, l As Currency, w As Currency, h As Currency) As Currency aretrangel = SQRT((hs * (hs - l) * (hs - w) * (hs - h))) End Function

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

السلام عليكم ورحمة الله وبركاتة اضع بين ايدكم سورسات اكسل التي تعمل معه على النسخة 2013 للراغبين في تعديلها او الاستفاده منها او فهم كيف يعمل اكسل والاكواد الموجوده فيها فقد يرغب احد الاستفاده منها او شرحها ضمن هذا المنتدى لتعم الفائدة وتكون المعلومه للجميع وليس حكر على احد امل ان تحوز على رضاكم واستحسانكم تقبول تحياتي VBA_Functions.rar

رائع جدا بارك الله فيك شكر لك على جهدك الذي بذلته لي لك مني فائق التحية والتقدير والاحترام

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

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

السلام عليكم ورحمة الله وبركاتة شكر اخي سليم جده تشكر عليه واوضحت لي الكثير من الامور وفكرتك الاخيره جيده وسوف اخذها بالحسبان للمناذج الاخرى اضفت هذه المعادلة واوفت بالمطلوب : =SUMPRODUCT($O$11:$O$67;--(LEFT($I$11:$I$67;2)*1=J$69))

بارك الله فيك اجابة شافية وافيه وفرت علي الكثير من الجهد اطمح الى افكار جديدة حول هذه الطريقة قد تقترحونها علي بالنسبة للملف هو الاصدر 2013 من اكسل وسأعيد تحميله لعله يكون سليم ارجو من سعادتكم الاطلاع عليه وابداء مرئيتك وافكار حوله وهل استطيع جمع كل كود على حده بحث يقراء عمود الاكواد ويجمع العمود المقابل المتوافق مع كل كود على حده برفقه الملف شكرا لكم وتقبلو تحياتي مجموع المبالغ.rar

السلام عليكم ورحمة الله وبركاتة لدي قائمة بارقام اريد تجميعها وهي كما يلي : الكود المبلغ المطلوب مجموع المبالغ التي يبداء كودها بي 21 213345 500 223456 300 2133456 200 213346 500 223347 500 2323457 400 مجموع المبالغ.rar

السلام عليكم اخي challenger شكر لك تم تجربة الكود ونجح بالفعل اكرر شكري لك مره اخرى

كتبت هذا الكود لكنه لم يفي بالغرض فما الخطاء فيه puplic Funciton pic( R As integer , I As integer) Dim A A= R * I / 2 end Function

السلام عليكم ورحمة الله وبركاتة عزيز الاستاذ طارق محمود اود حساب قطاع من دائرة معلوم طول قطرها وطول القوس لايجاد مساحة هذا المقطع من الدائرة مساحة المقطع = طول القوس × نصف القطر /2 مثال : 245 * 495 / 2 فهل استطيع ان اكتبة كود حيث انني احتاج الى عدد كبير من القطاعات وليس عملية واحدة فقط وشكرا لك