logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





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


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

CODE
=IF(A1=1,5,A1)

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



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



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

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



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

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

CODE
=IFEqual(A1,5,"Done")

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



وكود الدالة كالتالى
CODE
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 مرات التحميل :(2)
الحجم :(296.593) KB





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




look/images/icons/i1.gif الدالة المعرفة IfEqual
  24-10-2018 02:29 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
أحسنت استاذ اسلام -ممتاز بارك الله فيك وجعله فى ميزان حسناتك
دائما تبهرنا وتفاجئنا بمواضيع قيمة



توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

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




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

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




توقيع :الصقر

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


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



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

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

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


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




look/images/icons/i1.gif الدالة المعرفة IfEqual
  25-10-2018 03:39 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 02-07-2018
رقم العضوية : 6972
المشاركات : 51
الجنس :
تاريخ الميلاد : 11-12-1982
قوة السمعة : 105
الاعجاب : 0

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





look/images/icons/i1.gif الدالة المعرفة IfEqual
  26-10-2018 10:24 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 29-09-2018
رقم العضوية : 8197
المشاركات : 28
الجنس :
تاريخ الميلاد : 16-12-1986
قوة السمعة : 77
الاعجاب : 0
الحمد لله الذي جعل أمثالكم لنشر العلم والمساعدة بارك الله فيكم




look/images/icons/i1.gif الدالة المعرفة IfEqual
  26-10-2018 01:07 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
السلام عليكم ورحمة الله وبركاته
ما شاء الله بارك الله فيكم
جزاكم الله خيرا على هذا العمل المتميز بفكر وقاد
أرجو أن تأخذ مايكروسوفت بهذه الدوال الجديدة وتدرجها في نسخها القادمة مع الدوال التي طورها إخوتنا وأساتذتنا الكرام
في هذا المنتدى ليعم نفعها أرجاء العالم
والسلام عليكم ورحمة الله وبركاته



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


look/images/icons/i1.gif الدالة المعرفة IfEqual
  26-10-2018 01:50 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مشكور مروركم جميعا أساتذتى وأخوانى الكرام على الموضوع المتواضع
تقبلوا وافر احترامى وتقديرى 81




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




look/images/icons/i1.gif الدالة المعرفة IfEqual
  26-10-2018 11:51 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
ملاحظة: تم تحديث الدالة بتاريخ 26/10/2018
دمتم فى حفظ الله ورعايته 81




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




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

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









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

الساعة الآن 10:50 AM