Ma to je gruba sila, pa jos presporo...
Pogledaj dva reda obelezena komentarima u funkciji
Code:
Public Function Dobitak() As Single
Dim M As Integer
Dim N As Integer
Dim I As Integer
Dim J As Integer
Dim solutions As Collection
Dim txt As String
Dim Total As Single
Dim subtotal As Single
Application.Volatile
Total = 0
Set solutions = New Collection
M = [sheet1!e2]
N = [sheet1!e1]
MchoseN N, 1, M, solutions
For I = 1 To solutions.Count
txt = txt & solutions(I) & vbCrLf
subtotal = 1
For J = 1 To N
subtotal = subtotal * [Sheet1!B1].Offset(Mid(solutions(I), (J - 1) * 2 + 1, 2), 0).Range("A1").Value
Next J
' Debug.Print solutions(I) & " = " & subtotal
Total = Total + subtotal
Next I
' Debug.Print "Total = " & Total
Dobitak = Total / [sheet1!e3]
End Function
Zar mislis da sam slucajno ostavio komentare u kodu?
Ipak nisi dovoljno proucio primer
Skini komentare i pogledaj sta se ispisuje u Immediate prozoru,
pa to iskoristi da popunis tabelu spiskom kombinacija kao i dobijenim
proizvodima (subtotal) ili max dobitak (total).
Pozdrav
P.S. Sve primere koji drugi clanovi postavljaju pregledam,
a uzimam ucesce samo ako smatram da to sto je neko od
prethodnika napisao nije doreceno ili pak nije funkcionalno resenje