اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

الردود الموصى بها

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

محتاج اجيب اكبر قيمة بين ال 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

 

  • Like 3
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information