Инструментальное ПО

DefInt A-Z

Sub Проверка(Sto(), Znach, j)

For i = 1 To 18

If i j Then

If Sto(i) = Znach Then Znach = 0

End If

Next

End Sub

Private Sub Worksheet_Activate()

Dim Sto(18) As Integer, kol(18) As Integer, sum As Integer, skr(18) As Integer

Sheets(2).Range("A1:CD27").ClearContents

For Z = 1 To 100

For j = 1 To 14

If Sto(j) = 0 Then

If Rnd() 0.03 Then

Sto(j) = Int(Rnd() * 81) + 1

Проверка Sto(), Sto(j), j

If Sto(j) 0 Then

kol(j) = Int(Rnd() * 16) + 5

Select Case Rnd()

Case 0 To 0.7

skr(j) = 1

Sheets(2).Cells(1, Sto(j)).Value = ChrW(9608)

Case 0.7 To 0.9

skr(j) = 2

Sheets(2).Cells(1, Sto(j)).Value = Int(Rnd() * 9.99)

Sheets(2).Cells(2, Sto(j)).Value = ChrW(9608)

Case 0.9 To 1

skr(j) = 3

Sheets(2).Cells(1, Sto(j)).Value = Int(Rnd() * 9.99)

Sheets(2).Cells(2, Sto(j)).Value = Int(Rnd() * 9.99)

Sheets(2).Cells(3, Sto(j)).Value = ChrW(9608)

End Select

kol(j) = kol(j) - skr(j)

End If

sum = 1

End If

Else

If kol(j) 0 Then

kol(j) = kol(j) - 1

For e = 1 To skr(j)

Sheets(2).Cells(e, Sto(j)).Value = Int(Rnd() * 0.99)

Next

sum = 1

Else

Sheets(2).Cells(1, Sto(j)).ClearContents

sum = 0

End If

End If

If Sto(j) 0 Then

For i = 27 To 1 + skr(j) Step -1

Sheets(2).Cells(i, Sto(j)).Value = Sheets(2).Cells(i - skr(j), Sto(j)).Value

Sheets(2).Cells(i - skr(j), Sto(j)).ClearContents

If Sheets(2).Cells(i, Sto(j)).Value "" Then sum = sum + 1

Next

Sheets(2).Activate

If sum = 0 Then Sto(j) = 0

End If

Next

Next

End Sub