Инструкции VBA - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Инструкции VBA. Доклад-сообщение содержит 64 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

ИНСТРУКЦИИ VBA

Слайд 2

Описание слайда:

Инструкции комментариев Используются для вывода текста сообщений. Могут начинаться с ключевого слова REM или с апострофа‘. Например: Rem Описание переменных или ‘ Описание переменных

Слайд 3

Описание слайда:

Обратите внимание! Комментарии с апострофом видны на экране монитора и печатаются на бумаге при распечатке листинга. Комментарии с ключевым словом Rem видны на экране, но отсутствуют в листинге!

Слайд 4

Описание слайда:

Инструкции (операторы) присваивания Синтаксис оператора для переменных:

Слайд 5

Описание слайда:

Синтаксис оператора присваивания для объектов SET

Слайд 6

Описание слайда:

ВСТРОЕННЫЕ ДИАЛОГОВЫЕ ОКНА

Слайд 7

Описание слайда:

В проектах VBA имеются две разновидности диалоговых окон: В проектах VBA имеются две разновидности диалоговых окон: окно сообщений; окно ввода. Окно сообщений работает с функцией MsgBox и выводит простейшие сообщения для пользователя. Окно ввода работает с функцией InputBox и обеспечивает ввод информации

Слайд 8

Описание слайда:

Функция InputBox Выводит на экран диалоговое окно, содержащее сообщение и поле ввода. Устанавливает режим ожидания ответа. Имеет синтаксис: InputBox(Сообщение, Заголовок, Текст по умолчанию)

Слайд 9

Описание слайда:

Сообщение – максимальная длина 1024 символа. Сообщение – максимальная длина 1024 символа. Перенос – клавиша Enter. Заголовок – выражение, которое отображается в верхней строке окна. Если этот аргумент опущен, в строке будет имя приложения, например, Microsoft Excel. Текст по умолчанию – выражение, отображаемое в поле ввода, если пользователь не введет другую строку. Если аргумент опущен, поле ввода отображается пустым.

Слайд 10

Описание слайда:

Например, оператор Например, оператор Результат = InputBox(“Введите число от 1 до 3”,”Пример”,”1”) выведет на экран окно

Слайд 11

Описание слайда:

При вводе программы При вводе программы

Слайд 12

Описание слайда:

Функция MsgBox Выводит на экран диалоговое окно, содержащее сообщение. Устанавливает режим ожидания нажатия пользователем кнопки. Позволяет помещать в окне различные кнопки. Возвращает значение типа Integer, указывающее, какая кнопка была нажата.

Слайд 13

Описание слайда:

Например, оператор Например, оператор Ответ =MsgBox(“Обнаружена ошибка. Продолжить?”,VbYesNo”Пример2”) выведет окно

Слайд 14

Описание слайда:

Пример Программа для организации диалога с пользователем. 1. Откроем Excel. 2. Сервис – Макрос – редактор VBA. 3. Insert – Module (Вставка – Модуль). 4. Insert – Procedure (Вставка – Процедура). 5. Ввести имя программы Диалог – Ок. 6. Ввести текст программы.

Слайд 15

Описание слайда:

Интерфейс VBA

Слайд 16

Описание слайда:

Окно кода программы

Слайд 17

Описание слайда:

Программа Диалог

Слайд 18

Описание слайда:

Запуск программы на выполнение - кнопка F5

Слайд 19

Описание слайда:

Результат работы программы

Слайд 20

Описание слайда:

3.4. Инструкции управления порядком выполнения команд (операторы перехода и выбора) В VBA три типа операторов: Оператор безусловного перехода; Оператор условного перехода; Оператор выбора.

Слайд 21

Описание слайда:

Оператор безусловного перехода GoTo (Перейти к…)

Слайд 22

Описание слайда:

Оператор условного перехода If (если) Then (то) Else (иначе) Синтаксис оператора:

Слайд 23

Описание слайда:

Оператор If работает так: Если условие выполняется (ИСТИНА) – переход к Операторам 1, в противном случае (ЛОЖЬ) – переход к Операторам 2.

Слайд 24

Описание слайда:

Например, фрагмент программы: Например, фрагмент программы: Public Sub PRIM1() Dim X As Integer, Y As Integer X = 3 If X < 0 Then Y = 2 * X Else Y = X ^ 2 End If MsgBox ("Y=" + Str(Y)) End Sub вычислит результат:

Слайд 25

Описание слайда:

Фрагмент программы Dim T As Integer , Z As Integer T = -5 If T < 0 Then Z = 3+T Else Z = T^3 End If MsgBox(“Z= “ & Z) End Sub выведет диалоговое окно:

Слайд 26

Описание слайда:

Изменим исходные данные: Dim T As Integer , Z As Integer T = 2 If T < 0 Then Z = 3+T Else Z = T^3 End If MsgBox(“Z= “ & Z) End Sub

Слайд 27

Описание слайда:

Самостоятельно определить результат работы фрагмента программы Dim X As Integer, Z As Integer X=10 If X > 7 Then Z = 4*X Else Z= 4 + X End If MsgBox(“ Z= “ & Z) End Sub

