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

6) * 100

Sheets (" Лист 5"). Cells (i + 4,7) = A (i,

7)

Next j

S = S + A (i,

7)

Sr = S / 13

Sheets (" Лист 5"). Cells (18,7) = Sr

Next i

S = 0

For i = 1 To n1

For j = 1 To M1

A (i,

8) = (A (i,

3) + A (i,

2)) / A (i,

6) * 100

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

8)

Next j

S = S + A (i,

8)

Sr = S / n1

Sheets (" Лист 5"). Cells (18,8) = Sr

Next i

Sheets ("Лист5"). Cells (18,1) = "В среднем"

End Sub

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