Курсовая работа: Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application

Sheets (" Лист 8"). Cells (5,11) = C

d = 0

For i = 1 To n1

If A (i,

8) > Sheets (" Лист 8"). Cells (5,11) Then

d = d + 1

End If

Next i

Sheets (" Лист 8"). Cells (5,10) = d

Dim B () As Variant

ReDim B (1 To d, 1 To m)

u = 1

For i = 1 To n1

If A (i,

8) > Sheets (" Лист 8"). Cells (5,11) Then

For j = 1 To m

B (u, j) = A (i, j)

Next j

u = u + 1

End If

Next i

S = 0

For i = 1 To d

For j = 1 To m

Sheets (" Лист 8"). Cells (i + 4, j) = B (i, j)

Next j

Next i

End Sub