بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'قائمة ،اعلى 5 قيم'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته اريد بعد اذنكم كود يظهر اعلى 5 قيم في صف بعد اشتراط محتوي الخلية التي بجانبه مثال 3 قيد يومية 189 قبض نقدي 203 صرف نقدي 10 قيد يومية 20 قبض نقدي 200 صرف نقدي نشترط مثلا ان القيم التي ستظهر هى اعلى 5 قيم لقيد اليومية وجدت هذا الكود ولم استطع التعديل عليه Sub big5() Dim rngTestArea As Range, i As Integer, j As Integer, MyResult As String Set rngTestArea = ThisWorkbook.Worksheets("ورقة1").Range("A1:A25") j = 0 For i = 1 To 5 j = Application.WorksheetFunction.Large(rngTestArea, i) MyResult = MyResult & "Rank " & i & " is " & j & vbCr Next i MsgBox MyResult End Sub
