Структура текста программы и комментарии

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

Поэтому каждая программа должна быть написана таким образом, чтобы в ней легко можно было находить (причем не только ее создателю, но и другим программистам) места, в которые требуется внести те или иные изменения. Иначе говоря, текст программы должен быть написан максимально понятно для любого человека, которому впоследствии потребуется в ней разобраться, включая и самого ее автора. Эту мысль можно выразить более кратко — ваша программа должна быть "читабельна ".

При написании программы надо взять за правило: для в з а и м о с в я з а н н ы х по с м ы с л у операторов использовать о д и н а к о в ы еотступы.

Приведём пример такого написания и использования комментариев:

Do ' Начало общего цикла программы

Switch = False

For i = 1 to m ' Цикл по заданному количеству циклов

If b(i) > b(i+1) then ' оператор сравнения i-го и i+1 члена

bam = b(i)

b(i) = b(i + 1)

b(i + 1) = bam

Switch = true

End i f ' конец оператора сравнения

Next i ' переход к новому циклу с увеличением i

Loop ' конец общего цикла программы

Рис. 10.5. Пример правильной записи фрагмента программы с выделением операторов, принадлежащих одной группе

 

Здесь ярко видно, что операторы внутри конструкции If... Then... End If — это операторы одной группы: для них установлен один и тот же отступ. Поскольку в данной программе оператор switch = False (switch – переключатель) и структура For... Next выполняется при каждом проходе структуры Do... Loop, то у них другой отступ.

Это позволяет с первого взгляда четко определять саму структуру и содержащиеся в ней подчиненные операторы. Для добавления отступа в строке можно использовать клавишу пробела или клавишу <ТаЬ>.

При работе с программой также очень удобно использовать комментарии — текст, предназначенный для человека и не являющийся программным кодом и потому игнорируемый компилятором. Внесение в текст программы комментариев, словесно описывающих выполняемые в ней действия, является хорошей практикой.

В языке VBA комментарии записываются после символа апострофа «'», который можно поместить в любом месте строки (см. вышеприведённый пример программы). При этом все символы после апострофа (и до конца строки) будут восприниматься как комментарии!

Комментарии можно размещать на отдельных строках или ставить их после операторов программы. Очень важно применять комментарии при написании сложных программ, смысл которых со временем может стать непонятным. В каждой строке желательно кратко пояснять, что и как делает данная программа. Это поможет вам при отладке программы, а также при добавлении в нее новых фрагментов, когда требуется четко знать, в какой процедуре и в какое ее место следует поместить новый фрагмент.

Поскольку каждая написанная процедура может использоваться многократно, для удобства ее дальнейшего применения целесообразно в начало каждой процедуры помещать комментарии, описывающие назначение и способ использования этой процедуры. Эти же рекомендации справедливы и в отношении комментариев, помещаемых в начало модулей. Комментарии также можно использовать для описания назначения переменных.

Вот рекомендации по использованию комментариев, которые могут помочь любому:

Ø будьте по возможности кратки;

Ø грамотно составляйте предложения;

Ø старайтесь писать ясно и понятно;

Ø умеренно используйте знаки пунктуации.

Ø обязательно поясняйте аргументы, передаваемые между процедурами;

Ø отмечайте версии фрагментов программы — когда, как и зачем выполнялись изменения;

Ø пишите комментарии параллельно вводу текста программы, пока суть задачи еще свежа в памяти.

 

Тестовые задания

Ниже размещено несколько тестовых заданий. В каждом задании предлагается вопрос и несколько вариантов ответа на него, один (или несколько) из которых является правильным, а остальные — нет. Укажите правильный(е) ответ(ы).

№ п/п	Вопросы	Предлагаемые ответы
	В языке VBA тип данных определяет следующие характеристики некоторого элемента информации:	а) назначение элемента и смысл сохраняемой в нем информации б) способ представления в памяти в) скорость выполнения операций г) набор допустимых операций д) категорию информации и ее владельца
	Язык VBA поддерживает следующие типы числовых данных:	а) размеры в метрических и дюймовых единицах измерения; б) целочисленные; в) дата и время; г) количественные; д) с плавающей точкой е) комплексные
	Язык VBA поддерживает следующие типы нечисловых данных:	а) строки символов фиксированной и произвольной длины б) текстовые в) графические г) логические д) валюты
	Массивы в языке VBA могут быть следующих типов:	а) линейные и плоские б) одномерные в) статические г) переменной длины д) циклические
	Комментарии в программу помещаются для следующих целей:	а) для повышения читабельности кода; б) для пояснения смысла выполняемых действий; в) для защиты авторских прав; г) для описания назначения переменных и функций.

 

