أكاديمية الصقر للتدريب

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


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





الدالة المعرفة SumIn

السلام عليكم ورحمة الله وبركاته سأل سائل بسؤال قد سُئِل قائلاً {أن عنده نص وليكن كالتالى} [code]QSgxMClCKDUuNDUpQyguMDU ..



08-07-2021 11:53 مساء
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 

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

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

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


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

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

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)
هذه دالة معرفة بسيطه وبناء تلك الدالة هو
=SumIn(area,[brackets])

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

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

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

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


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

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


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

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

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


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


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

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

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











 
 
  SumIn.rar   تحميل rar مرات التحميل :(23)
الحجم :(12.734) KB


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

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


كان على الفيس مش هنا
حاضر حاضر هعمل ملف 😤

09-07-2021 07:30 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif الدالة المعرفة SumIn
وعليكم السلام ورحمة الله وبركاته 
ميت مسا 
ميت ربيعه
ميت غمر

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




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


 










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

الساعة الآن 05:43 مساء