Sub СгенерироватьРеализации()
Dim sh As Worksheet
On Error Resume Next
Set sh = ThisWorkbook.Sheets("allvar")
On Error GoTo 0
If sh Is Nothing Then
ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = "allvar"
End If
Dim yOut1 As Long
yOut1 = 1
Dim a As Variant
ReDim a(1 To 10, 1 To 10)
Dim y As Byte
Dim x1 As Byte
Dim x2 As Byte
Dim f As Boolean
Dim a11 As Variant: Dim a12 As Variant: Dim a13 As Variant: Dim a14 As Variant: Dim a15 As Variant: Dim a16 As Variant: Dim a17 As Variant: Dim a18 As Variant: Dim a19 As Variant: Dim a10 As Variant
Dim a21 As Variant: Dim a22 As Variant: Dim a23 As Variant: Dim a24 As Variant: Dim a25 As Variant: Dim a26 As Variant: Dim a27 As Variant: Dim a28 As Variant: Dim a29 As Variant: Dim a20 As Variant
Dim a31 As Variant: Dim a32 As Variant: Dim a33 As Variant: Dim a34 As Variant: Dim a35 As Variant: Dim a36 As Variant: Dim a37 As Variant: Dim a38 As Variant: Dim a39 As Variant: Dim a30 As Variant
Dim a41 As Variant: Dim a42 As Variant: Dim a43 As Variant: Dim a44 As Variant: Dim a45 As Variant: Dim a46 As Variant: Dim a47 As Variant: Dim a48 As Variant: Dim a49 As Variant: Dim a40 As Variant
Dim a51 As Variant: Dim a52 As Variant: Dim a53 As Variant: Dim a54 As Variant: Dim a55 As Variant: Dim a56 As Variant: Dim a57 As Variant: Dim a58 As Variant: Dim a59 As Variant: Dim a50 As Variant
Dim a61 As Variant: Dim a62 As Variant: Dim a63 As Variant: Dim a64 As Variant: Dim a65 As Variant: Dim a66 As Variant: Dim a67 As Variant: Dim a68 As Variant: Dim a69 As Variant: Dim a60 As Variant
Dim a71 As Variant: Dim a72 As Variant: Dim a73 As Variant: Dim a74 As Variant: Dim a75 As Variant: Dim a76 As Variant: Dim a77 As Variant: Dim a78 As Variant: Dim a79 As Variant: Dim a70 As Variant
Dim a81 As Variant: Dim a82 As Variant: Dim a83 As Variant: Dim a84 As Variant: Dim a85 As Variant: Dim a86 As Variant: Dim a87 As Variant: Dim a88 As Variant: Dim a89 As Variant: Dim a80 As Variant
Dim a91 As Variant: Dim a92 As Variant: Dim a93 As Variant: Dim a94 As Variant: Dim a95 As Variant: Dim a96 As Variant: Dim a97 As Variant: Dim a98 As Variant: Dim a99 As Variant: Dim a90 As Variant
Dim a01 As Variant: Dim a02 As Variant: Dim a03 As Variant: Dim a04 As Variant: Dim a05 As Variant: Dim a06 As Variant: Dim a07 As Variant: Dim a08 As Variant: Dim a09 As Variant: Dim a00 As Variant
For a11 = 1 To 10: For a12 = 1 To 10: For a13 = 1 To 10: For a14 = 1 To 10: For a15 = 1 To 10: For a16 = 1 To 10: For a17 = 1 To 10: For a18 = 1 To 10: For a19 = 1 To 10: For a10 = 1 To 10
For a21 = 1 To 10: For a22 = 1 To 10: For a23 = 1 To 10: For a24 = 1 To 10: For a25 = 1 To 10: For a26 = 1 To 10: For a27 = 1 To 10: For a28 = 1 To 10: For a29 = 1 To 10: For a20 = 1 To 10
For a31 = 1 To 10: For a32 = 1 To 10: For a33 = 1 To 10: For a34 = 1 To 10: For a35 = 1 To 10: For a36 = 1 To 10: For a37 = 1 To 10: For a38 = 1 To 10: For a39 = 1 To 10: For a30 = 1 To 10
For a41 = 1 To 10: For a42 = 1 To 10: For a43 = 1 To 10: For a44 = 1 To 10: For a45 = 1 To 10: For a46 = 1 To 10: For a47 = 1 To 10: For a48 = 1 To 10: For a49 = 1 To 10: For a40 = 1 To 10
For a51 = 1 To 10: For a52 = 1 To 10: For a53 = 1 To 10: For a54 = 1 To 10: For a55 = 1 To 10: For a56 = 1 To 10: For a57 = 1 To 10: For a58 = 1 To 10: For a59 = 1 To 10: For a50 = 1 To 10
For a61 = 1 To 10: For a62 = 1 To 10: For a63 = 1 To 10: For a64 = 1 To 10: For a65 = 1 To 10: For a66 = 1 To 10: For a67 = 1 To 10: For a68 = 1 To 10: For a69 = 1 To 10: For a60 = 1 To 10
For a71 = 1 To 10: For a72 = 1 To 10: For a73 = 1 To 10: For a74 = 1 To 10: For a75 = 1 To 10: For a76 = 1 To 10: For a77 = 1 To 10: For a78 = 1 To 10: For a79 = 1 To 10: For a70 = 1 To 10
For a81 = 1 To 10: For a82 = 1 To 10: For a83 = 1 To 10: For a84 = 1 To 10: For a85 = 1 To 10: For a86 = 1 To 10: For a87 = 1 To 10: For a88 = 1 To 10: For a89 = 1 To 10: For a80 = 1 To 10
For a91 = 1 To 10: For a92 = 1 To 10: For a93 = 1 To 10: For a94 = 1 To 10: For a95 = 1 To 10: For a96 = 1 To 10: For a97 = 1 To 10: For a98 = 1 To 10: For a99 = 1 To 10: For a90 = 1 To 10
For a01 = 1 To 10: For a02 = 1 To 10: For a03 = 1 To 10: For a04 = 1 To 10: For a05 = 1 To 10: For a06 = 1 To 10: For a07 = 1 To 10: For a08 = 1 To 10: For a09 = 1 To 10: For a00 = 1 To 10
a(1, 1) = a11: a(1, 2) = a12: a(1, 3) = a13: a(1, 4) = a14: a(1, 5) = a15: a(1, 6) = a16: a(1, 7) = a17: a(1, 8) = a18: a(1, 9) = a19: a(1, 10) = a10
a(2, 1) = a21: a(2, 2) = a22: a(2, 3) = a23: a(2, 4) = a24: a(2, 5) = a25: a(2, 6) = a26: a(2, 7) = a27: a(2, 8) = a28: a(2, 9) = a29: a(2, 10) = a20
a(3, 1) = a31: a(3, 2) = a32: a(3, 3) = a33: a(3, 4) = a34: a(3, 5) = a35: a(3, 6) = a36: a(3, 7) = a37: a(3, 8) = a38: a(3, 9) = a39: a(3, 10) = a30
a(4, 1) = a41: a(4, 2) = a42: a(4, 3) = a43: a(4, 4) = a44: a(4, 5) = a45: a(4, 6) = a46: a(4, 7) = a47: a(4, 8) = a48: a(4, 9) = a49: a(4, 10) = a40
a(5, 1) = a51: a(5, 2) = a52: a(5, 3) = a53: a(5, 4) = a54: a(5, 5) = a55: a(5, 6) = a56: a(5, 7) = a57: a(5, 8) = a58: a(5, 9) = a59: a(5, 10) = a50
a(6, 1) = a61: a(6, 2) = a62: a(6, 3) = a63: a(6, 4) = a64: a(6, 5) = a65: a(6, 6) = a66: a(6, 7) = a67: a(6, 8) = a68: a(6, 9) = a69: a(6, 10) = a60
a(7, 1) = a71: a(7, 2) = a72: a(7, 3) = a73: a(7, 4) = a74: a(7, 5) = a75: a(7, 6) = a76: a(7, 7) = a77: a(7, 8) = a78: a(7, 9) = a79: a(7, 10) = a70
a(8, 1) = a81: a(8, 2) = a82: a(8, 3) = a83: a(8, 4) = a84: a(8, 5) = a85: a(8, 6) = a86: a(8, 7) = a87: a(8, 8) = a88: a(8, 9) = a89: a(8, 10) = a80
a(9, 1) = a91: a(9, 2) = a92: a(9, 3) = a93: a(9, 4) = a94: a(9, 5) = a95: a(9, 6) = a96: a(9, 7) = a97: a(9, 8) = a98: a(9, 9) = a99: a(9, 10) = a90
a(10, 1) = a01: a(10, 2) = a02: a(10, 3) = a03: a(10, 4) = a04: a(10, 5) = a05: a(10, 6) = a06: a(10, 7) = a07: a(10, 8) = a08: a(10, 9) = a09: a(10, 10) = a00
f = True
For y = 1 To 10
For x1 = 1 To 10
For x2 = x1 + 1 To 10
If a(y, x1) = a(y, x2) Then
f = False
y = 11
x1 = 11
x2 = 11
End If
Next
Next
Next
If f Then
For y = 1 To 10
For x1 = 1 To 10
For x2 = x1 + 1 To 10
If a(x1, y) = a(x2, y) Then
f = False
y = 11
x1 = 11
x2 = 11
End If
Next
Next
Next
End If
If f Then
sh.Cells(yOut1, 1).Resize(UBound(a, 1), UBound(a, 2)) = a
yOut1 = yOut1 + 10
End If
DoEvents
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
End Sub
|