معادلة تحقق من وجود قيمة ضمن نطاق بشرط معين(معدل)

[ابو سعودد]

السلام عليكم

 

لدي العدد تسعة

 

 

ولدي ثلاثين عدد مختلفه على الترتيب 

1

6

5

7

2

4

8

2

4

5

7

5

4

1

4

1

5

9

8

 المطلوب هو ان يعمل اكسل مقارنه بين العدد تسعه والعدد الاول ثم يقارن العدد تسعه مع العدد الثاني وهكذا بحيث انه اذا كان العدد الاول اصغر من التسعه ينتقل للعدد الثاني ويعمل مقارنه مع وان كان اصغر من التسعه ينتقل للعدد الثالث وهكذا ,, وان انتهى من كل الاعداد ولم يجد عدد مطابق للتسعه يطبع كلمة "لايوجد"

 

ولايتوقف عن المقارنه الا بحالتين

وهي ان كان العدد الاول او العدد الثاني او الثالث الى اخره  مساوي للعدد تسعه يطبع كلمة "موجود" ويتوقف عند اول عدد مساوي للتسعه 

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

 

تحياتي للجميع

[أبو عبد الملك السوفي]

السلام عليكم

تفضل أخي الكريم

البحث عن عدد.rar

[ابو سعودد]

السلام عليكم

تفضل أخي الكريم

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

 

امثلة

4

3

4

1

5

8

6

4

2

 

هنا يقوم بمقارنة جميع الاعداد  وفي النهاية يطبع غير موجود لعدم وجود الرقم تسعة,,

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

صورة اخرى

 

4

5

2

4

9

2

4

5

9

9

 

هنا يقوم بالمقارنة من اول عدد حتى يصل العدد تسعة الملون باللون الاحمر ويتوقف عندها ولا يلتفت للاعداد التالية ويطبع موجود ,,,

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

الصورة الثالثة

 

1

5

4

2

10

8

8

9

9

9

 

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

 

اتمنى تكون الصورة واضحة  وكل الشكر لك وللاخوان نفع الله سبحانة وتعالى بكم ,,,,

تم تعديل أكتوبر 9, 2013 بواسطه ابو سعودد

[ابو سعودد]

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

[أبو حنــــين]

السلام عليكم

جرب المرفق 2003

Book1.rar

تم تعديل أكتوبر 9, 2013 بواسطه أبو حنين

[ابو سعودد]

السلام عليكم

جرب المرفق 2003

بارك الله فيك الامر غير واضح بالنسبه لي اين اضع الرقم المراد مقارنته ؟

[ابو سعودد]

ربما الصورة غير واضحة الان عندي هذا المثال

 

الرقم تسعة اريد مقارنتة مع هذه الارقام

1

5

7

4

2

4

5

8

5

4

9

 

يقوم اكسل بمقارنتة مع اول رقم فاذا كان اقل من التسعة ينتقل للرقم التالي فان كان اقل من التسعة ينتقل للرقم التالي وبهذا المثال يكون اخر رقم هو التسعة فا يطبع كلمة موجود ولو افترضنا التسعة كانت موجودة اول او ثاني او ثالث عدد يتوقف عندها مباشره ويطبع موجود ,,,

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

 

يعني شرط المقارنة هو انه لايكون قبل الرقم المراد مقارنته رقم اكبر منه فان وجد هذا يطبع كلمة غير موجود ولا يلتفت للارقام التالية ,,,

 

 

تم تعديل أكتوبر 9, 2013 بواسطه ابو سعودد

[أبو حنــــين]

السلام عليكم

أكتب في  المرفق الحالي الرقم في الخلية  B2

Book1_.rar

[حمادة باشا]

بعد إذن الأستاذ/ أبو حنين

أعتقد أني فهمت ما يقصده الأخ/ ابو سعودد

أو هكذا أتمني ...

 

 

الرقم موجود.rar

[ابو سعودد]

السلام عليكم

أكتب في  المرفق الحالي الرقم في الخلية  B2

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

[ابو سعودد]

بعد إذن الأستاذ/ أبو حنين

أعتقد أني فهمت ما يقصده الأخ/ ابو سعودد

أو هكذا أتمني ...

اخ حمادة باشا  انته فعلا باشه ,,, هذا هو المطلوب فعلا ولكني اريد النتيجة تكون موجود او غير موجود تكتب في خلية النيجة وياليت تعطيني المعادلة لاني مو قادر احصل عليها  ,,,

 

انا راح اعدل عليها بس اريد المعادلة ,,,

