مطلوب إيجاد القيمة الكبيرة

أخي تفضل هذا مثال . أرجوا من الله ان يلبي طلبك

أخي الكريم الكريم لو فرضنا ان لديك عدد 10 تكست من نوع Array

استخدم هذا الكود لتحصل على اعلى قيمة

 Dim a  As Long
 Dim TName As String
 TName = "text1(0)"
  a = Text1(0).Text

  For i = 1 To 9
	 If Text1(i).Text = a Then
		TName = TName & "  and text1(" & i & ")"
	  ElseIf Text1(i).Text > a Then
		 a = Text1(i).Text
		TName = "text1(" & i & ")"
	 End If
  Next i
  MsgBox "أعلى قيمة هي :  "   &  a
  MsgBox " أعلى قيمة موجوة في :  "  & TName

تحياتي

medo_Programming كتب:

أخي تفضل هذا مثال . أرجوا من الله ان يلبي طلبك

اعتذر اخي ميدو

يبدو اننا كنا نكتب الرد في نفس الوقت فلم انتبه لوجودك .

تحياتي

ولا يهمك أخي :lol:

المهم ان نساعد AZhar3

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

وفي علمكم

اللهم امين