طلب ايجاد الارقام المفقودة

[sheef]

السلام عليكم

الرجاء وضع معادلة في كيفية ايجاد الارقام المفقودة بين رقمين

مرفق مثال

[يحيى حسين]

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

أخي جرب معادلة الصفيف هذه 

=SMALL(IF(ISNA(MATCH(ROW(INDIRECT(MIN($A$1:$A$3)&":"&MAX($A$1:$A$3))),$A$1:$A$3,0)),
ROW(INDIRECT(MIN($A$1:$A$3)&":"&MAX($A$1:$A$3))),""),ROW(1:1))

[sheef]

number.rarجزاك الله خير

وشاكر سرعة الاستجابة

ارجو ارفاقها بالملف

[sheef]

جزاك الله خير

وشاكر سرعة الاستجابة

ارجو ارفاقها بالملف

[جمال عبد السميع]

أخى بعد حل أستاذى العبقرى ( يحيى حسين )

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

وأن كانت سيكون إقتراح قد يفيد الموضوع

وإن لم يكن أتمنى من أستاذى ومعلمى ( يحيى حسين ) أن يغفر لتلميذه الخطأ وأن يصححة له

 

ايجاد الارقام المفقودة.rar

[sheef]

الشكر الجزيل لك اخي جمال

والله انك معلم 

[جمال عبد السميع]

الشكر لله أولا وأخيرا أخى

تقبل تحيات : أخيك

[يحيى حسين]

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

تفضل أخي الملف المرفق به تطبيق المعادلة أعلاه 

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

و هو ما ينطبق على هذه الحاله فقط 

و في حال رغبة الأخ تطبيقها على مجموعة قيم أخرى فلن تعطي نتيجة صحيحة 

و هذا ما حاولت تفاديه بمعادلتي بإستخدام معادلتي 

max and min 

============

و لكن أخي جمال يبقى تنوع الحلول متعة الموضوع و عموم الفائدة و أنا مع تعدد الحلول 

 

دمتم في حفظ الله 

الارقام المفقودة.rar

[يحيى حسين]

السلام عليكم 

و يمكن إضافة كود بسيط يقوم بإعطائك الأرقام المفقودة في العامود سي 

Sub DoIt()
Dim i As Integer
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = WorksheetFunction.Min(Range("B2:B" & LR)) To WorksheetFunction.Max(Range("B2:B" & LR))
    If WorksheetFunction.CountIf(Range("B:B"), i) = 0 Then
        Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = i
    End If
Next i
End Sub

[جمال عبد السميع]

أستاذى ومعلمى ( يحيى حسين )

أولا - شرف لية مجرد رد حضرتك على عمل لية ، وأشادة حضرتك به أسعدتنى بجد

ولكن بالنسبلا لملحوظة حضرتك بخصوص المدى الثابت للأرقام كان أمامى إختيارين

1- أن يكون المدى ثابت كما قمت برفعة

2- أن أقوم بعمل ( start num ) : (end num ) ودى معادلتها عملتها بالفعل ولكنى رأيت قبل رفع المرفق أنها بالحل الأول ستكون أكثر بساطة بالنسبة لأخى السائل

وليست المسألة صعبة ليقوم مستخدم المعادلة بتحديد المدى المطلوب وفقا لمتطلباتة

أستاذى أسعدنى مرورك ، وشرفتنى كلماتك

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

أستاذى شكرا على كلماتك ولاتدرك حضرتك مقدار سعادتى لمجرد ذكرك أسمى لعمل مع حضرتك

تقبل تحيات : تلميذك الذى يعتز بأستاذيتك له

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

الأرقام المفقودة.rar

تم تعديل يوليو 5, 2013 بواسطه جمال عبد السميع

[يحيى حسين]

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

أخي جمال استخدام رائع لمعادلات الصفيف 

و لكن أخي الحبيب بقيت نقطة لو إستخدمت معادلتي الـ Min and max 

لكن أفضل 

حل جميل و معادلة جميلة 

دمت في حفظ الله