Sub Makro1()
riadok = 1
' načítanie hodnôt z tabuľky
a = Cells(1, 2).Value
b = Cells(1, 3).Value
c = Cells(1, 4).Value
d = Cells(1, 5).Value
x = Cells(1, 6).Value
' štyri vnorené cykly
For i = 0 To x \ a ' koľko krát sa nachádza hodnota B1
For j = 0 To x \ b ' koľko krát sa nachádza hodnota C1
For k = 0 To x \ c ' koľko krát sa nachádza hodnota D1
For l = 0 To x \ d ' koľko krát sa nachádza hodnota E1
hod = x - i * a - j * b - k * c - l * d ' výpočet zostatku
If hod >= 0 And hod < d Then ' záporný zostatok preskoč a tak isto aj väčší ako najmenší rozmer
riadok = riadok + 1
' uloženie hodnôt do tabuľky
Cells(riadok, 1).Value = hod
Cells(riadok, 2).Value = i
Cells(riadok, 3).Value = j
Cells(riadok, 4).Value = k
Cells(riadok, 5).Value = l
End If
Next l
Next k
Next j
Next i
' zotriedenie výsledkov
Range("A2:E612").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub