🗊Презентация Инструкции VBA

Категория: Устройства и комплектующие
Нажмите для полного просмотра!
Инструкции VBA, слайд №1Инструкции VBA, слайд №2Инструкции VBA, слайд №3Инструкции VBA, слайд №4Инструкции VBA, слайд №5Инструкции VBA, слайд №6Инструкции VBA, слайд №7Инструкции VBA, слайд №8Инструкции VBA, слайд №9Инструкции VBA, слайд №10Инструкции VBA, слайд №11Инструкции VBA, слайд №12Инструкции VBA, слайд №13Инструкции VBA, слайд №14Инструкции VBA, слайд №15Инструкции VBA, слайд №16Инструкции VBA, слайд №17Инструкции VBA, слайд №18Инструкции VBA, слайд №19Инструкции VBA, слайд №20Инструкции VBA, слайд №21Инструкции VBA, слайд №22Инструкции VBA, слайд №23Инструкции VBA, слайд №24Инструкции VBA, слайд №25Инструкции VBA, слайд №26Инструкции VBA, слайд №27Инструкции VBA, слайд №28Инструкции VBA, слайд №29Инструкции VBA, слайд №30Инструкции VBA, слайд №31Инструкции VBA, слайд №32Инструкции VBA, слайд №33Инструкции VBA, слайд №34Инструкции VBA, слайд №35Инструкции VBA, слайд №36Инструкции VBA, слайд №37Инструкции VBA, слайд №38Инструкции VBA, слайд №39Инструкции VBA, слайд №40Инструкции VBA, слайд №41Инструкции VBA, слайд №42Инструкции VBA, слайд №43Инструкции VBA, слайд №44Инструкции VBA, слайд №45Инструкции VBA, слайд №46Инструкции VBA, слайд №47Инструкции VBA, слайд №48Инструкции VBA, слайд №49Инструкции VBA, слайд №50Инструкции VBA, слайд №51Инструкции VBA, слайд №52Инструкции VBA, слайд №53Инструкции VBA, слайд №54Инструкции VBA, слайд №55Инструкции VBA, слайд №56Инструкции VBA, слайд №57Инструкции VBA, слайд №58Инструкции VBA, слайд №59Инструкции VBA, слайд №60Инструкции VBA, слайд №61Инструкции VBA, слайд №62Инструкции VBA, слайд №63Инструкции VBA, слайд №64
Скачать

Содержание ▲

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

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

Слайд 1


ИНСТРУКЦИИ VBA
Описание слайда:
ИНСТРУКЦИИ VBA

Слайд 2


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

Слайд 3


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

Слайд 4


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

Слайд 5


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

Слайд 6


ВСТРОЕННЫЕ ДИАЛОГОВЫЕ ОКНА
Описание слайда:
ВСТРОЕННЫЕ ДИАЛОГОВЫЕ ОКНА

Слайд 7


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

Слайд 8


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

Слайд 9


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

Слайд 10


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

Слайд 11


При вводе программы При вводе программы
Описание слайда:
При вводе программы При вводе программы

Слайд 12


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

Слайд 13


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

Слайд 14


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

Слайд 15


Интерфейс VBA
Описание слайда:
Интерфейс VBA

Слайд 16


Окно кода программы
Описание слайда:
Окно кода программы

Слайд 17


Программа Диалог
Описание слайда:
Программа Диалог

Слайд 18


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

Слайд 19


Результат работы программы
Описание слайда:
Результат работы программы

Слайд 20


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

Слайд 21


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

Слайд 22


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

Слайд 23


Оператор If работает так: Если условие выполняется (ИСТИНА) – переход к Операторам 1, в противном случае (ЛОЖЬ) – переход к Операторам 2.
Описание слайда:
Оператор 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 вычислит результат:
Описание слайда:
Например, фрагмент программы: Например, фрагмент программы: 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 выведет диалоговое окно:
Описание слайда:
Фрагмент программы 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
Описание слайда:
Изменим исходные данные: 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
Описание слайда:
Самостоятельно определить результат работы фрагмента программы 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”)=В
Описание слайда:
Чтение-запись данных из ячейки ЭТ При обращении к ячейкам ЭТ применяют ключевое слово Range(“АдресЯчейки”) Чтение из ЭТ: Х= Range(“С15”) Запись в ЭТ: Range(“А10”)=В

Слайд 30


Пример Вычислить:
Описание слайда:
Пример Вычислить:

Слайд 31


Решение 1. Запустить Excel. 2. Ввести в ячейку С7 число –3. 3. Сервис – Макрос – Редактор Visual Basic. 4. Insert – Module. 5. Insert – Procedure. 6. Ввести имя программы Ветвь. 7. Ввести текст программы в окно кода:
Описание слайда:
Решение 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
Описание слайда:
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 на Панели задач). Результат:
Описание слайда:
8. Запустить программу на вычисление (F5). 8. Запустить программу на вычисление (F5). 9. Перейти на лист Excel для проверки работы программы (Щелчок по Microsoft Excel на Панели задач). Результат:

Слайд 34


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

Слайд 35


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

Слайд 36


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

Слайд 37


Инструкции VBA, слайд №37
Описание слайда:

Слайд 38


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

Слайд 39


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

Слайд 40


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

Слайд 41


Пример Вычислить
Описание слайда:
Пример Вычислить

Слайд 42


Решение 1. Переименовать два листа ЭТ: Первый и Второй 2. В ячейку А10 листа Первый ввести число 9 (проверим вторую ветку). 3. Создаем код программы:
Описание слайда:
Решение 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”)
Описание слайда:
Sub Пример6 ( ) Sub Пример6 ( ) Dim X As Single,Z As Single Dim Первый As Object, Второй As Object Set Первый = WorkSheets(“Первый”) Set Второй = WorkSheets(“Второй”) Х = Первый.Range(“A10”)

Слайд 44


Инструкции VBA, слайд №44
Описание слайда:

Слайд 45


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

Слайд 46


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

Слайд 47


Инструкции VBA, слайд №47
Описание слайда:

Слайд 48


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

Слайд 49


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

Слайд 50


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

Слайд 51


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

Слайд 52


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

Слайд 53


Программа для примера с ElseIf
Описание слайда:
Программа для примера с ElseIf

Слайд 54


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

Слайд 55


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

Слайд 56


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

Слайд 57


Решение 1. Заполнить ЭТ
Описание слайда:
Решение 1. Заполнить ЭТ

Слайд 58


Инструкции VBA, слайд №58
Описание слайда:

Слайд 59


4. Нажимаем F5. Результат: 4. Нажимаем F5. Результат:
Описание слайда:
4. Нажимаем F5. Результат: 4. Нажимаем F5. Результат:

Слайд 60


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

Слайд 61


Инструкции VBA, слайд №61
Описание слайда:

Слайд 62


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

Слайд 63


Пример Составить программу для определения стоимости перевозок в зависимости от расстояния
Описание слайда:
Пример Составить программу для определения стоимости перевозок в зависимости от расстояния

Слайд 64


Инструкции VBA, слайд №64
Описание слайда:

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию