![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Порядок создания макросов в 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
.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
|
|||||
Последнее изменение этой страницы: 2016-12-16; просмотров: 575; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.15.20.178 (0.007 с.) |