يرجى المساعدة ( دالة IF + معادلة جمع : بالاكواد ) - اهتمام الأستاذ : ولـــــــد المجـــــــــرب

[ياسر الحافظ]

السادة أساتذة الاكواد , السادة الأعضاء في موقعنا المميز :

مرفق ملف اكسل ( STOR1 )

المطلوب ( برجاء ) : أرجو المساعدة في دالة IF بالاكواد

موضح في الملف المرفق ( الشيت الرصيد )

واشكر مجددا الأخ / الأستاذ ابو احمد ( عبد الله المجرب ) في مساعدتي بطلب سابق بخصوص استخلاص نتائج

بشرط عن طريق الاكواد

وفقكــــــــــــــــــــــــــــــــم الله

والسلام

ياسر الحافظ

STOR1.rar

تم تعديل مايو 27, 2011 بواسطه hyasser

[محمد يحياوي]

ارجوا ان يكون المطلوب

تعديلSTOR1.rar

تم تعديل مايو 27, 2011 بواسطه yahiaoui

[عبدالله المجرب]

اخي ياسر

للمطلوب الثاني اضف هذه المعادلة في محرر الاكواد في حدثورقة العمل ((الرصيد))

للعلم فان كلما كان المدى كبيرأ كلما اصبح الملف ثقيلاً

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

For Each cel In Range("J4:J1000")

   cel.Value = cel.Offset(0, -2) - cel.Offset(0, -1)

   Next cel

 Application.ScreenUpdating = True

End Sub

ابواحمد

[عبدالله المجرب]

اخي ياسر

للمطلوب الاول والثاني اضف هذه المعادلة في محرر الاكواد في حدثورقة العمل ((الرصيد))

للعلم فان كلما كان المدى كبيرأ كلما اصبح الملف ثقيلاً

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

For Each cel In Range("E4:E100")

If cel.Offset(0, -2).Value < 200 Then cel.Value = "حمص"

If cel.Offset(0, -2).Value >= 200 Then cel.Value = ""

If cel.Offset(0, -2).Value = "" Then cel.Value = ""

   Next cel

For Each cel In Range("J4:J100")

   cel.Value = cel.Offset(0, -2) - cel.Offset(0, -1)

   Next cel

 Application.ScreenUpdating = True

End Sub

ابواحمد

STOR1.rar

تم تعديل مايو 27, 2011 بواسطه عبدالله المجرب

[ياسر الحافظ]

الاستاذ يحياوي :

اشكرك ... احببت ان اقول شكرا والحقيقة لم اطلع على المرفقات بعد

ولنا لقاء في هذه الصفحة انشاء الله

الاستاذ العزيز ابو احمد " عبد الله المجرب " :

الشكر الجزيل لاهتمامك

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

ولكن وقبل كل شيء شكرا ...

وفقكم الله ... والله الكلمات لاتستطيع التعبير عن حبوري وسعادتي ( باهتمامكم اولا وبالمرفقات ثانيا )

ياسر الحافظ

تم تعديل مايو 28, 2011 بواسطه hyasser

[ياسر الحافظ]

الأستاذ يحياوي :

أشكرك... عمل مميز رائع وهو المطلوب 0

...

الأستاذ العزيز أبو احمد " عبد الله المجرب " :

روعة .... الحقيقة عمل متقن وتستحق التقدير والشكر

وهو المطلوب تماما 0

ان هذا التنوع في الحلول يفتح لي افاق جديدة بالتعامل مع الاكواد .

أشكركم مجددا ... سعادتي بهذا التعاون اكبر من ان اعبر عنها بكلمات قلية

وفقكم الله

ياسر الحافظ