Toplamları belli olan sayı dizisi bulma

[Tugcandirik]

Merhaba Arkadaşlar;

Öncelikle iyi forumlar toplamları 151 olacak şekilde ve her sayı grubunda 6 farklı sayı olacak şekilde yapabilirmisiniz?

 

[Muhammet Okumuş]

Merhaba,

Sub Rastgele()
Application.ScreenUpdating = False
5
a = 151
Range("A1:F1") = 0
10
b = WorksheetFunction.Sum(Range("A1:F1"))
If b = a Then GoTo 20
x = WorksheetFunction.RandBetween(1, 6)
Cells(1, x) = Cells(1, x) + 1
GoTo 10
20
c = Evaluate("=SUMPRODUCT(--(1/COUNTIF(A1:F1,A1:F1)))")
If c <> 6 Then GoTo 5
End Sub

Kodu deneyiniz.