Глава 11. Примеры реализации различных макросов и фрагментов программ

Варианты реализации макросов

Порядок создания макросов в Excel

1. Прежде всего, надо обдумать и записать, какие действия должен выполнять создаваемый макрос.

2. Записать – по п у н к т а м! – порядок выполнения всех действий, которые будут зафиксированы в макросе.

3. Заранее определиться:

Ø с именем РК, в которой он будет сохранён,

Ø с его собственным названием,

Ø с сочетанием клавиш "быстрого вызова" макроса (если он должен вызываться часто),

Ø выбрать, г д е он будет сохраняться:

- в "Личной книге макросов",

- в "Новой книге",

- в"Этой книге" (имеется в виду та РК, в которой вы будете создавать макрос).

4. Теперь можно начинать работу по созданию и записи макроса:

Ø Открыть пустую РК, активизировать РЛ (например, Лист1),

Ø Переименовать РЛ и сохранить РК под назначенным ранее именем,

Ø Установить курсор в произвольную ячейку РЛ,

Ø Выполнить: Сервис – Макрос – Начать запись,

Ø Точно по пунктам выполнить все запланированные действия,

Ø В заключение, когда всё сделано, выполнить

Сервис – Макрос – Остановить запись,

5. Для проверки работы макроса:

Сервис – Макрос – Макросы – выбрать название нужного макроса – Выполнить.

6. Если нужно просмотреть, изменить или дополнить код (текст) программы макроса, то

Сервис – Макрос – Макросы – выбрать название нужного макроса – Войти / Изменить.

Произойдёт переход в редактор VBA, где код программы будет выведен в окно Code.

ПРИМЕЧАНИЕ 9: если в данной РК будут храниться н е с к о л ь к о макросов, то в ячейке А1 весьма целесообразно разместить п р и м е ч а н и е, в котором для каждого макроса ввести название и "горячие" клавиши для его быстрого вызова. Тогда по прошествии времени не придётся гадать, есть ли макросы в этой книге и какие именно.

 

Задания на создание макросов в Excel

Задание 1: для начала попробуйте создать простейший макрос, который в РК " Работа с ячейками " только один раз перемещал бы курсор из произвольной ячейки РЛ Лист1 в заданную ячейку F7 и окрашивал бы её в синий цвет (внутренний код синего цвета – 23).

Задание 2: находясь в произвольной ячейке РЛ Лист1 последовательно задать на нём заливку:

- ячейки E5 - в жёлтый цвет,

- ячейки F5 - в зелёный цвет,

- ячейки G5 - в красный цвет,

- ячейку H5 – оставить без заливки и прекратить работу макроса.

Выбрать для него название "ЦветаЯчеекE5_F5_G5отмена_H5" и задать "горячие" клавиши Ctrl+W.

Решение. После выполнения всех этих действий в процессе записи макроса "ЦветаЯчеекE5_F5_G5отмена_H5" вы должны получить макрос, код которого приведён ниже:

Sub ЦветаЯчеекE5_F5_G5отмена_H5()

'

' ЦветаЯчеекE5_F5_G5отмена_H5 Макрос

' Макрос записан 02.05.2009 (MINI_CORP)

'

' Сочетание клавиш: Ctrl+w

'

Range("E5").Select ' выбрать ячейку E5

With Selection.Interior ' для выбранного назначить

двойное свойство

.ColorIndex = 6 ' Interior.ColorIndex = 6 (жёлтый цвет)

.Pattern = xlSolid ' образец заливки = сплошной

End With ' конец для выбранного

Range("F5").Select

With Selection.Interior

.ColorIndex = 4 4 – зелёный цвет

.Pattern = xlSolid

End With пояснения аналогичны

Range("G5").Select

With Selection.Interior

.ColorIndex = 3 3 – красный цвет

.Pattern = xlSolid

End With

Range("H5").Select '

Selection.Interior.ColorIndex = xlNone ' xlNone - без цвета

End Sub

Рис. 11.1 Текст (код) макроса "ЦветаЯчеек…"

 

Теперь этот макрос можно запустить тремя способами:

1) Сервис – Макрос – Макросы – выбрать имя макроса из списка – Выполнить,

2) из среды редактора Visual Basic, нажавклавишу F5,

3) из Excel (если редактор VBA закрыт)нажатием Ctrl+W.

Запустите макрос на исполнение и проанализируйте результат.

Задание 3. Усложним работу, добавив в задание 2 требование не только окрасить ячейки в нужные цвета, но и оформив их тонкими рамками.

Если вы правильно выполните заданное, то в новом макросе "Цвета_и_рамки_ячеек" вы увидите новые операторы и свойства:

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone