|
|
| Abbreviated zone wheel on 35 numbers in 5 zones with 7 numbers, system on 5 numbers in line, warranty 5 if5x1from7 (N-0)
Condition: max 1 number in the same column
system on 2520 lines
Zones:
01 02 03 04 05 06 07 zone I
08 09 10 11 12 13 14 zone II
15 16 17 18 19 20 21 zone III
22 23 24 25 26 27 28 zone IV
29 30 31 32 33 34 35 zone V
...........................
EXCEL
in cells A1:G5 of Excel sheet type matrix:
01 02 03 04 05 06 07
08 09 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 32 33 34 35
and enable this macro:
Sub makro7()
x = 0
margines = 10
For n1 = 1 To 7
For n2 = 1 To 7
If n2 <> n1 Then
For n3 = 1 To 7
If n3 <> n1 And n3 <> n2 Then
For n4 = 1 To 7
If n4 <> n1 And n4 <> n2 And n4 <> n3 Then
For n5 = 1 To 7
If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then
x = x + 1
Cells(x, margines + 1) = Cells(1, n1)
Cells(x, margines + 2) = Cells(2, n2)
Cells(x, margines + 3) = Cells(3, n3)
Cells(x, margines + 4) = Cells(4, n4)
Cells(x, margines + 5) = Cells(5, n5)
End If
Next
End If
Next
End If
Next
End If
Next
Next
End Sub
.....................
author: fair_play from Polish team
|
| | |
