معرفة السائق الأكثر تحصيلاً لشهر ما

[Saleh89]

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

حياكم الله.

سؤالي الأول: أريد أخذ بيانات خلية الصف 1 بالاعتماد على أكبر نسبة تحصيل في الصف 2؟

سؤالي الثاني: خلال شهر 6 - مثلاً - أريد أعرف من هو السائق الأكثر تحصيلاً بالاعتماد على مجموع تكرار اسمه؟

 

الملف المرفق يوضح الفكرة أكثر..

نسبة التحصيل.xlsx

[سليم حاصبيا]

هذه المعادلة في  G3  واسحب نزولاً

=INDEX($B$2:$E$2,MATCH(MAX($B3:$E3),$B3:$E3,0))

لكن المشكلة اذا تساوى رقمان أو أكثر و كانا ( Max أو Min )  تحصل  على أول اسم فقط 

كما في الصف الخامس او السادس من هذا الملف 

Tahsil.xlsx

[Saleh89]

6 دقائق مضت, سليم حاصبيا said:

هذه المعادلة في  G3  واسحب نزولاً

=INDEX($B$2:$E$2,MATCH(MAX($B3:$E3),$B3:$E3,0))

لكن المشكلة اذا تساوى رقمان أو أكثر و كانا ( Max أو Min )  تحصل  على أول اسم فقط 

كما في الصف الخامس او السادس من هذا الملف 

Tahsil.xlsx 10.35 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

جميل جداً

هل يمكن مثلاً وذع الاسمين معاً إذا تساوت نسبة تحصيلهما؟

----------------------

بقي السؤال الثاني: كيف أعرف أن السائق أحمد هو من تكرر اسمه أكثر من غيره حتى يتم منحه المكافئة؟

[سليم حاصبيا]

ربما هذا ما تقصده

 

Tahsil_1.xlsx

[سليم حاصبيا]

اذا اردت ان تكون الاسماء في خلية واحدة (صفحة Salim من هذا الملف)

هذا الكود

Option Explicit

Sub max_min()
Dim mY_rg As Range
Dim last_row%, i%, J%
Dim M%: M = 12
last_row = Cells(Rows.Count, 1).End(3).Row
Dim st_max$, st_min$
Range("l2").CurrentRegion.Offset(1).ClearContents
For i = 3 To last_row
 For J = 2 To 5
  If Cells(i, J) = _
    Application.Min(Cells(i, 2).Resize(, 4)) Then
    st_min = st_min & Cells(2, J) & ","
  ElseIf Cells(i, J) = _
    Application.Max(Cells(i, 2).Resize(, 4)) Then
    st_max = st_max & Cells(2, J) & ","
  End If
 
 Next
  Cells(i, M) = Mid(st_min, 1, Len(st_min) - 1)
  Cells(i, M + 1) = Mid(st_max, 1, Len(st_max) - 1)
 st_min = "": st_max = ""
Next
End Sub

الملف مرفق

 

Tahsil_Macro.xlsm

[Saleh89]

8 ساعات مضت, سليم حاصبيا said:

اذا اردت ان تكون الاسماء في خلية واحدة (صفحة Salim من هذا الملف)

هذا الكود

Option Explicit

Sub max_min()
Dim mY_rg As Range
Dim last_row%, i%, J%
Dim M%: M = 12
last_row = Cells(Rows.Count, 1).End(3).Row
Dim st_max$, st_min$
Range("l2").CurrentRegion.Offset(1).ClearContents
For i = 3 To last_row
 For J = 2 To 5
  If Cells(i, J) = _
    Application.Min(Cells(i, 2).Resize(, 4)) Then
    st_min = st_min & Cells(2, J) & ","
  ElseIf Cells(i, J) = _
    Application.Max(Cells(i, 2).Resize(, 4)) Then
    st_max = st_max & Cells(2, J) & ","
  End If
 
 Next
  Cells(i, M) = Mid(st_min, 1, Len(st_min) - 1)
  Cells(i, M + 1) = Mid(st_max, 1, Len(st_max) - 1)
 st_min = "": st_max = ""
Next
End Sub

الملف مرفق

 

Tahsil_Macro.xlsm 26.69 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

جزاك الله خير أستاذي 🌻

فكرة أن يكون كل سائق في خلية بمفردة فكرة جميلة وراقت لي

للخصوصية: أحاول ارسل لك ملف العمل، لكن المشكلة أن هذه الرسالة لم تسمح لي بإرسال الرسالة: " مسموح لك بارسال 0 رسائل في اليوم . حا،ول مره اخري بعد انتهاء اليوم. "