logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





19-12-2018 08:57 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
بسم الله والحمد لله والصلاة والسلام على رسول الله
أهلا ومرحبا بكم أخوانى الكرام من جديد


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

وهنا يأتى دور الدالة Remain فى تقديم تقرير بسيط لما هو فائض أو عجز من البارات فى المخزون
وذلك بإستخدام بسيط جداَ



لنأخذ مثال مبسط ونلقى نظرة على الصورة التالية
MTM0MzM1MQ1818001

نتكلم عن المثال الأول فى الصورة وعليه تفهموا الباقى بإذن الله
نلاحظ أن الصيغة المدخله فى الصف الأول من المثال عند عمود الفائض والعجز كالتالى

CODE
=Remain(A6,B6,C6,D6,0)
=Remain(A6,B6,C6,D6,1)

أى ببسطاه هناك 5 باراميترات
الأول: عدد البارات بالمخزون
الثانى: هو طول البارات بالمخزون
الثالث: عدد البارات المطلوبة
الرابع: طول تلك البارات المطلوبة
الخامس: اختيارى ونكتب TRUE أو 1 لحساب العجز ونهملها أو نكتب FALSE أو 0 لحساب الفائض



وعليه تقوم المعادلة بحساب التالى
يوجد بارتان بطول 12 متر والمطلوب 4 بارات بطول 5 أمتار

اولا نأخذ أول بار بطول 12 متر ونقطع منه 5 متر ثم 5 متر أخرى
بهذا يتبقى منه 2 متر وينتهى الغرض منه ولا زلنا نريد بارتان بطول 5 متر

ثم نأخذ البار الثانى بطول 12 متر ونقطع منه 5 متر ثم 5 متر أخرى
بهذا يتبقى 2 متر من ذلك البار أيضا ونسبتا للمطلوب فيكون قد انتهى
اذا هنا الفائض عبارة عن بارتان بطول 2 متر ولا يوجد عجز



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



تم تحديث الكود من حيث ( سرعة أكبر وتخزين أقل وتفادى أخطاء) بتاريخ 03/05/2021
مرفق ملف العمل للتحميل و
كود الدالة كالتالى
CODE
Function Remain(EBar As Integer, ELen As Double, RBar As Integer, RLen As Double, Optional view As Boolean) As Variant
'Programming by Eslam Abdullah
Dim i%, ln%, Relen#, txt$, m As Boolean
If EBar < 0 Or ELen < 0 Or RBar < 0 Or RLen < 0 Then Remain = CVErr(xlErrNum): Exit Function
If view = 0 Then
    For i = 1 To EBar
        Relen = ELen - RLen * Application.Min(Int(ELen / RLen ^ Sgn(RLen)), RBar * Sgn(RLen)): RBar = RBar - (ELen - Relen) / RLen ^ Sgn(RLen)
        If Relen > 0 Then
            m = InStr(txt, Relen & "m"): ln = InStrRev(txt, " ") - (m = 0)
            txt = IIf(m, Left(txt, ln), txt & "; ") & Val(Mid(txt, ln)) * -m + 1 - (Relen = ELen) * (EBar - i) & ":" & Relen & "m"
            If Relen = ELen Then Exit For
        End If
    Next i
    Remain = IIf(Relen, Mid(txt, 3), 0)
Else
    txt = CInt(((ELen - ELen Mod RLen ^ Sgn(RLen)) * EBar - RBar * RLen) / RLen ^ Sgn(RLen))
    Remain = IIf(txt < 0 And RLen, Abs(txt) & ":" & RLen & "m", 0)
End If
End Function

كان معكم أخوكم فى الله اسلام عبدالله
دمتم فى حفظ الله ورعايته 81
 
 
  Remain UDF.zip   تحميل zip مرات التحميل :(13)
الحجم :(135.729) KB


أثارت هذه المشاركة إعجاب: محمد أبو عبدو، Yasser Elaraby، YasserKhalil، abdulwahed catran،



look/images/icons/i1.gif الدالة المعرفة Remain
  20-12-2018 08:42 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 185
الجنس :
تاريخ الميلاد : 20-8-1989
قوة السمعة : 244
الاعجاب : 0
Thank you

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif الدالة المعرفة Remain
  20-12-2018 09:03 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس :
