ssan1900 قام بنشر يوليو 18, 2004 مشاركة قام بنشر يوليو 18, 2004 السلام عليكم ورحمة الله وبركاته عندي قائمة تتكون من ارقام وارغب في تحديد الاتي: 1- تحديد اكبر رقم 2- تحديد موقع الخلية التي يوجد بها اكبر رقم . 3- هل من الممكن ان ينتقل المؤشر الى موقع الخلية التي يوجد بها اكبر رقم . شكرا رابط هذا التعليق شارك More sharing options...
السيد عبد العال قام بنشر يوليو 20, 2004 مشاركة قام بنشر يوليو 20, 2004 بفرض أن 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 رابط هذا التعليق شارك More sharing options...
smart قام بنشر يوليو 20, 2004 مشاركة قام بنشر يوليو 20, 2004 السلام عليكم جربت الطريقة ، استخراج أعلى قيمة تعمل بشكل صحيح لكن الجزء الثاني لا يعمل حيث مرجع غير صالح ؟؟؟؟؟؟ ارجو أخذ ذك بعين الاعتبار رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يوليو 20, 2004 مشاركة قام بنشر يوليو 20, 2004 المعادلة تعمل معي بشكل ممتاز ، ربما المشكلة فى نوع الفاصل فاصلة ، م فاصلة منقوطة ; و هذا يختلف بحسب الاعدادات الاقليمية لديك جرب المعادلة فى الملف المرفق فى مشاركة تالية مع تحياتي رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يوليو 20, 2004 مشاركة قام بنشر يوليو 20, 2004 و استكمالا لكلام الأخ سيد للذهاب الي الخلية التي بها القيمة القصوي ضمن المجال شغل الماكرو الاتي Sub goforit() m = Range("E10").Value Application.Goto Reference:=m End Sub حيث E10 الخلية التي تم بها اظهار مرجع الخلية التي تحوي القيمة القصوي ضمن المجال ، و لكن بطريقة الحروف و الأعمدة مرفق ملف المثال الملف المرفق ( عدد مرات التنزيل: 17 ) MatchAddress.rar تم حذف الملف لاستبداله بآخر أشمل فى مشاركة لاحقة رابط هذا التعليق شارك More sharing options...
ssan1900 قام بنشر يوليو 21, 2004 الكاتب مشاركة قام بنشر يوليو 21, 2004 بفرض ان العمود D كله ارقام حتى اخره ارغب في توجيه المؤشر الى الخلية التي بها اكبر رقم. شكرا للأخوان. رابط هذا التعليق شارك More sharing options...
الفدعاني قام بنشر يوليو 21, 2004 مشاركة قام بنشر يوليو 21, 2004 شوف هذا ممكن يفيدك 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 رابط هذا التعليق شارك More sharing options...
السيد عبد العال قام بنشر يوليو 21, 2004 مشاركة قام بنشر يوليو 21, 2004 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 يتم اختيار الخلايا المطلوبة ثم استدعاء الماكرو فى حالة وجود اكثر من قيمة سيتم اختيار الاولى رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يوليو 22, 2004 مشاركة قام بنشر يوليو 22, 2004 استكمالا لكلام الأخ سيد مرفق مثال واحد يوضح كيفية استنتاج القيمة القصوي و مرجع الخلية التي بها القيمة القصوي بالاسماء ، و بأرقام الأعمدة و الصفوف ، و ذلك لمجالين أفقي و رأسي و ذلك بالمعادلات بدون أكواد. كما يوجد كود لاستنتاج الخلية التي لها القيمة القصوي من ضمن المجال المختار مع اختبار هل الخلية بها رقم أو نص و اختيار أول خلية بها أقصي قيمة ضمن المجال المختار ، و لتجربته يتم اختيار مجال البحث ثم تشغيل الماكرو. 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 رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر يوليو 22, 2004 مشاركة قام بنشر يوليو 22, 2004 عمل موفق ورائع للجميع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها