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

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


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





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

بسم الله والحمد لله والصلاة والسلام على رسول الله مرحباً بكم من جديد أيها الشعب العريق (مش عريق أوى يعنى ) متابعينا من ..



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

بسم الله والحمد لله والصلاة والسلام على رسول الله

مرحباً بكم من جديد أيها الشعب العريق (مش عريق أوى يعنى biggrin2)
متابعينا من كل مكان وفى كل زمان كيف اخباركم واخبار اخباركم ، أما بعد

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

نشوف الصورة أدناه كى نفهم المقصود أولاً

MzM1MzQzMQ2222Capture1

نلاحظ فى الصورة ان دا جدول لتقرير معين نقوم به احصاء عدد عقود تخص شركات الصقر مثلاً
(بلاش حد يدخل ويقول عقود ايه دى والحنتفه الفاضيه دى ها ، دا مثال كنافة بالمانجا كدا عشان اوصل فكرة الدالة والسلام)

المهم هو ان المطلوب منى فى عمل التقرير تسجيل الاحصائيات بالشكل دا (الرقم ويليه مسمى يخصه)
ومن هنا الجمع هيواجه مشكله ، هى مش مشكلة كبيره اوى بالنسبة للناس المتقدمه فى استخدام الصيغ

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

المفيد انى برمجت دالة ظريفة خفيفة اسمها LSum اختصار لـ Left Summation
فيه ناس تعطى السمك وفيه ناس تعلمك الصيد
اما انا فاحب ان اعلمك الصيد واعطيك السمك


لتتعلم الصيد اليك بالسورس كود وهو كالتالى

Function LSum(rng As Variant, Optional Singular As String, Optional Plural As String) As String
'Developer: Eslam Abdullah
Dim c As Range, tmp As Variant
For Each c In rng
    tmp = tmp + Val(c)
Next c
LSum = RTrim(Switch(tmp = 0, "لا يوجد", Abs(tmp) > 2 And Abs(tmp) < 11, tmp & " " & Plural, 1, tmp & " " & Singular))
End Function


ولتأخذ السمك البورى (البورى حلو بس متعفنوش وتقول عليه فسيخ بس ماشى)
استخدام الدالة بسيط جدا ، بناء الدالة كالتالى

=LSum(rng,[Singular],[Plural])


بسيطة جدا اكتب الدالة هتلاقيها عايزة منك 3 ادخالات
1- هيطلب منك الخلايا اللى هيجمع الارقام البادئة منها
2- هيطلب منك مصطلح المفرد الذى بلى الناتج
3- هيطلب منك مصطلح الجمع الذى يلى الناتج

وممكن تشغل الـ D او الـ G وتكتب الدالة وتفتح قوس وتضغط Ctrl + A او Ctrl + Shift + A وتعرف الدالة عايزه كام باراميتر لوحدك
وعشان اديلك البورى مشفى ، انظر الصورة أدناه واللى شوفناها أعلاه (أرنبنا فى منور أنور وأرنب أنور فى منورنا)

MzM1MzQzMQ2222Capture1

الناتج هنا 20 عقد وكتبت الدالة كالتالى
=lsum(B2:B4,"عقد","عقود")

ملاحظة أخيره: ليس شرط ان تكتب شئ فى الباراميتر الثانى او الثالث انت حر ايها الحاج

وبكدا اكون وضحت استخدام الدالة (السمك)
ومنحتك كود الدالة (الصيد)

كان معكم ومعنا ومعاهم أيضاً أخوكم فى الله إسلام عبدالله
وإلى لقاء قريب إن شاء الله ، دمتم فى حفظ الله ورعايته 81












 
 


01-07-2021 01:40 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif الدالة المعرفة LSum
حبيبى أستاذ / اســــــــــــــــــــــــلام
             دائما متألق ومبدع
ويا ريت متنسانيش فى سمكة كمان علشان انا لسه بتعلم الصيد

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

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

02-07-2021 12:02 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif الدالة المعرفة LSum
بارك الله فيك أخي العزيز إسلام ومشكور على حلولك المميزة للمشاكل التي تواجه شريحة كبيرة من الناس.

03-07-2021 07:15 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1769
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif الدالة المعرفة LSum
أحسنت استاذ اسلام بارك الله فيك وزادك الله من فضله
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

03-07-2021 10:08 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif الدالة المعرفة LSum
تسلم اخى العزيز اسلام
وجعله الله في ميزان حسناتكم يوم القيامة

05-11-2021 03:29 مساء
مشاهدة مشاركة منفردة [6]
محمد أبو عبدو
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 202
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 613
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif الدالة المعرفة LSum
جزاك الله عنا خير الجزاء وبارك الله فيك أستاذي الفاضل





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


 










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

الساعة الآن 12:56 مساء