На примере с предыдущего урока возьмем код.
Sub programm() 'График функции y = x^3 -2x^2 + x^(3 * Cos(x1)) - 5 x1 = 1 'Начальное значения x2 = 10 'Конечное значение shag = 0.1 'Шаг изменения переменной i = 1 'Счётчик Do While x1 < x2 'Выполнять цикл операций, пока x1 < x2 y = x1 ^ 3 - 2 * x1 ^ 2 - x1 ^ (3 * Cos(x1)) - 5 'Рассчитать значение функции Сells(i, 1).Value = x1 'Записать x1 в ячейку с координатами (i,1) Cells(i, 2).Value = y 'Записать y в ячейку с координатами (i,2) i = i + 1 'Увеличить счётчик на 1 x1 = x1 + shаg 'Изменить x1 на величину шага Loop End Sub
Теперь же предлагаю более детально разобраться во всём этом коде. Сам четвёртый урок будет для удобства разбита на несколько частей, а это его первая часть.
Как мы уже говорили, любая программа начинается со слова «Sub» и заканчивается «End Sub». Чтобы не было путаницы, каждая программа должна иметь своё уникальное название, в данном случае наша программа называется "programm». Программа – это блок кода, который выполняет определённый набор команд. Этот блок также может быть использован, другой программой или блоком. Для более эффективного взаимодействия между блоками в VBA предусмотрен механизм передачи параметров между ними.
Так, например, следующий код демонстрируем использование блокам programm1()
блока programm(x) с передачей параметра x = 1.
Sub programm(x) End Sub Sub programm1() programm (1) End Sub
Далее рассмотрим набор используемых переменных.
x1 = 1 'Начальное значения
x2 = 10 'Конечное значение
shag = 0.1 'Шаг изменения переменной
i = 1 'Счётчик
Все они различных типов. shag, например, типа Double(с плавающей точкой), i – Integer(целый).
Но в VBA указывать это явно разработчику не требуется. Excel сам разберётся, что к чему. Но если вдруг для порядка Вы всё же захотите указать тип, то это можно сделать так.
Dim str As String 'Строковый тип – Доступна глобально
Sub programm(x) Dim x1 As Integer 'Доступна только в блоке program() Dim x2 As Integer 'Доступна только в блоке program() Dim shag As Double 'Доступна только в блоке program() Dim i As Integer 'Доступна только в блоке program() End Sub
Sub programm1()
programm (1)
{Код ….}
End Sub
При этом переменная, например «str», объявленная вне блоков, будет доступна как для program(), так и для programm1(), что позволяет использовать и изменять её и там и там.
Чтобы присвоить значение переменным необходимо использовать «=», для строковых - дополнительно надо взять в кавычки нашу строку. Например так:
Sub programm1() programm (1) str = "Это наша строка" End Sub
Что ж, эту часть заканчиваю и приглашаю перейти ко второй.
Содержание Предыдущая << • >> Cледующая Автор:Muha
