AliBadawy قام بنشر مايو 21, 2022 مشاركة قام بنشر مايو 21, 2022 السلام عليكم اولا محتاج اجيب اكبر قيمة بين ال 1000 و 3000 مثلا في مربع النصوص الأقل قيمة مع العلم ان دوال minif و maxif مش موجودين عندي في اوفيس 16 برو بلاص والمثال في المرفقات وشكرا جزيلاً مقدماً test.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر مايو 21, 2022 أفضل إجابة مشاركة قام بنشر مايو 21, 2022 السلام عليكم ورحمة الله استخدم الكود التالى 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 3 رابط هذا التعليق شارك More sharing options...
AliBadawy قام بنشر مايو 21, 2022 الكاتب مشاركة قام بنشر مايو 21, 2022 جزاك الله خيرا يا استاذي ..كود ممتاز ادي الغرض رابط هذا التعليق شارك More sharing options...
الردود الموصى بها