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

UptoLike

ВУЗ: 

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

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

Рубрика: 

29
стей целесообразно ознакомиться с описанием соответствующих свойств и объектов
в литературе, воспользоваться Help-системой или, что вероятно проще всего, запус-
тить режим записи макроса в Ехсеl, выполнить, например, установку цвета и изучить
текст полученного макроса.
Пример 10. Использование свойства Cells() для считывания данных в пере-
менную VBA и возврата значения в Excel и установки нового цвета шрифта. Ис-
пользуется тот факт, что положение и количество ячеек в таблице рис. 1. известно.
Дополнительно в программе используется символ комментария ' и комбинация
символов «пробел»_ ( _) для обозначения продолжения длинной строки
Sub Расчет_заработной_платы2()
Dim Начислено(1 To 4) As Currency, Налог(1 To 4) As Currency, _
К_Выдаче(1 To 4) As Currency, i As Integer
i = 1
Начислено(i) = Cells(i + 1, 2) 'В первую ячейке массива Начислено записывается содержимое
'второй строки и второй колонки исходной таблицы Excel
Cells(i + 1, 2).Font.ColorIndex = 7 'В ячейке устанавливается новый цвет шрифта
Налог(i) = Начислено(i) * 0.12 'Рассчитывается значение налога и запоминается
'в соответствующей ячейке
Cells(i + 1, 3) = Налог(i) 'Значение налога возвращается в таблицу Excel
К_Выдаче(i) = Начислено(i) - Налог(i) 'Рассчитывается значение к выдаче
'и запоминается в соответствующей ячейке
Cells(i + 1, 4) = К_Выдаче(i) 'Значение к выдаче возвращается в таблицу Excel
i = i + 1 'Переход к следующей записи
Начислено(i) = Cells(i + 1, 2)
Cells(i + 1, 2).Font.ColorIndex = 7
Налог(i) = Начислено(i) * 0.12
Cells(i + 1, 3) = Налог(i)
К_Выдаче(i) = Начислено(i) - Налог(i)
Cells(i + 1, 4) = К_Выдаче(i)
i = i + 1 'Переход к следующей записи
Начислено(i) = Cells(i + 1, 2)
Cells(i + 1, 2).Font.ColorIndex = 7
Налог(i) = Начислено(i) * 0.12
Cells(i + 1, 3) = Налог(i)
К_Выдаче(i) = Начислено(i) - Налог(i)
Cells(i + 1, 4) = К_Выдаче(i)
i = i + 1 'Переход к следующей записи
Начислено(i) = Cells(i + 1, 2)
Cells(i + 1, 2).Font.ColorIndex = 7
Налог(i) = Начислено(i) * 0.12
Cells(i + 1, 3) = Налог(i)
К_Выдаче(i) = Начислено(i) - Налог(i)
Cells(i + 1, 4) = К_Выдаче(i)
End Sub
Задание
Используйте согласованный с преподавателем вариант задания (табл. 1), вы-
полненную на его основе таблицу Excel и созданный вами макрос. Модифицируйте
созданный вами макрос и напишите новую программу так, чтобы ее основные вы-

Страницы