Создание макросов на языке VBA

Июль 31, 2022

Главная
Информатика
Создание макросов на языке VBA

Содержание

2. Понятие макроса В Microsoft Office 95 и 97 макросы записывались на языке WordBasic, а начиная с
3. Назначение макросов ускорение часто выполняемых операций редактирования или форматирования (стили) объединение нескольких команд в одну упрощение
4. Операции с макросами Для быстрого запуска макроса можно создать для него кнопку, присвоить «горячую» клавишу или
5. Виды макросов Командные – состоят из операторов, эквивалентных тем или иным командам меню или параметрам диалоговых
6. Уровни безопасности по защите от макровирусов в пакете MS Office Установка уровней защиты: Сервис – Макрос
7. Способы создания макросов С помощью средств автоматической записи (не требует знания программирования) Программирование на языке VBA
8. Автоматическое создание макроса Выполнить команду Сервис – Макрос - Начать запись. Ввести имя в поле «Имя
9. Назначение макроса сочетанию клавиш В поле "Назначить макрос" нажмите кнопку "Клавишам". Выберите записываемый макрос в списке
10. Назначение макроса панели инструментов В поле "Назначить макрос" нажмите кнопку "Панели". Выберите записываемый макрос в списке
11. Создание макросов в Power Point
12. Создание макросов в Power Point Создайте слайд с заголовком «Математика». Активизируйте панель инструментов "Вид - панели
13. Установка свойств кнопок Свойства В контекстном меню кнопки выбрать Properties (свойства)
14. Создание пользовательской формы Label6 Label4 TextBox1 CommandButton1 Label2 Label13 Label15 Label12
15. Программный код загрузки формы Private Sub UserForm_Activate() ‘активация формы n = 0 'количество верных ответов k
16. Программный код кнопки «Далее» Private Sub CommandButton1_Click() If Val(s) = Val(TextBox1) Then ‘проверка ответа n =
17. Программный код кнопок «Результат» и «Назад» Private Sub CommandButton2_Click() 'Результат Label12.Caption = Str(k) Label13.Caption = Str(n)
18. Форма для проверки грамматики Label2 Label1 TextBox1 CommandButton1 Image1 Label14 Label15 TextBox8
19. Программный код кнопки «Проверка» Private Sub CommandButton1_Click() 'Проверка k = 0 ‘количество верных ответов If TextBox1
20. Задания для самостоятельной работы Придумайте задания для проверки знаний по информатике. Подготовьте ребусы на любые темы.
21. Пример проекта с макросами Открыть проект «Проверь себя»
23. Скачать презентацию

Слайд 2

Понятие макроса
В Microsoft Office 95 и 97 макросы записывались на языке

WordBasic, а начиная с MS Office 2000 – на языке VBA (Visual Basic for Application).

Слайд 3

Назначение макросов
ускорение часто выполняемых операций редактирования или форматирования (стили)
объединение нескольких

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

Слайд 4

Операции с макросами
Для быстрого запуска макроса можно создать для него

кнопку, присвоить «горячую» клавишу или поместить макрокоманду в меню.
Созданные макросы можно редактировать, сохранять, удалять, многократно запускать (Сервис – макрос – макросы).

Слайд 5

Виды макросов
Командные – состоят из операторов, эквивалентных тем или иным командам

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

Слайд 6

Уровни безопасности по защите от макровирусов в пакете MS Office
Установка уровней

защиты: Сервис – Макрос - Безопасность

Очень высокий – разрешаются запуск только макросов, установленных в надёжных расположениях.
Высокий – запускаются макросы, имеющие цифровую подпись. Если подписи нет, то макрос отключается. Электронный сертификат – специальное вложение, которое добавляется в макрос и служит для его защиты.
Средний – при открытии документа выдается сообщение о содержании макросов в данном документе. Пользователь сам выбирает, разрешить или нет использование макросов.
Низкий (не рекомендуется!) – все средства защиты от макровирусов отключаются.

Слайд 7

Способы создания макросов
С помощью средств автоматической записи (не требует знания программирования)
Программирование

на языке VBA

В приведённых примерах рассматривается MS Office 2003

Слайд 8

Автоматическое создание макроса
Выполнить команду Сервис – Макрос - Начать запись.
Ввести

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

Слайд 9

Назначение макроса сочетанию клавиш
В поле "Назначить макрос" нажмите кнопку "Клавишам".
Выберите

записываемый макрос в списке "Команды", введите сочетание клавиш в поле "Новое сочетание клавиш".
В поле "Сохранить изменения в" выберите документ или шаблон, в котором будет доступен макрос.
Нажмите кнопку "Назначить" и затем "Закрыть", чтобы начать запись макроса.

Слайд 10

Назначение макроса панели инструментов
В поле "Назначить макрос" нажмите кнопку "Панели".
Выберите

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

Слайд 11

Создание макросов в Power Point

Слайд 12

Создание макросов в Power Point
Создайте слайд с заголовком «Математика».
Активизируйте панель

инструментов "Вид - панели инструментов - элементы управления".
Разместите на слайде 4 командные кнопки (CommandButton1, 2, 3, 4).

Кнопка

Слайд 13

Установка свойств кнопок
Свойства
В контекстном меню кнопки выбрать Properties (свойства)

Слайд 14

Создание пользовательской формы
Label6
Label4
TextBox1
CommandButton1
Label2
Label13
Label15
Label12

Слайд 15

Программный код загрузки формы
Private Sub UserForm_Activate() ‘активация формы
n = 0

'количество верных ответов
k = 1 'счётчик примеров
z = Val(InputBox("Введите максимальную границу для чисел от 10 до 1000"))
Label2.Caption = Label2.Caption & Str(z)
Randomize Timer
a = Int(Rnd * 10) 'создание случайных чисел для первого примера
b = Int(Rnd * 10)
s = a + b
Label4.Caption = Str(a) 'вывод чисел в метки
Label6.Caption = Str(b)
End Sub

Слайд 16

Программный код кнопки «Далее»
Private Sub CommandButton1_Click()
If Val(s) = Val(TextBox1)

Then ‘проверка ответа
n = n + 1 ‘количество верных ответов
Label15.Caption = «Верно!"
Else
Label15.Caption = «Неверно!"
End If
k = k + 1 ‘ подсчёт количества примеров
Label12.Caption = "" ‘очистка меток
Label13.Caption = ""
TextBox1 = "" ‘очистка текстового поля для ответа
Randomize Time
a = Int(Rnd * z) + 1 ‘генерация случайных чисел
b = Int(Rnd * z) + 1
s = a + b ‘сумма
Label4.Caption = Str(a) ‘вывод чисел
Label6.Caption = Str(b)
End Sub

Слайд 17

Программный код кнопок «Результат» и «Назад»

Private Sub CommandButton2_Click() 'Результат
Label12.Caption

= Str(k)
Label13.Caption = Str(n)
End Sub
Private Sub CommandButton3_Click() 'Назад
End
End Sub

Слайд 18

Форма для проверки грамматики
Label2
Label1
TextBox1
CommandButton1
Image1
Label14
Label15
TextBox8

Слайд 19

Программный код кнопки «Проверка»
Private Sub CommandButton1_Click() 'Проверка
k = 0 ‘количество

верных ответов
If TextBox1 = "жи" Then
k = k + 1: TextBox1.ForeColor = vbGreen ‘выделение зелёным цветом верных ответов
Else
TextBox1.ForeColor = vbRed ‘выделение красным цветом ошибок
End If
Label14.Caption = Str(k)
Label15.Caption = "Ошибки выделены красным цветом"
End Sub

Слайд 20

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

ребусы на любые темы.
Создайте соответствующие слайды «Информатика» и «Ребусы», пользовательские формы и программные коды.

Слайд 21

Создание макросов на языке VBA

Содержание

Понятие макросаВ Microsoft Office 95 и 97 макросы записывались на языке

Назначение макросов ускорение часто выполняемых операций редактирования или форматирования (стили)объединение нескольких

Операции с макросами Для быстрого запуска макроса можно создать для него

Виды макросовКомандные – состоят из операторов, эквивалентных тем или иным командам

Уровни безопасности по защите от макровирусов в пакете MS OfficeУстановка уровней

Способы создания макросовС помощью средств автоматической записи (не требует знания программирования)Программирование

Автоматическое создание макросаВыполнить команду Сервис – Макрос - Начать запись. Ввести

Назначение макроса сочетанию клавишВ поле "Назначить макрос" нажмите кнопку "Клавишам". Выберите

Назначение макроса панели инструментовВ поле "Назначить макрос" нажмите кнопку "Панели". Выберите

Создание макросов в Power Point

Создание макросов в Power PointСоздайте слайд с заголовком «Математика». Активизируйте панель

Установка свойств кнопокСвойстваВ контекстном меню кнопки выбрать Properties (свойства)

Создание пользовательской формы Label6Label4TextBox1CommandButton1Label2Label13Label15Label12

Программный код загрузки формыPrivate Sub UserForm_Activate() ‘активация формы n = 0

Программный код кнопки «Далее»Private Sub CommandButton1_Click() If Val(s) = Val(TextBox1)

Программный код кнопок «Результат» и «Назад» Private Sub CommandButton2_Click() 'Результат Label12.Caption

Форма для проверки грамматики Label2Label1TextBox1CommandButton1Image1Label14Label15TextBox8

Программный код кнопки «Проверка»Private Sub CommandButton1_Click() 'Проверка k = 0 ‘количество

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

Пример проекта с макросамиОткрыть проект «Проверь себя»

Похожие презентации