4. Остановите запись, нажав кнопку Остановить запись.

5. Просмотрите результат: выполните команду Разработчик/Макросы. Выберите в списке макросов макрос с именем ClearCell и нажмите кнопку Изменить. В результате на экране откроется окно редактора VBA с текстом только что созданного макроса:

 

Sub ClearCell()

ClearCellData Макрос

‘ Макрос записан 23.05.00 ()

Range("A1:C1").Select

Selection . ClearContents

End Sub

 

6. Добавьте комментарии к строкам программы (комментарий должен начинаться с апострофа).

Например:

Range("A1:C1").Select ‘Выделение диапазона ячеек

Selection . ClearContents ‘Очистка содержимого выделенного диапазона

 

7. Добавьте новую строку в программу, например,

Rаngе("АЗ:СЗ").Select ‘Выделение нового диапазона ячеек

8. Проследите, какие действия выполнит макрос после редактирования.

Для этого: перейдите на лист Excel, заполните ячейки А1:С3 любыми значениями, выполните команды меню Разработчик/Макросы, выберите макрос

ClearCell и нажмите кнопку Выполнить.

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

1. Войти в меню Вид/Панели Инструментов/Формы листа Excel.

2. На появившейся панели выбрать элемент управления Кнопка, щелкнув

по нему мышью. Указатель мыши превратится в крестик.

3. Щелкните мышью на листе Excel, откроется диалоговое окно Назначить макрос объекту.

4. Выберите в списке программ нужный макрос.

Аналогичным образом можно создать кнопку для вызова любой разработанной Вами программы. Для этого выполняются те же действия, только на шаге 4 выбирается имя этой программы.

Задачи для самостоятельной работы:

1. Создайте макрос, меняющий формат ячеек диапазона A1:C4: цвет шрифта, заливку, центрирование, тип и размер шрифта.

2. Создайте макрос, заполняющий диапазон A1:A12 месяцами года. Предусмотрите его вызов с помощью кнопки.

3. Измените программу макроса, созданного в первой задаче, изменив диапазон на D5:J12 и цвет заливки ячеек.

4. Создайте макрос, позволяющий строить диаграмму по таблице, представленной в диапазоне A1:B11 с заголовками столбцов – Товар и Цена.

 

Лабораторная работа № 10. Размещение элементов управления на рабочем листе Excel

С помощью панели инструментов Элементы управления (рис. 4), вызванной командами меню Вид/Панели Инструментов/Элементы управления, можно разместить на листе Excel разные элементы управления, такие как CommandButton1, CommandButton2, CommandButton3, OptionButton1, OptionButton2, OptionButton3, TextBox1, Label1.

 

Рис. 4. Панель инструментов Toolbox

Задача 28. Создать:

· кнопку «Вывод сгенерированного массива на лист» (при нажатии на эту кнопку генерируется массив вещественных чисел в диапазоне (-5, 5) и выводится в диапазон A1:A20 листа Excel),

· кнопку «Отменить вывод значений» (при нажатии на данную кнопку из диапазона A1:A20 удаляются значения элементов массива),

· кнопку «Ok» (при нажатии на нее решается задача поиска минимального или максимального элемента массива, либо находится среднее арифметическое значение, в зависимости от того, какой элемент Option-Button выбран) (см. рис. 5).

Решение. В начале работы необходимо подготовить рабочий лист, создав на рабочем листе «Лист1» элементы управления, используя команды меню Вид/Панели Инструментов/Элементы управления. Чтобы изменить название элемента управления, например, CommandButton1, можно воспользоваться кнопкой Свойства (вторая слева) на панели Элементы управления. В