Презентация на тему Программирование на VBA. (Тема 2)

вывода данных .
Программирование линейных алгоритмов.
Программирование разветвляющихся алгоритмов
Программирование циклических

алгоритмов .

Алфавит, словарь, идентификаторы
Слова – неделимые последовательности знаков алфавита,

отделенные друг от друга разделителями, и несущие определенный смысл в программе.

Слова подразделяются

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

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

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

указанным типом.

Синтаксис описания переменных:
Dim имяПеременной [As тип] [, имяПеременной [As тип] …

Например,
Dim A As Integer
Dim B As Single, С As Boolean
Dim D

Если тип опущен, то он равен Variant

при их описании и в процессе выполнения программ не

изменяются.

Синтаксис инструкции Const:
Const ИмяКонстанты [As тип] = выражение

Например,
Const Year As Integer=2003
Const Plan=129
Const NameGrup = “МТ - 21”
Const Flag = True

VBA

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

= <выражение>

элементов. Основными из них являются:
приложение (в нашем

случае это Excel);
среда разработки VBA (редактор VBA);
совокупность модулей, в которых записывается программный код (совокупность программных единиц – процедур проекта).

Процедура – представляет собой последовательность инструкций.
Инструкция – это синтаксически полный компонент программы, представляющий собой операцию, описание или определение.

Синтаксис объявления процедуры Sub имеет следующий вид:
Sub <ИмяПроцедуры>([<Список параметров>])
<Тело процедуры>
End Sub

VBA:
В соответствии с правилами хорошего стиля программирования размещать инструкции

описания в начале процедуры.

Использовать комментарии, т.е. пояснения к фрагменту текста процедуры.
´программирование линейных алгоритмов
Перенос строк кода. Длинные инструкции можно размещать в нескольких строках. Для этого используют признак продолжения строки, состоящей из двух символов: пробела и подчеркивания (_).
y = 2 * Sqr(x+3) - (log(x^2) +2) _
/ (sin(x-1))
Расположение нескольких операторов в одной строке. Использование знака двоеточия (:) позволяет разместить несколько операторов (инструкций) на одной строке.
x=x+a: y=x-b
Выделение логических уровней кода отступами. (отступы делаются пробелами)

процедуры MsgBox:
MsgBox сообщение [, атрибуты] [, заголовок]




Например

Sub Pr2_1()
' Простое информационное сообщение
MsgBox "Привет!!!"
End Sub

Например
Sub Pr2_3()
' Вывод сообщения с двумя кнопками ОК и Отмена в сочетании с
' предупреждающим информационным значком. Кнопка ОК является основной
MsgBox "Процент выполнения плана выпуска продукции -" & _
Chr(13) & " незначительный", vbOKCancel + _
vbQuestion , "Пример"
End Sub

(сообщение [, заголовок] [, умолчание])
Например,
b

= InputBox("Введи значение b=", "Пример 3.5")

сообщение – Строковое выражение, отображаемое как сообщение в диалоговом окне. Может содержать несколько строк. Максимальная длина строки 1024 символа.
заголовок - Строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот параметр опущен, то в строку заголовка помещается имя приложения.
умолчание – Строковое выражение, отображаемое в поле ввода. Используется по умолчанию, если пользователь не введет другую строку. Если параметр опущен, то поле ввода изображается пустым.

x=Cells(5,3).Value
или

x=Cells(5,3)
или
x = Range("C5")

Переменной x присваивается значение ячейки С5

Например,
Sub Pr2_4 ()
Dim a As Byte, b As Byte, x As Integer, y As Single
a = Cells (2, 3): b = Cells (3, 3): x = Cells (4, 3)
y = (x + 3) ^ 2 + (2 * a - 3 * b) / (x ^ 2 - 2.8)
Cells(6, 1) = "Значение функции:"
Cells (7, 3) = y
End Sub

Dim y As Single, x As Single, a

As Single
Dim t As Single, z As Single
a = InputBox("Введи значение а")
z = InputBox("Введи значение z")
x = 1 - z
t = (x + 1) ^ 2
y = x + Abs (a + 2 * t)
MsgBox "Исходные данные:" & Chr(13) & _
"a=" & a & " z=" & z & Chr(13) & _
"Промежуточные данные:" & Chr(13) & _
"x=" & x & " t=" & t & Chr(13) & _
"Результат:" & Chr(13) & "y=" & y, , "Пример"
End Sub

Пример Вычислить значение функции y = x + |a+2t|,
где x = 1 – z, t = (x + 1)2

(условный оператор) If реализует разветвляющиеся процессы
If x>5 Then y=3*x+1.5

If a > 5 Then
b = b + a
Else
b = b - a
End If

If g > 10 Then
z=5
ElseIf g<5 Then
z=1
End If

Примеры

4.1. Условный оператор If

Select Case
4.2. Оператор выбора Select Case
Например, реализовать вывод сообщения

об оценке по полученным балам

Select Case Range(“A3”)
Case Is >=90
MsgBox “Вы получаете оценку 5”
Case 75 To 89
MsgBox “Вы получаете оценку 4”
Case 60 To 74
MsgBox “Вы получаете оценку 3”
Case 35 To 59
MsgBox “Вы получаете оценку 2”
Case Else
MsgBox “Вас необходимо отчислить”
End Select

процессов

Wend

K = 1
While k<=N+1
y = k+N
MsgBox “При k=” & k & “ и N=”, & N _
& “ значение y=”& y
k = k + 0.5
Wend

Пример

Loop Until <условие>

k=1
Do
y = k + N
MsgBox “При k=” & k & “ и N=”, & N _
& “ значение y=”& y
k = k + 0.5
Loop Until k>N+1

Пример