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

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


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





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

بسم الله والحمد لله والصلاة والسلام على رسول الله أهلا ومرحبا بكم إخوانى الكرام من جديد اليوم أقدم لكم دالة تعد تطوير وت ..



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

بسم الله والحمد لله والصلاة والسلام على رسول الله
أهلا ومرحبا بكم إخوانى الكرام من جديد
اليوم أقدم لكم دالة تعد تطوير وتحسين لدالة IFERROR

من المعروف أن دالة IFERROR تقوم باسترجاع قيمه يحددها المستخدم فى حالة حدوث خطأ
ولكن ماذا لو أردنا ارجاع قيم فى حالة تساوى قيم أخرى غير حدوث خطأ
فى الغالب نلجأ لدالة IF كالتالى

=IF(A1=1,5,A1)

هنا فى حالة تساوى الخلية A1 برقم 1 تعود النتيحة 5 غير ذلك تعود الخلية نفسها
سيكون الامر مرهق فى حالة كانت تلك الخلية معادلة طويله أو معادلة صفيف حيث سيتم تكرارها فى عدة اماكن اضافة لانخفاض سرعة المعالجة

لذلك تم برمجة الدالة IfEqual والتى تجلب نتيجة وفقا تساويها لنتيجة أخرى
ويمكن استخدام الدالة مع الصفيف وايضا نتائج الدالة كصفيف لا يشترط الضغط على Ctrl+Shift+Enter
الا فى حالة ادخلت الدالة مع صيغ اخرى تستعمل فيها المصفوفات

الان بناء الدالة كالتالى
=IFEqual(value,[test],[default])

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

ومن مميزات الدالة عند تحديد نطاق به خطا لن يسبب هذا خطا لباقى القيم داخل المصفوفه
هذا واكثر له امثله عملية داخل ملف العمل

الان ناتى لمثال عملى بسيط كالتالى
اكتب رقم 5 فى الخلية A1 ثم اكتب الصيغة التالية

=IFEqual(A1,5,"Done")

هنا فى حالة كانت الخلية A1 برقم 5 ستكون النتيجة هى الكلمة Done خلاف ذلك ستعود قيمة A1 نفسها
ذلك مثال بسيط (ومرفق ملف العمل) ببعض الأمثلة المتنوعة

وكود الدالة كالتالى
Function IfEqual(v As Variant, Optional test As Variant, Optional default As Variant = "")
'Programming by Eslam Abdullah
Dim arr, arr2, c, rw&, col&, x&, y&
On Error Resume Next
arr2 = v
rw = UBound(arr2, 1) - 1: col = UBound(arr2, 2) - 1
ReDim arr(rw, col)
If rw + col = 0 Then c = v: GoTo 1

    For Each c In arr2
1:      If IsMissing(test) Then
            If IsError(c) Then arr(x, y) = default Else arr(x, y) = c
        Else
            If c = test Then arr(x, y) = default Else arr(x, y) = c
        End If
        x = IIf(x = rw, 0, x + 1)
        y = IIf(x = 0, y + 1, y)
    Next c

If Err.Number Then IfEqual = Application.Transpose(arr) Else IfEqual = arr
End Function

ملاحظة: تم تحديث الدالة بتاريخ 26/10/2018
كان معكم ومعنا ومعاهم برضوا biggrin2
أخوكم فى الله اسلام عبدالله
دمتم فى حفظ الله ورعايته 81








 
 
  IfEqual UDF.rar   تحميل rar مرات التحميل :(1)
الحجم :(296.593) KB


24-10-2018 02:23 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif الدالة المعرفة IfEqual
بارك الله فيك أخي الغالي إسلام ومشكور على الموضوعات المميزة والتي لم يتطرق لها أحد من قبل
تقبل وافر تقديري واحترامي

24-10-2018 02:29 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif الدالة المعرفة IfEqual
أحسنت استاذ اسلام -ممتاز بارك الله فيك وجعله فى ميزان حسناتك
دائما تبهرنا وتفاجئنا بمواضيع قيمة
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

24-10-2018 03:05 مساء
مشاهدة مشاركة منفردة [3]
أحمد يوسف
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 483
الجنس : ذكر
الدعوات : 2
يتابعهم : 4
يتابعونه : 11
قوة السمعة : 1129
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif الدالة المعرفة IfEqual
مواضيع رائعة بارك الله فيك  استاذ اسلام وجعله فى ميزان حسناتك

24-10-2018 03:12 مساء
مشاهدة مشاركة منفردة [4]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif الدالة المعرفة IfEqual

ما شاء الله رائع يا غالى 1233
ربنا يبارك فيك

توقيع :الصقر

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


24-10-2018 07:08 مساء
مشاهدة مشاركة منفردة [5]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif الدالة المعرفة IfEqual
بارك الله فيك اسلام حبيبي عمل اكثر اكثر من رائع بل ممتاز وبجد بنستفيد منه كتير
 
توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

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

24-10-2018 08:28 مساء
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif الدالة المعرفة IfEqual
مشكور مروركم الغالى على الموضوع المتواضع والذى أسرنى كثيرا
أساتذتى وأخوانى الأعزاء

حبيبى أحوده مستنيك عشان نكمل مشوار الـ C++ biggrin2




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


 










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

الساعة الآن 10:08 صباحا