Высокоуровневые методы информатики и программирования. Степанов А.Г. - 56 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

56
'содер
ислено(i) > 1000000 Then
Изменение_цвета_шрифта_в_ячейке(i + 1, 2, "Желтый") 'Вызов процедуры с
ки
ез
' ключевого слова Call. Параметры процедуры в круглые скобки не заключаются
ено(i) * 0.12 'Рассчитывается значение налога и запоминается
е
ение налога возвращается в таблицу Excel
Налог(i) 'Рассчитывается значение к выдаче
4) = К_Выдаче(i) 'Значение к выдаче возвращается в таблицу Excel
S
й": C = 10
VBA функцию, имеющую атрибут Public, используемый по умолча-
нию, то и Оп-
реде ется удобным для введения в сис-
тему жностей программирования нестандартных, но
многократно используемых действий. Так с его помощью легко реализовать возмож-
Начислено(i) = Cells(i + 1, 2) 'В первую ячейкe массива Начислено записывается
жимое второй строки и второй колонки исходной таблицы Excel
If Нач
Начислено(i) = 1000000
Call
' ключевым словом Call. Параметры процедуры заключены в круглые скоб
Else
End If
If Начислено(i) < 0 Then
Начислено(i) = 0
Изменение_цвета_шрифта_в_ячейке i + 1, 2, "Красный" 'Вызов процедуры б
Else
Call Изменение_цвета_шрифта_в_ячейке(i + 1, 2, "Сброс")
End If
Налог(i) = Начисл
'в соответствующей ячейк
Cells(i + 1, 3) = Налог(i) 'Знач
К_Выдаче(i) = Начислено(i) -
'и запоминается в соответствующей ячейке
Cells(i + 1,
Next i
End Sub
ub Изменение_цвета_шрифта_в_ячейке(Строка As Integer, Столбец As Integer, Цвет As String)
Dim C As Integer
Select Case Цвет
Case "Красный": C = 3
Case "Желтый": C = 6
Case "Зелены
Case Else: C = 0 'Автоматический выбор (Авто)
End Select
Cells(Строка, Столбец).Font.ColorIndex = C
End Sub
Примечание. Интегрированная среда разработки VBA в окне редактора кодов пред-
лагает в качестве сервиса возможность указания имени переменной и типа данных при на-
боре операторов вызова функции или процедуры. Если функция или процедура ранее была
объявлена и была выполнена компиляция проекта, после набора ее имени всплывает пере-
чень ее аргументов.
При программировании в Excel иногда возникает необходимость создания до-
полнительных по отношению к стандартному библиотечному набору функций. Такие
функции могут быть запрограммированы в ячейках таблицы обычным для Excel спо-
собом (Вставка, Функция…). Далее программист выбирает нужную ему Категорию
функции, в соответствии с которой произведена их классификация. Если создать в
модуле проекта
эта функция появится в списке библиотечных функций Excel в категори
ленные пользователем. Этот прием оказыва
Excel дополнительных возмо

Страницы