Составители:
47
N
ет выполнение операторов тела
цикла
мы, реализующей задачу рис. 1 использованием
разл .
1 To 4) As Currency, _
o 4) As Currency, i As Integer
сывается
рой колонки исходной таблицы Excel
hen
lls(i + 1, 2).Font.ColorIndex = 4
hen
lls(i + 1, 2).Font.ColorIndex = 3
2 'Рассчитывается значение налога и запоминается
итывается значение к выдаче
+ 1, 4) = К_Выдаче(i) 'Значение к выдаче возвращается в таблицу Excel
End Sub
Задание
жны быть считаны из таблицы Excel, а результа-
ты вычислений возвращены в нее.
[Exit For]
[Операторы]
ext [Элемент]
Оператор For Each Next в этом случае повторя
для каждого элемента группы или семейства.
Пример 16. Пример програм
ичных операторов языка VBA
Sub Расчет_заработной_платы5()
Dim Начислено(1 To 4) As Currency, Налог(
К_Выдаче(1 T
For i = 1 To 4
Начислено(i) = Cells(i + 1, 2) 'В первую ячейкe массива Начислено запи
'содержимое второй строки и вто
If Начислено(i) > 1000000 T
Начислено(i) = 1000000
Ce
Else
End If
If Начислено(i) < 0 T
Начислено(i) = 0
Ce
Else
End If
Налог(i) = Начислено(i) * 0.1
'в соответствующей ячейке
Cells(i + 1, 3) = Налог(i) 'Значение налога возвращается в таблицу Excel
К_Выдаче(i) = Начислено(i) - Налог(i) 'Рассч
'и запоминается в соответствующей ячейке
Cells(i
Next i
Используйте согласованный с преподавателем вариант задания (табл. 1), вы-
полненную на его основе таблицу Excel, созданный вами макрос и написанную про-
грамму вычислений в таблице с использованием переменных VBA. Модифицируйте
созданную вами линейную программу так, чтобы в ее составе использовались опе-
раторы выбора последовательности вычислений, ветвления, цикла. При этом ис-
ходные данные первоначально дол
Страницы
- « первая
- ‹ предыдущая
- …
- 45
- 46
- 47
- 48
- 49
- …
- следующая ›
- последняя »
