تحويل دالة الى كود

[رسول هادي]

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

المطلوب تحويل هذه الدالة الى كود وكما في المرفق وشكرا

IF(D5>60;D5-10;IF(D5<50;"";IF(D5="";"";50)))

سمارت كارت.rar

[سليم حاصبيا]

ربما يكون الحل

 

سمارت كارت salim.rar

[رسول هادي]

شكرا جزيلا وبارك الله وعاشت ايدك، بس المطلوب ان يكون عمل الكود تلقائي وبدون زر يضغط 

تم تعديل سبتمبر 15, 2016 بواسطه رسول هادي

[ابراهيم الحداد]

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

ضع هذا الكود فى مديول

Function Daraga(Cel As Range) As Variant
If Cel.Value < 50 Or Cel.Value = "" Then
Daraga = ""
ElseIf Cel.Value > 60 Then
Daraga = Cel.Value - 10
Else
Daraga = 50
End If
End Function

 

 

[قلم-الاكسل(عبدالعزيز)]

المهندس سليم يا ليت لما تكون فاضي تنشر في موضوع مستقل تحويل المعادلة الى كود

[رسول هادي]

3 ساعات مضت, زيزو العجوز said:

Function Daraga(Cel As Range) As Variant If Cel.Value < 50 Or Cel.Value = "" Then Daraga = "" ElseIf Cel.Value > 60 Then Daraga = Cel.Value - 10 Else Daraga = 50 End If End Function

 

وعليكم السلام ورحمة الله وبركاته . شكرا ياخي ولكن لا اعرف اين اضعه هل من المكك وضعه في الملف المرفق اعلاه  سمارت كارت salim.rar

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

تم تعديل سبتمبر 15, 2016 بواسطه رسول هادي

[ابراهيم الحداد]

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

تفضل

 

 

سمارت كارت.rar

[رسول هادي]

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

شكرا اخي وبارك الله فيك. ولكن لا اريد في عمود c او العمود H اي كتابة سواء كانت معادلة اوي شي اخر، يعني يتضمن الكود انه اذا كتب الدرجات في العمود dيطرح منه ويكتب في العمود c من دون ان يكون في العمود c دالة او غيرها يعني يكون العمود c  والعمود h خاليين من القيم وشكرا

[ابراهيم الحداد]

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

تفضل

سمارت كارت.rar

[سليم حاصبيا]

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

عذراً اخي زيزو لم الاحظ مشاركتك الا بعد ادراج خاصتي

 

 

سمارت كارت salim_auto.rar

[رسول هادي]

شكرا جزيلا وبارك الله فيكم .تم العملية بنجاح