ارجو المساعد في انشاء دالة لاضافة اشارة في عمود مخصص

[dounabara]

السلام عليكم

قمت بانشاء دالة جديدة من أجل حساب الفرق بين قيمتين بحيث

اذا كانت القيمة الاولى أكبر من الثانية أو العكس

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

اريد ان تظهر النتيجة في الكولون المخصص

ذات الاشارة(-) تكون في الكولون المخصص لها اما

ذات الاشارة(+) تكون في الكولون المخصص لها

كما في هذا المثال لكن اريد ان تكون كلها في دالة واحدة وليس 3 دوال كما هو موجود

اريد ان تكون دالة واحدة Ecart

وليس Ecartplus أو Ecartmoins

" هل يمكن وضع شرط للدالة لكي تعمل في كولون معين بطريقة وفي كولون آخر بطريقة اخرى "

وبارك الله فيكم

ECART.rar

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

السلام عليكم اخي

جرب المرفق

ECART.rar

[dounabara]

بارك الله فيك أخي العزيز

لكن طلبي حول انشاءها في دالة

ارجو التعديل على الدالة التي عندي لتصبح دالة واحدة

تعمل على كل عمود بشكل مختلف

شكرا على المساعدة اخي

انا في الانتظار اخوة الاعزاء

[dounabara]

" هل يمكن وضع شرط للدالة لكي تعمل في كولون معين بطريقة وفي كولون آخر بطريقة اخرى "

وبارك الله فيكم

[dounabara]

...........................................

......................

.......

للرفع

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

تم تعديل المشاركة

[طارق محمود]

السلام عليكم

أخي العزيز

غيرت قليلا في كود الدالة ليصبح كالتالي

Public Function Ecart(Prop, Reas) As Variant

Dim diff  As Double

   If Prop = Reas Then

	  Ecart = "-"

   ElseIf Prop < Reas Then

	  diff = Reas - Prop

	  Ecart = "(+)" & " " & Format(diff, "##,##0.00")

   ElseIf Prop > Reas Then

	  diff = Prop - Reas

	 Ecart = "(-)" & " " & Format(diff, "##,##0.00")

   End If


If Ecart < 0 And ActiveCell.Column = 9 Then Ecart = "": GoTo 5

If Ecart > 0 And ActiveCell.Column = 10 Then Ecart = ""

5

End Function

مرفق الملف بعد التعديل

جرب وأخبرني

ECART_TAREQ.rar

[dounabara]

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

" هل يمكن وضع شرط للدالة لكي تعمل في كولون معين بطريقة وفي كولون آخر بطريقة اخرى "

وبارك الله فيكم

[dounabara]

ارجوا من الاخوة المساعدة

[طارق محمود]

السلام عليكم

بل الطريقة ناجحة أخي الكريم

ولكن الدالة شأنها شأن باقي الدوال المستحدثة ، تحتاج Refresh

أو إمسحها ونسخها من جديد

أنظر الفيديو المرفق

Refresh_Function.rar

[gilgil]

thank you for your efforts

[dounabara]

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

حيث انه يلزمني التحديث كل مرة حتى تعمل الدالة بالشكل المطلوب

هل من حل آخر

" هل يمكن وضع شرط للدالة لكي تعمل في كولون معين بطريقة وفي كولون آخر بطريقة اخرى "

وبارك الله فيكم

[dounabara]

للرفع......................................................................

[طارق محمود]

السلام عليكم

أخي العزيز

أنظر الحل بالمرفق بلاأكواد

فقط دوال الأكسل العادية مع التنسيق

ECART_TAREQ1.rar