تم تعديل أكتوبر 9, 2013 بواسطه ابو سعودد

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

جرب هذا الحل أخى لعله يكون المطلوب

مطلوب معادلة.rar

[ابو سعودد]

جرب هذا الحل أخى لعله يكون المطلوب

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

[الـعيدروس]

السلام عليكم

 

الاخ ابو سعودد 

ارى انك سويت متاهات 

الطلب بإختصار بحث عن رقم في مدى معين وخلاص

 وجواب الشرط تريدها بإختصار ( موجود - غير موجود - قيمة البحث تجاوزت الحد الاعلى للقيم الموجودة )

ام هناك استخلاص اخر تريده ؟

[البروفسير]

طول ما مصفوفة الارقام اصغر من الرقم المطلوب البحث عنه .. . البحث شغال .. حتى يجد او لا يجد الرقم المبحوث عنه .
لو قابل رقم اكبر البحث يقف .. ويقول انه مش موجود .. حتى ولو كان موجود بعد كده  ..
============================================================================
المعادلة بالعربي :
بداية القالب ()

اذا كان قيمة الخلية A1 => الخلية بالنطاق b2:b50           تعليق " الرقم سيضع في A1 و باقى المصفوفة بداية من b2"
اذهب الى SS
او
اذهب الى NN                                                       تعليق " وبكده اتحقق الشرط الاول الخاص باقل من او اكبر"            

ss:
اذا كان الرقم بالخلية A1 متطابق بالمصفوفة الموجودة بالنطاق b2:b50 اذا c1 = ( موجود )
او
اذهب الى NN
nn:
c1 = ( غير موجود)  
اخرج من القالب

كرر مع كل خلية فى المصفوفة

نهاية القالب             
===========================================================================

تم تعديل أكتوبر 10, 2013 بواسطه البروفسير

[حمادة باشا]

 

بعد إذن الأستاذ/ أبو حنين

أعتقد أني فهمت ما يقصده الأخ/ ابو سعودد

أو هكذا أتمني ...

اخ حمادة باشا  انته فعلا باشه ,,, هذا هو المطلوب فعلا ولكني اريد النتيجة تكون موجود او غير موجود تكتب في خلية النيجة وياليت تعطيني المعادلة لاني مو قادر احصل عليها  ,,,

 

انا راح اعدل عليها بس اريد المعادلة ,,,

 

الأخ الكريم/ ابو سعودد

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

أشكرك علي الإطراء - المعادلة بسيطة ولكن شرح المطلوب أحدث إلتباس لدينا - والمشاركين في الحل أساتذة كبار لايشق لهم غبار

المعادلة كما طلبت

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2")) Is Nothing Then
    Exit Sub
End If
On Error Resume Next
If Target = 0 Then
    Range("D3") = ""
    Exit Sub
End If
iLastRow = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To iLastRow
    If Range("A" & i).Value = Target.Value Then
        Range("D3") = "الرقم موجود"
        Exit Sub
    ElseIf Range("A" & i) > Target Then
        Exit For
    End If
Next i
Range("D3") = "الرقم غير موجود"
End Sub

ومرفق تعديل الملف بإستخدام هذة المعادلة

تقبل تحياتي

 

الرقم موجود-2.rar

[ابو سعودد]

بارك الله في الجميع 

 

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

 

حقيقة انا كنت اتوقع ان المسلة اني اكتب = وبعدها اكتب المعادلة المرادة في الخلية الهدف ,,ولكن المسئلة اكبر من ذلك ,, فالاخ حمادة اعطاني معادلة طويلة ولا اعلم اين اكتبها   

 

الشكر كل الشكر لكم ,,,

[حمادة باشا]

بارك الله في الجميع 

 

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

 

حقيقة انا كنت اتوقع ان المسلة اني اكتب = وبعدها اكتب المعادلة المرادة في الخلية الهدف ,,ولكن المسئلة اكبر من ذلك ,, فالاخ حمادة اعطاني معادلة طويلة ولا اعلم اين اكتبها   

 

الشكر كل الشكر لكم ,,,

 

الأخ الكريم/ أبوسعودد

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

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

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

وأي إستفسار لاتتردد - تقبل تحياتي

الرقم موجود-3.rar

[ابو سعودد]

 

بارك الله في الجميع 

 

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

 

حقيقة انا كنت اتوقع ان المسلة اني اكتب = وبعدها اكتب المعادلة المرادة في الخلية الهدف ,,ولكن المسئلة اكبر من ذلك ,, فالاخ حمادة اعطاني معادلة طويلة ولا اعلم اين اكتبها   

 

