المساعدة في تحديد أعلى قيمة وأقل قيمة في الكومبو

'DD

For I = 0 To Combo1.ListCount - 1

If I = Combo1.ListCount - 1 Then Exit Sub

If Combo1.List(I) > Combo1.List(I + 1) Then TEXT1 = Combo1.List(I)

Next I

'DD

For I = 0 To Combo1.ListCount - 1

If I = Combo1.ListCount - 1 Then Exit Sub

If Combo1.List(I) < Combo1.List(I + 1) Then TEXT1 = Combo1.List(I)

Next I

أول حاجة يا أخ عباس مشرفنا العزيز هاني سعد لا يغلق المواضيع بدون سبب (هل تتوقع أن إدارة المنتدى وضعت مشرفا هكذا بدون أن يتأكدوا من أنه أنسان عاقل) أرجو منك أخي الكريم أن تتقيد بقوانين المنتدى ومن ثم تشارك بالمنتدى.

أخوك سعد....

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

مشكور أخ hythamzero على جهودك .

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

Dim I As Integer, Max As Long, Min As Long
Const MSGARAB = vbMsgBoxRight + vbMsgBoxRtlReading
For I = 0 To Combo1.ListCount - 1
If Combo1.List(I) > Max Then
Max = Combo1.List(I)
End If
If Combo1.List(I) < Min Then
Min = Combo1.List(I)
End If
Next
MsgBox "القيمة العظمى = " & Max, vbExclamation + MSGARAB
MsgBox "القيمة الصغرى = " & Min, vbExclamation + MSGARAB

;) مع خالص تحياتي ،،،

شكرا أيها الاخوة على الردود

ولكن للأسف الكود الأول يعطي بيانات غبر دقيقة

والكود الثاني يعطي دائما القيمة الصغرى تساوي صفر 0

ولقد هداني الله لهذا الكود وهو يعمل بشكل صحيح

max_min.zip

max_min.zip

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

min=Combo1.List(0)

For I = 0 To Combo1.ListCount - 1

.......

عسى ان يستفيد احد ما في المستقبل من هذا الكود