Слайд 28

Описание слайда:

Результат работы программы

Слайд 29

Описание слайда:

Чтение-запись данных из ячейки ЭТ При обращении к ячейкам ЭТ применяют ключевое слово Range(“АдресЯчейки”) Чтение из ЭТ: Х= Range(“С15”) Запись в ЭТ: Range(“А10”)=В

Слайд 30

Описание слайда:

Пример Вычислить:

Слайд 31

Описание слайда:

Решение 1. Запустить Excel. 2. Ввести в ячейку С7 число –3. 3. Сервис – Макрос – Редактор Visual Basic. 4. Insert – Module. 5. Insert – Procedure. 6. Ввести имя программы Ветвь. 7. Ввести текст программы в окно кода:

Слайд 32

Описание слайда:

Public Sub PRIM () Public Sub PRIM () Dim X As Integer, Y As Integer X = Range("C7") If X < 0 Then Y = X ^ 3 Else Y = Cos(X) End If Range("F8") = Y End Sub

Слайд 33

Описание слайда:

8. Запустить программу на вычисление (F5). 8. Запустить программу на вычисление (F5). 9. Перейти на лист Excel для проверки работы программы (Щелчок по Microsoft Excel на Панели задач). Результат:

Слайд 34

Описание слайда:

Проверим вторую ветвь программы 10. Ввести в ячейку С7 число 3.14. 11. Для перехода в VBA щелкнуть по Microsoft VB на Панели задач. 12. Нажать F5.

Слайд 35

Описание слайда:

Организация программ для проверки нескольких условий В этом случае в теле (т.е. внутри) одного условного оператора записывают другие условные операторы.

Слайд 36

Описание слайда:

Пример Составить программу вычисления

Слайд 37

Описание слайда:

Слайд 38

Описание слайда:

Для проверки первой ветви программы в ячейку А1 ввести число -4 и F5. Для проверки первой ветви программы в ячейку А1 ввести число -4 и F5.

Слайд 39

Описание слайда:

Для проверки третьей ветви программы в ячейку А1 ввести число 0 и F5.

Слайд 40

Описание слайда:

Чтение-запись данных с листа ЭТ, как объекта ООП При обращении к листу ЭТ применяют ключевые слова: ‘ Описание листа Excel как объект Dim ИмяЛиста As Object ‘ Определение класса объекта Set ИмяЛиста = WorkSheets(“ИмяЛиста”) ‘ Чтение с листа ЭТ Х=ИмяЛиста . Range(“АдресЯчейки”) ‘ Запись на лист ЭТ ИмяЛиста . Range(“АдресЯчейки”)=С

Слайд 41

Описание слайда:

Пример Вычислить

Слайд 42

Описание слайда:

Решение 1. Переименовать два листа ЭТ: Первый и Второй 2. В ячейку А10 листа Первый ввести число 9 (проверим вторую ветку). 3. Создаем код программы:

Слайд 43

Описание слайда:

Sub Пример6 ( ) Sub Пример6 ( ) Dim X As Single,Z As Single Dim Первый As Object, Второй As Object Set Первый = WorkSheets(“Первый”) Set Второй = WorkSheets(“Второй”) Х = Первый.Range(“A10”)

Слайд 44

Описание слайда:

Слайд 45

Описание слайда:

Контрольный пример. Назовите результат Dim Y As Integer,Z As Integer Y = 15 If Y = 20 Then Z = Y^2 Else Z = Y/3 End If End If

Слайд 46

Описание слайда:

Пример Составить программу для начисления премии работникам предприятия в зависимости от стажа работы

Слайд 47

Описание слайда:

Слайд 48

Описание слайда:

Проверка неравенств с использованием оператора Select Case

Слайд 49

Описание слайда:

Контрольный пример. Вычислите результат Программа

Слайд 50

Описание слайда:

Контрольный пример. Вычислите результат Программа

Слайд 51

Описание слайда:

Контрольный пример. Вычислите результат Программа

Слайд 52

Описание слайда:

Структура оператора If для проверки большого числа условий о

Слайд 53

Описание слайда:

Программа для примера с ElseIf

Слайд 54

Описание слайда:

Контрольный пример. Вычислите результат

Слайд 55

Описание слайда:

Оператор выбора Select Case (выбрать по признаку)

Слайд 56

Описание слайда:

Пример Рассчитать стоимость перевозки груза в зависимости от расстояния

Слайд 57

Описание слайда:

Решение 1. Заполнить ЭТ

Слайд 58

Описание слайда:

Слайд 59

Описание слайда:

4. Нажимаем F5. Результат: 4. Нажимаем F5. Результат:

Слайд 60

Описание слайда:

Для исправления ошибки удобно использовать оператор Ucase (аргумент). Для исправления ошибки удобно использовать оператор Ucase (аргумент). Он переводит любой текст аргумента в большие буквы. Запишем оператор присваивания значения переменной Город в виде: Город = Ucase(Range(“B2”).Value)