الشكر كل الشكر لكم ,,,

 

الأخ الكريم/ أبوسعودد

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

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

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

وأي إستفسار لاتتردد - تقبل تحياتي

 

بسم الله ما شاء الله  بارك الله فيك اخوي حمادة ابدعت ,, هناك مشكلة حينما انقل المعادلة لملف اخر لا تعمل بل كيف جائة كلمة موجود وغير موجود وهي ليست في المعادلة ,, اسئل الله ان يكن التوفيق في كل طريق تمشية وفي كل خطوة تخطوها ,,,

[محمد صبره]

الأخ الكريم أبو سعود

 

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

 

الرجاء الأطلاع على الملف المرفق، وأتمنى من الله أن أكون قد وفقت في تلبية طلبك.

 

مع خالص تحياتي

 

محمد صبره

 

 

NEW FILE.zip

[حمادة باشا]

 

بسم الله ما شاء الله  بارك الله فيك اخوي حمادة ابدعت ,, هناك مشكلة حينما انقل المعادلة لملف اخر لا تعمل بل كيف جائة كلمة موجود وغير موجود وهي ليست في المعادلة ,, اسئل الله ان يكن التوفيق في كل طريق تمشية وفي كل خطوة تخطوها ,,,

 

 

أخي/ أبوسعودد

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

يمكنك حفظ ملف المعادلة بالأسم الذي تريده ثم تضع فيه البيانات المطلوبة 

أما إن أردت نقل المعادلة إلي ملف جديد لابد من نقل الكود الخاص بها معها حتي يتعرف عليها الإكسل - علي النحو التالي :

1- إفتح الملف الذي به المعادلة

2- إضغط  Alt+F11 ستفتح نافذة محرر الأكواد

3- علي اليسار ستجد سطر به كلمة Module1 أضغط بالماوس عليه مرتين

4- من الصفحة اليمني التي ستفتح إستخدم Ctrl+A ثم  Ctrl+C لتظليل ثم نسخ كامل الكود

5- بعد ذلك إذهب إلي الملف الجديد وكرر الخطوات 1 و2

6- علي اليسار إن لم تجدسطر Module إستخدم زر الماوس اليمين تظهر قائمة إختار منها Insert > Module

7- داخل النافذة اليمني التي ستفتح إستخدم Ctrl+V ستلصق الكود بها

8- آخر خطوة إحفظ الملف الجديد علي صورة Excel Macro-Enabled Workbook ستجدها في قائمة منسدلة أسفل نافذة الحفظ

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

تقبل تحياتي

[ابو سعودد]

 

 

بسم الله ما شاء الله  بارك الله فيك اخوي حمادة ابدعت ,, هناك مشكلة حينما انقل المعادلة لملف اخر لا تعمل بل كيف جائة كلمة موجود وغير موجود وهي ليست في المعادلة ,, اسئل الله ان يكن التوفيق في كل طريق تمشية وفي كل خطوة تخطوها ,,,

 

 

أخي/ أبوسعودد

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

يمكنك حفظ ملف المعادلة بالأسم الذي تريده ثم تضع فيه البيانات المطلوبة 

أما إن أردت نقل المعادلة إلي ملف جديد لابد من نقل الكود الخاص بها معها حتي يتعرف عليها الإكسل - علي النحو التالي :

1- إفتح الملف الذي به المعادلة

2- إضغط  Alt+F11 ستفتح نافذة محرر الأكواد

3- علي اليسار ستجد سطر به كلمة Module1 أضغط بالماوس عليه مرتين

4- من الصفحة اليمني التي ستفتح إستخدم Ctrl+A ثم  Ctrl+C لتظليل ثم نسخ كامل الكود

5- بعد ذلك إذهب إلي الملف الجديد وكرر الخطوات 1 و2

6- علي اليسار إن لم تجدسطر Module إستخدم زر الماوس اليمين تظهر قائمة إختار منها Insert > Module

7- داخل النافذة اليمني التي ستفتح إستخدم Ctrl+V ستلصق الكود بها

8- آخر خطوة إحفظ الملف الجديد علي صورة Excel Macro-Enabled Workbook ستجدها في قائمة منسدلة أسفل نافذة الحفظ

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

تقبل تحياتي

 

بارك الله فيك  واضح جدا ,, ابداع في ابداع حقيقة ولك كل الشكر والامتنان على ماقدمتة اخوي حمادة ,,,