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

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

Понятие макроса Макрос (или макрокоманда) – это набор действий, которые можно выполнить с помощью одной команды, имеющей имя   В Microsoft Office 95 и 97 макросы записывались на языке WordBasic, а начиная с MS Office 2000 – на языке VBA (Visual Basic for Application).

Создание макросов в Power Point Задание Создать проект «Проверь себя» для проверки навыков устного счёта и знания правил грамматики русского языка

Создание макросов в Power Point 1. Создайте слайд с заголовком «Математика». 2. Активизируйте панель инструментов "Вид - панели инструментов - элементы управления". 3. Разместите на слайде 4 командные кнопки (CommandButton1, 2, 3, 4). Кнопка

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

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

Программный код загрузки формы 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

Программный код кнопки «Далее» 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

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

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

Программный код кнопки «Проверка» 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

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

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