logo

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



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





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

سأل سائل بسؤال قد سُئِل قائلاً {أن عنده نص وليكن كالتالى}

CODE
A(10)B(5.45)C(.05)


ويريد أن يستخدم دالة جمع تكن نتيجتها مجموع الأرقام داخل تلك الأقواس () بالنص أعلاه

وهنا أيها السادة الكرام السائل يريد لسؤاله المسئول جواباً صريحاً يجيب السؤال الذى سأله أعلاه فأجبت بجواباً متواضعاً لسؤاله المسئول
(أى كلام وكنافه بالمانجا)
المهم والمفيد برمجت دالة اسميتها SumIn واليكم بكود الدالة أدناه

CODE
Function SumIn(area, Optional b$ = "()") As Double
'Developer: Eslam Abdullah
Dim a$, ar, nm: With CreateObject("VBScript.RegExp")
a = Mid(b, 1, 1): b = Mid(b, 2, 1)
a = IIf(InStr("(){}[]^$+*?.|\", a), "\" & a, a): b = IIf(InStr("(){}[]^$+*?.|\", b), "\" & b, b)
.Pattern = a & "(\d*\.?\d+)" & b: .Global = True

For Each ar In area
    For Each nm In .Execute(ar)
        SumIn = SumIn + nm.SubMatches(0)
    Next nm
Next ar

End With
End Function


ما هذا هذا ماذا (جمله مقتبسه من ا/ياسر خليل biggrin2)
هذه دالة معرفة بسيطه وبناء تلك الدالة هو
CODE
=SumIn(area,[brackets])

سهل جدا هتقولى ازاى لوك يعنى بص يعنى انظر
تحتوى الدالى على 2 باراميتر فحسب وفقط لا غير

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

يلا بينا ناخد مثال ونكتب سوا فى الخلايا A1 و A2 و C1 النص التالى (انسخ النص فى الــ 3 خلايا أدناه)

CODE
A(10)B(5.45)C(.05)


واكتب المعادله كالتالى وتابع النتيجة
CODE
=SumIn(A1,"()")

او طالما سنعمل على القوسين ممكن تكتبها كدا وتابع النتيجة
CODE
=SumIn(A1)


بس خلينا بالطريقه الاولى عشان نشوف ازاى نشتغل بالرموز

تعالى نجرب بقى نجمع النطاق A1:A2 ونكتبها كدا وتابع النتيجة

CODE
=SumIn(A1:A2,"()")


وتعالى برضوا نجمع النطاق A1:A2 و C1 ونكتبها كدا وتابع النتيجة
CODE
=SumIn((A1:A2,C1),"()")


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

طبعا ممكن تغير الرمز البادئ والرمز الذى ينتهى براحتك وعيش يامان
وأخيرا مرفق ملف عمل بالموضوع

اذا نلقاكم فى يوم جديد ايها الاخوة الكرام بسعادة تغمر القلوب
وهنا استودعكم عند من لا تضيع عنده الودائع
والسلام عليكم ورحمة الله وبركاته
 
 
  SumIn.rar   تحميل rar مرات التحميل :(24)
الحجم :(12.734) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229، ali mohamed ali،



look/images/icons/i1.gif الدالة المعرفة SumIn
  09-07-2021 05:53 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك أخي العزيز إسلام
يبدو إن الزهايمر عامل عمايله معايا ، هو مش الموضوع دا تم طرحه بشكل مختلف شوية قبل كدا .. هل هو نفس الموضوع ولا موضوع تاني ؟ وليه مصمم ميكونش فيه ملف مرفق (كمستند رسمي يتم الرجوع إليه في حالة استدعائك للنيابة العامة)

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



look/images/icons/i1.gif الدالة المعرفة SumIn
  09-07-2021 01:54 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي العزيز إسلام
يبدو إن الزهايمر عامل عمايله معايا ، هو مش الموضوع دا تم طرحه بشكل مختلف شوية قبل كدا .. هل هو نفس الموضوع ولا موضوع تاني ؟ وليه مصمم ميكونش فيه ملف مرفق (كمستند رسمي يتم الرجوع إليه في حالة استدعائك للنيابة العامة)
كان على الفيس مش هنا
حاضر حاضر هعمل ملف 😤

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



look/images/icons/i1.gif الدالة المعرفة SumIn
  09-07-2021 07:30 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 803
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3951
الاعجاب : 23
وعليكم السلام ورحمة الله وبركاته
ميت مسا
ميت ربيعه
ميت غمر

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



look/images/icons/i1.gif الدالة المعرفة SumIn
  09-07-2021 07:35 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
ميت أحلى مرور عطر حسونه بك biggrin2

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



اضافة رد جديد اضافة موضوع جديد



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

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









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

الساعة الآن 09:26 AM