VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code

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

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №2

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №3

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №4

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №5

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №6

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №7

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №8

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №9

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №10

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №11

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №12

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №13

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №14

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №15

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №16

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №17

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №18

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №19

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №20

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №21

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №22

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №23

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code, слайд №24

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code. Доклад-сообщение содержит 24 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

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

Слайд 1

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

VBA (Visual Basic for Application) Запуск:  , Другие команды, вкл. Разработчик, View / Immediate Window, View / Code

Слайд 2

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

Переменные, константы Переменные, константы Переменная – участок оперативной памяти для временного хранения данных. Константа – для хранения постоянного значения. Оператор DIM - объявление переменных: DIM имя_переменной AS Тип Имя переменной: начинается с букв ; не более 255 символов; не содержит . └┘ ! @ # & % $ (регистр символов не имеет значения) Типы переменных

Слайд 3

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

Операции отношения Операции отношения Логические операции

Слайд 4

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

Математические операторы Математические операторы Математические функции

Слайд 5

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

Запись и редактирование макроса Запись и редактирование макроса ! Безопасность макроса (отключить) Запись макроса Вид / Макросы / Относительные ссылки Вид / Макросы / Запись Макроса Имя: Заголовок Сочетание клавиш: Ctrl + З Сохранить в: Эта книга Описание: Формат заголовка, ОК Действия: Главная, кнопки - жирный, курсив, красный Вид / Макросы / Остановить запись Проверка: ввести текст, Ctrl + З или Вид / Макросы / Макросы, Выполнить форматирование текста Редактирование: Вид / Макросы / Макросы, выбрать, Изменить

Слайд 6

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

Создание макроса Создание макроса ! Безопасность макроса (отключить) Задание: Вычислить при x=6.678; y=7.565 Вывести исходные данные и результаты расчетов Полученные результаты округлить до 2-х знаков после запятой Набрать программу,  (Выполнить)

Слайд 7

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

Код макроса Код макроса Option Explicit Public Sub Execute() Dim x As Single, y As Single Dim z As Single, d As Single x = 6.678 y = 7.565 z = Sqr(x ^ 2 + y ^ 2) d = z ^ 3 Debug.Print "X="; x; " Y="; y Debug.Print "Z="; Format(z, "###0.00"); " D="; Format(d, "###0.00") End Sub

Слайд 8

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

Условный переход (If … Then…) Дано: x = 2.3 y=45.8 z=55.5

Слайд 9

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

Код макроса Option Explicit Public Sub Execute() Dim a As Single, x As Single, y As Single Dim z As Single, n As Single x = 2.3 y = 45.8 z = 55.5 a = Sqr(Abs(x + y ^ 2 + z)) If a > 2 Then n = x ^ 2 - y ^ 3 + 2 * x * y End If If a = 2 Then n = y ^ 3 - x ^ 2 End If If a < 2 Then n = 1 - (y - z) / (y + z) End If Debug.Print "x ="; x; "y ="; y; "z ="; z Debug.Print "a ="; a Debug.Print "n ="; n End Sub

Слайд 10

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

Оператор IF проверяет одно условие. Оператор IF проверяет одно условие. Оператор ELSE IF – переход управления в зависимости от результатов проверки нескольких условий. Анализируется, если предыдущее условие ложно. Пример: Dim mes AS String If x > 0 Then mes = "Значение положительное" Else lf x = 0 Then mes = "Значение равно 0" Else mes = "Значение отрицательное" End If

Слайд 11

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

Множественный выбор (конструкция Select case) Множественный выбор (конструкция Select case) Аналогична If…Then…Else (позволяет обработать несколько условий). Состоит из анализируемого выражения и набора операторов Case на каждое возможное значение выражения.

Слайд 12

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

Функции пользователя Функции пользователя Пример: создать функцию для вычисления в EXCEL 1. Insert / Module – добавление в проект модуля, щелчок на пиктограмме Module 1 2. В окне свойств (Properties), Names (имя), ввести Vector 3. Ввести операторы функции Public Function getVector(a As Single, b As Single) As Single Dim z As Single z = Sqr(a ^ 2 + b ^ 2) getVector = z End Function (Function – имя процедуры, Public – глобальный доступ) 4. Сохранить результаты, закрыть окно VBA 5. Найти созданную функцию – fx 6. Выбрать категорию «Определенные пользователем» 7. Ввести значения аргументов

Слайд 13

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

Слайд 14

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

Функция InputBox Функция InputBox Для ввода строки текста в программу c помощью окна диалога Windows. Формат вызова функции: Dim s As String S=InputBox(«приглашение»,[“значение по умолчанию”]) Функции преобразования чисел в типы данных CInt(s) – Integer, CLng(s) – Long, CSng(s) – Single, CDbl(s) – Double, CDate(s) – Date, Cvar – Variant Функция MsgBox Для организации диалога с пользователем. Формат вызова функции: response=MsgBox(“Текст сообщения”,флаги,”Заголовок”) Аргументы функции: “Текст сообщения” – cообщение пользователю, Флаги – комбинация системных констант VBA для вывода кнопок и пиктограммы к сообщению (vb…), ”Заголовок” – текст для заголовка окна (необязателен).

