Задания для практического занятия и инструктаж по их выполнению. Задание №1В таблице представлены названия самых ценных алмазов в мире, их страны происхождения, когда найден алмаз

Задание №1 В таблице представлены названия самых ценных алмазов в мире, их страны происхождения, когда найден алмаз, масса в каратах и масса в граммах. Определить максимальную массу в граммах. Создать макрос для нахождения максимального значения.

1. Откройте новую книгув Excel.

2. Создайте таблицу.

3. В ячейке D10 наберите «Максимальная масса в граммах». Курсор после набора текста может находиться в любой ячейке, кроме ячейки, в которой нужно получить результат. На панели Visual Basic нажмите на кнопку «Запись макроса». Появится диалоговое окно:

Введите вместо названия Макрос1 название макроса «Алмаз» и нажмите клавишу «ОК». На экране появится панель инструментов «Остановить запись» . Теперь все производимые действия будут записываться до тех пор, пока не будет нажата эта кнопка.

Установите курсор в ячейку E10. В этой ячейке должен появиться результат.

4. Выполните команду ВставкаàФункция. Появится диалоговое окно Мастер функций Шаг 1 из 7. В окне Категории функций выберите Статистические. В окне Выберите функцию -МАКС. Появится диалоговое окно, в первой строке которого укажите диапазон, в котором нужно искать максимальное значение E2:E9. Нажмите ОК.

5. Щелкните на кнопке «Остановить запись» на панели Visual Basic. Запись макроса завершена.

6. Чтобы проверить, как работает созданный макрос, надо удалить из ячейки E10 полученный результат.

7. Установите курсор в любую ячейку листа.

8. Выполните команду СервисàМакросàМакросы. Появится диалоговое окно:

9. Выделите макрос «Алмаз» и щелкните по кнопке «Выполнить». В ячейке E10 появится результат.

10. Сохраните файл.

11. Существует еще несколько способов запуска макроса. Например, на уже знакомой нам панели Visual Basic нажать на кнопку «Выполнить макрос» .

12. Во время записи макроса Excel запоминает ваши действия и преобразует их в код VBA. Можно просмотреть полученный код и отредактировать его, если в этом есть необходимость.

13. Для просмотра созданного макроса выполните команду СервисàМакросàМакросы. Появится уже знакомое диалоговое окно Макрос.

14. Выделить макрос «Алмаз» и щелкните по кнопке «Изменить». Откроется окно редактора.

Текст макроса:

Sub Алмаз()

' Алмаз Макрос

Range("E10").Select

ActiveCell.FormulaR1C1 = "=MAX(R[-8]C:R[-1]C)"

End Sub

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

Первое действие - установили курсор в ячейку E10, и в коде макроса это действие записалось - Range("E10").Select

Второе действие – вызвали функцию МАКС и в качестве аргумента указалидиапазон ячеек E2:E9, и в коде макроса это действие записалось - ActiveCell.FormulaR1C1 = "=MAX(R[-8]C:R[-1]C)"

15. Полученный код можно редактировать непосредственно в редакторе Visual Basic. Изменим размер шрифта в ячейке E10 на 16. Тогда строка будет выглядеть так - Range("E10").Font.Size = 16

16. Можно изменить цвет шрифта. Команда для применения к тексту ячейки красного цвета –

Range("E10").Font.ColorIndex = 3.

Значения, которые может принять свойство Font.ColorIndex, изменяется от 1 до 56.

17. Отредактируйте текст макроса. После редактирования текст должен быть такой:

Sub Алмаз()

' Алмаз Макрос

Range("E10").Select

ActiveCell.FormulaR1C1 = "=MAX(R[-8]C:R[-1]C)"

Range("E10").Font.Size = 16

Range("E10").Font.ColorIndex = 3

End Sub

18. Закройте окно редактора и вернитесь на лист Excel.

19. Удалите содержимое ячейки E10.

20. Запустите макрос на выполнение. Вы видите, что исправленный макрос работает иначе – в соответствии с произведенными нами изменениями.

21. Сохраните файл.

Не нашли, что искали? Воспользуйтесь поиском: