Таблица 4

Старшинство операций (в порядке убывания приоритета):

р операции в скобках;

р вычисление функции;

р ^ ;

р смена знака;

р *, /, \, mod;

р +, -

р = , >,<,>=,<=,<>,

р Not,

р And,

р Or,

р Xor.

Логические выражения в результате вычисления принимают логические значения True (Истина) или False (Ложь). Операндами логического выражения могут быть логические константы, переменные логического типа, отношения. В VBA чаще используют 4 логические операции: отрицание -- NOT, логическое умножение -- AND, логическое сложение -- OR, исключающее "или" -- XOR. Результаты логических операций для различных значений операндов приведены в таблице 5. Использованы обозначения: Т -- True, F -- False.

Таблица 5

Окна форм,

Для создания диалоговых окон, разрабатываемых приложений в VBA, используются формы. Редактор форм является одним из основных инструментов визуального программирования. Форма в проект добавляется с помощью команды Вставка, Форма (Insert, Form) или нажатием кнопки Вставить UserForm

В результате на экран выводится незаполненная форма с панелью инструментов Панель элементов (рис. 3).

Рисунок 3

Используя панель инструментов Панель элементов из незаполненной формы, можно сконструировать любое требуемое для приложения диалоговое окно. Размещение нового управляющего элемента в форме осуществляется следующей последовательностью действий:

1. Щелкните значок того элемента, который вы собираетесь разместить в форме.

2. Поместите указатель мыши на то место, где будет располагаться управляющий элемент.

3. Нажмите левую кнопку мыши и, не отпуская ее, растяните появившийся прямоугольник до требуемых размеров.

4. Отпустите кнопку мыши. Элемент управления на нужном место создан.

Размеры формы и расположенных на ней элементов управления можно изменять. Технология изменения размеров стандартная для Windows: выделить изменяемый элемент, разместить указатель мыши на одном из размерных маркеров и протащить его при нажатой левой кнопки мыши так, чтобы объект принял требуемые размеры. Окно редактирования форм поддерживает операции буфера обмена. Таким образом, можно копировать, вырезать и вставлять элементы управления, расположенные на поверхности формы.

Любой управляющий элемент, который вы разместили на форме, обладает рядом свойств

Оператор присвоения

Оператор присвоения присваивает значение выражения переменной, константе или свойству объекта. Оператор присвоения всегда включает знак равенства (=).

Синтаксис:

Переменная (или Постоянная) = Выражение

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

Например:

Решение любой задачи имеет три части:

Ввод данных

Обработка данных

Вывод результата

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

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

Вывод результата - это код программы, который позволяет отобразить полученный результат в необходимом виде: на экране (лист excel, форма), на принтере и т.д.

Ввод/вывод данных можно осуществлять несколькими способами:

-запись и чтение данных из ячеек Excel.

- диалоговые окна (InputBox\MsgBox).

- конструирование собственных диалоговых окон (UserForm)

Сохранение программы

Если программу сохраняется первый раз или вас устраивает уже существующее имя, то сохранять можно как в VBA, так и в Excel;

Если вас не устраивает уже существующее имя, то сохранять необходимо таким образом: выйти в Excel, выбрать пункт меню Файл, а в нем пункт - Сохранить как.

Рассмотрим первый из них

Производить запись и чтение данных из ячеек Excel можно используя два свойства: Range и Cells.

Свойство Range требует один аргумент - имя ячейки, записанное при помощи относительной или абсолютной адресации.

Например:

Range("A1")

Range("$A$1")

Свойству Cells требуется два аргумента, номер строки и номер столбца, на пересечении которых находится ячейка.

Например:

Сеlls(2,4) (обращение к ячейке D2)

Порядок выполнения:

Выполнить команду СЕРВИС/МАКРОС/ РЕДАКТОР VBA

Выполнить команду ВСТАВКА/МОДУЛЬ (Insert/Module)

Выполнить команду ВСТАВКА/Процедура (Insert/Procedure)

Ввести имя процедуры (по правилу именования)

Набрать программу для вычисления выражения с=Sin(a)/Cos(b) .

Текст программы:

Public Sub ggg() ' заголовок процедуры

Dim a As Double, b As Double, c As Double 'раздел описания переменных

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

a = Worksheets(1).Range("a1").Value 'присваивание идентификатору а числового 'значения

' ячейки а1 рабочего листа

b = Worksheets(1).Range("b1").Value ' присваивание идентификатору b числового значения

' ячейки b1 рабочего листа

c = Sin(a) / Cos(b) ' вычисление арифметического выражения

Worksheets(1).Range("c1").Value = c ' передача вычисленного значения в ячейку с1 рабочего

' листа 1

End Sub 'конец процедуры

Запустить программу на выполнение. Запуск осуществляется или нажатием клавиши F5, или кнопка на панели инструментов.

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

редактор application линейный программа

Схема алгоритма.

Рассмотрим второй способ организации ввода/вывода

Для организации ввода/вывода также можно использовать диалоговые окна. Наиболее часто в программах VBA встречаются две разновидности диалоговых окон: окна сообщений и окна ввода

Окно сообщения используется для предоставления информации пользователю. Можно задать вывод на экран окна сообщения, в котором пользователь должен щелкнуть на одной из кнопок, прежде чем продолжить работу.

Окно ввода создается и выводится на экран с помощью функции InputBox.

Например:

- Имя =InputBox("Введите Ваше имя", "Пример окна ввода")

- На экране появится окно.

Переменной Имя будет присвоено значение типа String, введенное пользователем.

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

X=CDbl(InputBox("Введите значение Х", "Пример окна ввода", "1,678"))

Введенное пользователем значение будет преобразовано к типу Double и присвоено переменной Х. Если пользователь не будет вводить значение, а просто нажмет кнопку OK, переменной Х будет присвоено значение по умолчанию - 1.678.

Часть 2. VBA. Линейная программа на основе создания собственных диалоговых окон

По своей сути форма (или пользовательская форма) представляет собой диалоговое окно, в котором можно размещать различные элементы управления. В приложении может быть как одна, так и несколько форм. Новая форма добавляется в проект выбором команды Вставка (Insert) UserForm.

В VBA имеется обширный набор встроенных элементов управления. Используя этот набор и редактор форм, нетрудно создать любой пользовательский интерфейс, который будет удовлетворять всем требованиям, предъявляемым к интерфейсу в среде Windows. Элементы управления являются объектами. Как любые объекты, они обладают свойствами, методами и событиями. Элементы управления создаются при помощи Панели элементов, которая отображается на экране либо выбором команды Вид (View) Панель элементов (Toolbox), либо нажатием кнопки панели инструментов Standard. На этой панели представлены кнопки, позволяющие конструировать элементы управления. Для создания элементов управления служат все кнопки панели инструментов, за исключением кнопки Выбор объекта . Щелкнув по кнопке Выбор объекта, можно выбрать уже созданный в форме элемент управления для последующего его редактирования (изменения размеров или редактирования).

Приводим список основных элементов управления и соответствующих кнопок панели элементов.

Таблица 8

Для размещения элемента управления на лист или в форму необходимо нажать соответствующую кнопку на панели элементов и с помощью мыши перетащить рамку элемента управления в нужное место. После этого элемент управления можно перемещать, изменять его размеры, копировать в буфер обмена, вставлять из буфера обмена и удалять из формы.

Приводим основные общие свойства элементов управления.

Таблица 9

После размещения элементов управления на форме необходимо связать объект на форме с кодом.

В VBA очень просто связать объект с кодом. Для выполнения данной операции:

Дважды щелкните по элементу управления в форме. Появляется окно модуля для выбранного объекта. Выберите событие для которого требуется создать процедуру обработки, в списке, расположенном в верхнем правом углу окна модуля. Введите текст процедуры.

Вызвать контекстное меню необходимого объекта правой клавишей мыши и нажать поле Программа.

Задание к выполнению

Расположите на форме следующие элементы:

Label1;

TextBox1;

CommandButton1.

Активизируйте Label1, в окне свойств найдите свойство Caption и измените Label1 на название вашего факультета.

Те же действия произведите с CommandButton1, изменяя Caption на - "ок".

Активизируйте TextBox1 и измените свойство Text, набрав абравиатуру своей группы.

С помощью элемента Выбор объекта выделите все элементы на форме. В окне свойств хорошо видно какие свойства одинаковы для всех элементов. Изменяя свойства Font (полужирный, курсив, размер шрифта 15), BackColor (светлая тень для кнопки), Visible(False), проследите все изменения элементов управления на форме.

Осуществить запуск программы с помощью кнопки Запуск на панели инструментов или меню Запуск/ Запуск программы.

Вернуться в режим конструктора VBA для этого нажмите крестик на форме.

Выделите опять все объекты и поменяйте только свойство Visible (True) и снова произведите запуск программы.

Самостоятельно изменяйте другие свойства элементов данной формы и пронаблюдайте их изменения.

Решим задачу: найдем сумму с=Sin(a)/Cos(b)

Порядок выполнения работы:

Выполнить команду СЕРВИС /МАКРОС/РЕДАКТОР VBA

Выполнить команду ВСТАВКА/USER FORM

Поместить на форму элементы, требуемые для решения задачи, с панели элементов, и расположить их нужным образом.

Изменить свойства объектов на форме c помощью окна свойств.

Написать программный код. Для этого рекомендуется выполнить двойной щелчок по кнопке результат и перейти в окно программы, где набрать текст процедуры обработки события Click() для кнопки и для флажка(CheckBox1):

Private Sub CheckBox1_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox3.Visible = False

TextBox1.SetFocus

CheckBox1.Value = False

End Sub

Private Sub CommandButton1_Click()

Dim a As Integer

Dim b As Integer

Dim c As Integer

a = CInt(TextBox1.Text)

b = CInt(TextBox2.Text)

c = a + b

MsgBox "результат смотри в TextBox3"

TextBox3.Visible = True

TextBox3.Text = c

End Sub

Пояснения к программе:

1) Dim а As Integer

Эта инструкция описывает переменные как Integer -- целые числа от -32768 и до 32767. При попытке присвоить а число, выходящее за пределы этого диапазона, возникает ошибка. При присваивании а дробного числа, выполняется округление.

Инструкция Dim - Описывает переменные и выделяет для них память.

2) CInt - функция преобразования типов данных (преобразовывает выражение в скобках к типу Integer).

Синтаксис CInt(выражение)

3) c=a+b

Оператор присваивания ( = )-вычисляется значение выражения, стоящего справа от знака присваивания, и присваивается переменной, стоящей слева от знака присваивания.

4) MsgBox "результат смотри в TextBox3"

Появляется на экране окно сообщений MsgBox, в котором отображается сообщение, записанное в кавычках, и выполнение программы останавливается до тех пор пока не будет нажата кнопка "OK".

5) TextBox3.Text = c

Результат выполнения программы (с) выводится на форму в TextBox3

6) TextBox1.Text = "", TextBox2.Text = "", TextBox3.Text = ""

Производится очистка полей TextBox1, TextBox2, TextBox3.

7) TextBox1.SetFocus

Устанавливается фокус (курсор) в TextBox1.

8) CheckBox1.Value = False

Исчезает галочка у флажка CheckBox1.

Блок-схема к программе

Задания для выполнения

В предложенных задачах ввод и вывод осуществить рассмотренными способами.

Размещено на Allbest.ru