Question

I have an excel spreadsheet in a format similar to the following…

| NAME  | CLUB | STATUS | SCORE | | Fred  |  a   | Gent   | 145   | | Bert  |  a   | Gent   | 150   | | Harry |  a   | Gent   | 195   | | Jim   |  a   | Gent   | 150   | | Clare |  a   | Lady   | 99    | | Simon |  a   | Junior | 130   | | John  |  b   | Junior | 130   |    :    : | Henry |  z   | Gent   | 200   | 

I need to convert this table into a list of the ‘Top Ten’ teams. The rules are

• Each team score is taken from the sum of four members of that club.
• These totals should be of the best four scores except…
  • Each team must consist of at least one Junior or Lady

For example in the table above the team score for club A would be 625 not 640 as you would take the scores for Harry(190), Bert(150), Jim(150), and Simon(130). You could not take Fred’s(145) score as that would give you only Gents.

My question is, can this be done easily as a series of Excel formula, or will I need to resort to using something more procedural?

Ideally the solution needs to be automatic in the team selections, I don’t want to have to create separate hand crafted formula for each team. I also will not necessarily have a neatly ordered list of each clubs members. Although I could probably generate the list via an extra calculation sheet.

Answer 1

Public Function TopTen(Club As String, Scores As Range)      Dim i As Long     Dim vaScores As Variant     Dim bLady As Boolean     Dim lCnt As Long     Dim lTotal As Long      vaScores = FilterOnClub(Scores.Value, Club)     vaScores = SortOnScore(vaScores)      For i = LBound(vaScores, 2) To UBound(vaScores, 2)         If lCnt = 3 And Not bLady Then             If vaScores(3, i) <> 'Gent' Then                 lTotal = lTotal + vaScores(4, i)                 bLady = True                 lCnt = lCnt + 1             End If         Else             lTotal = lTotal + vaScores(4, i)             lCnt = lCnt + 1             If vaScores(3, i) <> 'Gent' Then bLady = True         End If          If lCnt = 4 Then Exit For     Next i      TopTen = lTotal  End Function  Private Function FilterOnClub(vaScores As Variant, sClub As String) As Variant      Dim i As Long, j As Long     Dim aTemp() As Variant      For i = LBound(vaScores, 1) To UBound(vaScores, 1)         If vaScores(i, 2) = sClub Then             j = j + 1             ReDim Preserve aTemp(1 To 4, 1 To j)             aTemp(1, j) = vaScores(i, 1)             aTemp(2, j) = vaScores(i, 2)             aTemp(3, j) = vaScores(i, 3)             aTemp(4, j) = vaScores(i, 4)         End If     Next i      FilterOnClub = aTemp  End Function  Private Function SortOnScore(vaScores As Variant) As Variant      Dim i As Long, j As Long, k As Long     Dim aTemp(1 To 4) As Variant      For i = 1 To UBound(vaScores, 2) - 1         For j = i To UBound(vaScores, 2)             If vaScores(4, i) < vaScores(4, j) Then                 For k = 1 To 4                     aTemp(k) = vaScores(k, j)                     vaScores(k, j) = vaScores(k, i)                     vaScores(k, i) = aTemp(k)                 Next k             End If         Next j     Next i      SortOnScore = vaScores  End Function 

Use as =TopTen(H2,$B$2:$E$30) where H2 contains the club letter.