كود او دالة لايجاد اكبر وأصغر قيمة بين رقمين لنطاق معين

[AliBadawy]

السلام عليكم اولا

محتاج اجيب اكبر قيمة بين ال 1000 و 3000 مثلا في مربع النصوص الأقل قيمة

مع العلم ان دوال minif و maxif مش موجودين عندي في اوفيس 16 برو بلاص

والمثال في المرفقات 

وشكرا جزيلاً مقدماً

test.xlsm

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

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

استخدم الكود التالى

Sub MinMax()
Dim arr()
On Error Resume Next
ReDim Preserve arr(200)
For Each c In Range("I2:I200")
If c.Value >= 1000 And c.Value <= 3000 Then
arr(p) = c.Value
p = p + 1
End If
Next
X = WorksheetFunction.Max(arr)
Y = WorksheetFunction.Min(arr)
Sheet2.TextBox1.Value = X
Sheet2.TextBox2.Value = Y
End Sub

 

[AliBadawy]

جزاك الله خيرا يا استاذي  ..كود ممتاز  ادي الغرض