الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن مساعد سؤال في الداله IF

مغلق
بدأه أم هاني في 16 يناير 2007 · 5 رد · 851 مشاهدة · في طلب و دراسة وشرح البرامج
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أخواني الأعضاء

أريد منكم كود يقوم بحساب معدل درجات

=IF(L15>=100;"5";IF(AND(L15<100;L15>=95);"4.75";IF(AND(L15<95;L15>=90);"4.5";IF(AND(L15<90;L15>=85);"4";IF(AND(L15<85;L15>=80);"3.5 ";IF(AND(L15<80;L15>=75);"3";IF(AND(L15<75;L15>=70);"2.5";IF(L15<70;"1.5ـ"))))))))

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

";IF(AND(L15<60;L15>=60);"

لايعمل بصرحه تعبت :blink: :blink:

يعطيكم العافيه افيدوني

ولكم جزيل الشكر والأمتنان

#2

يمكن تصميم داله IF كما تريد عن طريق داله بأكواد Vba كالتالى

Public Function MyIf(ByVal MyCell As Double) As Double
	If MyCell >= 100 Then
		MyIf = 5
	ElseIf MyCell < 100 And MyCell >= 95 Then
		MyIf = 4.75
	ElseIf MyCell < 95 And MyCell >= 90 Then
		MyIf = 4.5
	 ElseIf MyCell < 90 And MyCell >= 85 Then
		MyIf = 4
	ElseIf MyCell < 85 And MyCell >= 80 Then
		MyIf = 3.5
	ElseIf MyCell < 80 And MyCell >= 75 Then
		MyIf = 3
	ElseIf MyCell < 75 And MyCell >= 70 Then
		MyIf = 2.5
	ElseIf MyCell < 70 And MyCell >= 65 Then
		MyIf = 2
	ElseIf MyCell < 65 And MyCell >= 60 Then
		MyIf = 1.5
	ElseIf MyCell < 60 And MyCell >= 55 Then
		MyIf = 1
	Else
	 MsgBox "Wrong Number"
	End If

End Function

مرفق ملف

If_VB.rar

تم تعديل هذه المشاركة بواسطة هادى سالم في 17 يناير 2007 في 11:20

#3

جزاك الله خير اخ هادي سالم

بس ماضبط معي

شوف الملف المرفق

الي عملته وابغى عليه تعديل بسيط

___.zip

#4

بسم الله الرحمن الرحيم

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

اتمنى ان يكون هو المطلوب

السلام عليكم

If_VB_01.rar

#5

يعطيك العافيه الحمدلله كل شي تمام

#6

ابداع

هذا الموضوع مغلق.

مواضيع مشابهة