قوة السمعة : 206
الاعجاب : 0
موقعي : زيارة موقعي
جزاك الله خيرا

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif الدالة المعرفة Remain
  20-12-2018 11:17 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 169
الدولة : سورية
الجنس :
تاريخ الميلاد : 10-2-1968
قوة السمعة : 280
الاعجاب : 0
جزاكم الله خيرا

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif الدالة المعرفة Remain
  22-12-2018 09:10 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
بارك الله فيك أخي الحبيب إسلام وجزاك الله خيراً
أعمال مميزة

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif الدالة المعرفة Remain
  22-12-2018 04:23 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
تسلم يا سمسم ومش عارف هتتهد امته

بكره لما تبقيي دفعة هتتهد غصب عنك biggrin2

تحياتى وتقديرى لاعمالك العظيمه

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

look/images/icons/i1.gif الدالة المعرفة Remain
  22-12-2018 04:36 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب تسلم يا سمسم ومش عارف هتتهد امته

بكره لما تبقيي دفعة هتتهد غصب عنك biggrin2

تحياتى وتقديرى لاعمالك العظيمه
هاجى فى الاجازه وانتشر برضوا باذن الله biggrin2biggrin2biggrin2biggrin2




look/images/icons/i1.gif الدالة المعرفة Remain
  22-12-2018 08:57 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4396
المشاركات : 4
الجنس :
قوة السمعة : 16
الاعجاب : 0
مش المفروض تعديل الفائض علي اساس الإجمالية المستهلكة وليس علي الوحدة الوادة كما في المثال الاول الفائض 4 م بدلا من 2 م ع اساس يوجد 2 بار * 12 متر طول والمطلوب عمل 4 * 5 م طول = 20 م يبقي الفائض 4 م وايضا استخدام المتر كوحدة حساب بدلا من مم

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif الدالة المعرفة Remain
  22-12-2018 09:45 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: kareem2020 مش المفروض تعديل الفائض علي اساس الإجمالية المستهلكة وليس علي الوحدة الوادة كما في المثال الاول الفائض 4 م بدلا من 2 م ع اساس يوجد 2 بار * 12 متر طول والمطلوب عمل 4 * 5 م طول = 20 م يبقي الفائض 4 م وايضا استخدام المتر كوحدة حساب بدلا من مم
تم الرد على حساب الفيس بوك خاص أستاذ كريم




look/images/icons/i1.gif الدالة المعرفة Remain
  23-12-2018 12:28 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 477
الجنس :
تاريخ الميلاد : 1-4-1980
قوة السمعة : 882
الاعجاب : 8
بارك الله فيك استاذ اسلام وزادك الله من فضله

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif الدالة المعرفة Remain
  23-12-2018 02:05 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2018
رقم العضوية : 9718
المشاركات : 12
الجنس :
قوة السمعة : 30
الاعجاب : 0
ممتازجدا

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif الدالة المعرفة Remain
  30-12-2018 09:03 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 01-12-2017
رقم العضوية : 2039
المشاركات : 12
الجنس :
تاريخ الميلاد : 1-1-1981
قوة السمعة : 34
الاعجاب : 0
شكراً على المجهود الرائع

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif الدالة المعرفة Remain
  08-03-2020 06:26 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 202
الجنس :
تاريخ الميلاد : 13-4-1966
قوة السمعة : 613
الاعجاب : 0
بارك الله فيك أستاذي الفاضل وجزاك الله خير الجزاء، وجعل هذا العمل الطيب في ميزان حسناتك وكتبه الله لك صدقة جارية.

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،



اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مدموج :نريد عمل دالة معرفة للدالة الجديدة VSTACK (برمجة الدالة) jjebril
3 335 jjebril
الدالة المعرفة TrimPro Eslam Abdullah
7 1215 karwan
جمع وطرح أرقام بعدد خانات لا نهاية له بالدالة المعرفة Calc Eslam Abdullah
16 3270 YasserKhalil
الدالة المعرفة LSum Eslam Abdullah
6 1494 محمد أبو عبدو
الدالة vlookup alsaqr. بالفرنسية منجة فاتح
4 856 hassona229

الكلمات الدلالية
الدالة ، المعرفة ، Remain ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:04 PM