Слайд 15

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

Option Explicit Option Explicit Public Sub ExecDialog() Dim a As Single, b As Single Dim z As Single Dim strA As String, strB As String Dim response newInput: ‘Ввод данных strA = InputBox("InputA") strB = InputBox("InputB") ‘Проверка ввода If Not IsNumeric(strA) Or Not IsNumeric(strB) Then MsgBox "Error!" & Chr(10) & Chr(13) & "Not number data!", vbCritical, "" Exit Sub End If ‘Преобразования и вычисления a = CSng(strA): b = CSng(strB) z = Sqr(a ^ 2 + b ^ 2) ‘Вывод результатов работы MsgBox "Z=" & Format(z, "###0.00") & "A=" & a & "B=" & b, vbInformation, "" ‘Запрос на повторный ввод данных response = MsgBox("Input new data", vbQuestion + vbYesNo, "") If response = vbYes Then GoTo newInput End Sub

Слайд 16

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

Массивы Массивы Задание: заполнить массив случайными вещественными числами, вычислить их сумму, вывести сумму и массив. Option Explicit Public Sub ExecArray() Const n = 10 Dim sngArray(1 To n) As Single Dim i As Integer Dim mes As String Randomize mes = "V[" For i = 1 To n sngArray(i) = Rnd mes = mes & "" & Format(sngArray(i), "###0.00") Next i mes = mes + "]” Dim s As Single s = 0 For i = 1 To n s = s + sngArray(i) Next i MsgBox "S=" & s & Chr(10) & Chr(13) & mes, vbInformation, "“ End Sub

Слайд 17

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

Задание: создать макрос для ввода с клавиатуры последовательности чисел, выполнить их суммирование до контрольного значения, которое вводится с клавиатуры. Задание: создать макрос для ввода с клавиатуры последовательности чисел, выполнить их суммирование до контрольного значения, которое вводится с клавиатуры. Option Explicit Public Sub getNumbers() Dim strN As String, strX As String Dim n As Single, s As Single, x As Single strN = InputBox(“Вв. Предельное число N") If Not IsNumeric(strN) Then Exit Sub n = CSng(strN) s = 0 Do While s < n strX = InputBox(“Введите число") If Not IsNumeric(strX) Then Exit Do x = CSng(strX) s = s + x Loop MsgBox “Получено=" & s & "N=" & n End Sub

Слайд 18

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

Элементы управления (ActiveX)

Слайд 19

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

Пользовательские формы Insert / User Form View / Properties Window Визуальные компоненты диалога View / ToolBox

Слайд 20

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

Создание формы «Закрыть» Создание формы «Закрыть» 1. Создать на рабочем листе командную кнопку «Закрыть!», запрограммировать ее Private Sub cmdForm1_Click() 'Загрузка формы Load Form1 Form1.Show End Sub 2. Создать форму Form1 с текстовой меткой и командной кнопкой: Текстовая метка: Командная кнопка: имя – CloseButton, заголовок – Закрыть!, изменить шрифт, заливку. 3. Программирование кнопки открыть редактор VBA ввести End между операторами: Private Sub CloseButtom_Click() End End Sub 4. Проверить работу формы.

Слайд 21

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

Разработка формы для работы с валютой Задание: возможность ввода пользователем в полях формы денежной суммы, курса валют доллар/рубль и евро/рубль. Пересчет введенной суммы по курсу. Для вызова формы на рабочий лист разместить командную кнопку.

Слайд 22

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

Слайд 23

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

Слайд 24

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

Option Explicit Option Explicit Private Sub cmdGo_Click() ‘Контроль данных If Not IsNumeric(txtUSDRubl.Text) Or Not IsNumeric(txtEurRub.Text) Or Not IsNumeric(txtSumma.Text) Then MsgBox "Введены неверные данные !", vbCritical, "" Exit Sub End If ‘Чтение курса валюты Dim kurs As Single If OptUSDRUB.Value Then kurs = CSng(txtUSDRubl.Text) Else kurs = CSng(txtEurRub.Text) End If ‘Проведение вычислений Dim summa As Single Dim mes As String summa = CSng(txtSumma.Text) Dim itogo As Single If optValutaRub.Value Then itogo = kurs * summa mes = " Валюта - Рубли « Else itogo = summa / kurs mes = " Рубли - Валюта " End If lblItog.Caption = " Итого: Вид операции " & Chr(10) & Chr(13) & mes & Format(itogo, "###0.00") End Sub Private Sub cmdReset_Click() ‘Возврат формы в исходное состояние txtUSDRubl.Text = "24,85" txtEurRub.Text = "35,70" txtSumma.Text = "" lblItog.Caption = " Итого: " optValutaRub.Value = True OptUSDRUB.Value = True End Sub