Начислено, Налог, К выдаче

Вычисление итоговых сумм по показателям

Математическая модель

Схема алгоритма

Код приложения

' Проверка наличия итоговой строки

If Cells(k, 1).Value = "Итого" Then

MsgBox "У вас уже есть итоговая строка, ее требуется предварительно очистить", vbInformation

Else

' Вычисление итоговых данных

s1 = 0: s2 = 0: s3 = 0

For i = 1 To k - 1

s1 = s1 + Range("f1").Offset(i).Value

s2 = s2 + Range("g1").Offset(i).Value

s3 = s3 + Range("h1").Offset(i).Value

Next

Columns("f:h").NumberFormat = "0.00"

k1 = k

Range("a1").Offset(k).Value = "Итого"

Range("f1").Offset(k1).Value = s1

Range("g1").Offset(k1).Value = s2

Range("h1").Offset(k1).Value = s3

End If

End Sub

Рекомендуется перед вычислением итоговых данных очистить строку, в которой они будут храниться. Например,

If Cells(k, 1).Value = "Итого" Then

If MsgBox("Производить очистку итоговой строки?",

vbYesNo Or vbQuestion, "Курсовик") = vbYes Then

Range(Cells(k, 1), Cells(k, 8)).Clear

End If

Else

MsgBox "У Вас нет итоговой строки", vbInformation

End If

Примечания.

Для очистки итоговой строки могут быть также использованы следующие способы:

1. Итоговая строка заполняется символом "Пусто"

Range(Cells(k1, 1), Cells(k1, 8)) = ""

2.Выделяется итоговая строка

Range(Cells(2, 1), Cells(k1 - 1, 8)).Select

и очищаются все форматы выделенного диапазона

Selection.Interior.ColorIndex = xlNone

Дата добавления: 2014-12-27