تحديد الخلية التي بها القيمة القصوى و الانتقال لها

[ssan1900]

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

عندي قائمة تتكون من ارقام وارغب في تحديد الاتي:

1- تحديد اكبر رقم

2- تحديد موقع الخلية التي يوجد بها اكبر رقم .

3- هل من الممكن ان ينتقل المؤشر الى موقع الخلية التي يوجد بها اكبر رقم .

شكرا

[السيد عبد العال]

بفرض أن

D3=20

E3=26

F3=11

والمطلوب

وضع قيمة اكبر قيمة فى الخلية C3

وضع عنوان الخلية التى تحتوى أكبر قيمة فى الخلية B2

أولا : عن طريق المعادلات:

نكتب هذه المعادلة فى C3

=MAX(D3:F3)

النتيجة 26 نكتب هذه المعادلة فى B2

=ADDRESS(ROW(D3),COLUMN(D3)+MATCH(C3,D3:F3,0)-1)

النتيجة $E$3

[smart]

السلام عليكم

جربت الطريقة ، استخراج أعلى قيمة تعمل بشكل صحيح لكن الجزء الثاني لا يعمل حيث مرجع غير صالح ؟؟؟؟؟؟

ارجو أخذ ذك بعين الاعتبار

[محمد طاهر عرفه]

المعادلة تعمل معي بشكل ممتاز ، ربما المشكلة فى نوع الفاصل

فاصلة ، م فاصلة منقوطة ;

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

جرب المعادلة فى الملف المرفق فى مشاركة تالية

مع تحياتي

[محمد طاهر عرفه]

و استكمالا لكلام الأخ سيد

للذهاب الي الخلية التي بها القيمة القصوي ضمن المجال

شغل الماكرو الاتي

Sub goforit()
 m = Range("E10").Value
 Application.Goto Reference:=m
End Sub

حيث E10 الخلية التي تم بها اظهار مرجع الخلية التي تحوي القيمة القصوي ضمن المجال ، و لكن بطريقة الحروف و الأعمدة

مرفق ملف المثال

الملف المرفق ( عدد مرات التنزيل: 17 )

MatchAddress.rar

تم حذف الملف لاستبداله بآخر أشمل فى مشاركة لاحقة

[ssan1900]

بفرض

ان العمود D كله ارقام حتى اخره

ارغب في توجيه المؤشر الى الخلية التي بها اكبر رقم.

شكرا للأخوان.

[الفدعاني]

شوف هذا ممكن يفيدك

Private Sub CommandButton1_Click()
Range("B3").Select
    Selection.Sort Key1:=Range("B3"), Order1:=xlDescending, Key2:=Range("B3") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
   
End Sub

[السيد عبد العال]

Sub GotoMax()
Dim MaxValue As Single
Dim MaxRef As String
Dim Ccell As Range
MaxValue = -3.402823E+38
 For Each Ccell In Selection
  If Ccell.Value > MaxValue Then
    MaxValue = Ccell.Value
    MaxRef = Ccell.AddressLocal
  End If
 Next
If MaxValue = -3.402823E+38 Then MsgBox " No Max!!": Exit Sub
Range(MaxRef).Select
MsgBox "The Max Ni is " & MaxValue & " at Cell " & MaxRef
End Sub

يتم اختيار الخلايا المطلوبة ثم استدعاء الماكرو

فى حالة وجود اكثر من قيمة سيتم اختيار الاولى

[محمد طاهر عرفه]

استكمالا لكلام الأخ سيد

مرفق مثال واحد يوضح كيفية استنتاج القيمة القصوي و مرجع الخلية التي بها القيمة القصوي بالاسماء ، و بأرقام الأعمدة و الصفوف ، و ذلك لمجالين أفقي و رأسي

و ذلك بالمعادلات بدون أكواد.

كما يوجد كود لاستنتاج الخلية التي لها القيمة القصوي من ضمن المجال المختار

مع اختبار هل الخلية بها رقم أو نص و اختيار أول خلية بها أقصي قيمة ضمن المجال المختار ، و لتجربته يتم اختيار مجال البحث ثم تشغيل الماكرو.

Sub GotoMax()
Dim MaxValue As Single, MaxRef As String, Ccell As Range

With Selection.Cells(1)
 MaxValue = .Value
 MaxRef = .AddressLocal
End With

For Each Ccell In Selection
 If IsNumeric(Ccell.Value) And Ccell.Value > MaxValue Then
   MaxValue = Ccell.Value
   MaxRef = Ccell.AddressLocal
 End If
Next

Range(MaxRef).Select
MsgBox "The Max No. is " & MaxValue & " at Cell " & MaxRef
End Sub

MatchAddress2.rar

[حسام نور]

عمل موفق ورائع للجميع