dounabara قام بنشر أبريل 29, 2012 مشاركة قام بنشر أبريل 29, 2012 السلام عليكم قمت بانشاء دالة جديدة من أجل حساب الفرق بين قيمتين بحيث اذا كانت القيمة الاولى أكبر من الثانية أو العكس فتقوم الدالة باضافة الاشارة قبل الفارق ولكنني لا اريد ان تظهر النتيجة في كلا الخانتين - العمودين - اريد ان تظهر النتيجة في الكولون المخصص ذات الاشارة(-) تكون في الكولون المخصص لها اما ذات الاشارة(+) تكون في الكولون المخصص لها كما في هذا المثال لكن اريد ان تكون كلها في دالة واحدة وليس 3 دوال كما هو موجود اريد ان تكون دالة واحدة Ecart وليس Ecartplus أو Ecartmoins " هل يمكن وضع شرط للدالة لكي تعمل في كولون معين بطريقة وفي كولون آخر بطريقة اخرى " وبارك الله فيكم ECART.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 29, 2012 مشاركة قام بنشر أبريل 29, 2012 السلام عليكم اخي جرب المرفق ECART.rar رابط هذا التعليق شارك More sharing options...
dounabara قام بنشر أبريل 29, 2012 الكاتب مشاركة قام بنشر أبريل 29, 2012 بارك الله فيك أخي العزيز لكن طلبي حول انشاءها في دالة ارجو التعديل على الدالة التي عندي لتصبح دالة واحدة تعمل على كل عمود بشكل مختلف شكرا على المساعدة اخي انا في الانتظار اخوة الاعزاء رابط هذا التعليق شارك More sharing options...
dounabara قام بنشر أبريل 29, 2012 الكاتب مشاركة قام بنشر أبريل 29, 2012 " هل يمكن وضع شرط للدالة لكي تعمل في كولون معين بطريقة وفي كولون آخر بطريقة اخرى " وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
dounabara قام بنشر مايو 2, 2012 الكاتب مشاركة قام بنشر مايو 2, 2012 ........................................... ...................... ....... للرفع ============ تم تعديل المشاركة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 2, 2012 مشاركة قام بنشر مايو 2, 2012 السلام عليكم أخي العزيز غيرت قليلا في كود الدالة ليصبح كالتالي 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 رابط هذا التعليق شارك More sharing options...
dounabara قام بنشر مايو 2, 2012 الكاتب مشاركة قام بنشر مايو 2, 2012 الطريقة لم تنجح ياأخي فهو يكتب في كلا العمودين نفس النتيجة ارجو ان تقرأ المطلوب جيدا " هل يمكن وضع شرط للدالة لكي تعمل في كولون معين بطريقة وفي كولون آخر بطريقة اخرى " وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
dounabara قام بنشر مايو 2, 2012 الكاتب مشاركة قام بنشر مايو 2, 2012 ارجوا من الاخوة المساعدة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 3, 2012 مشاركة قام بنشر مايو 3, 2012 السلام عليكم بل الطريقة ناجحة أخي الكريم ولكن الدالة شأنها شأن باقي الدوال المستحدثة ، تحتاج Refresh أو إمسحها ونسخها من جديد أنظر الفيديو المرفق Refresh_Function.rar رابط هذا التعليق شارك More sharing options...
gilgil قام بنشر مايو 3, 2012 مشاركة قام بنشر مايو 3, 2012 thank you for your efforts رابط هذا التعليق شارك More sharing options...
dounabara قام بنشر مايو 3, 2012 الكاتب مشاركة قام بنشر مايو 3, 2012 بارك الله فيك أخي صحيح أن الدالة تعمل ولكن الامر متعب جدا حيث انه يلزمني التحديث كل مرة حتى تعمل الدالة بالشكل المطلوب هل من حل آخر " هل يمكن وضع شرط للدالة لكي تعمل في كولون معين بطريقة وفي كولون آخر بطريقة اخرى " وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
dounabara قام بنشر مايو 4, 2012 الكاتب مشاركة قام بنشر مايو 4, 2012 للرفع...................................................................... رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 السلام عليكم أخي العزيز أنظر الحل بالمرفق بلاأكواد فقط دوال الأكسل العادية مع التنسيق ECART_TAREQ1.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.