Исследование локальной инфляции по цене продаж и поставки корзины потребителя (по материалам ОАО "Салют")

Const имя_константы As тип_данных = значение

Локальные переменные и константы объявляются внутри процедуры, они определены для данной процедуры. Глобальные переменные и константы объявляются в верхней части модуля в области общих объявлений:

Public имя_переменной As тип_данных

Public имя_переменной As тип_данных = значение

Для создания приложения нужно вставить модуль в рабочую книгу и записать процедуру. Выполните СервисМакросРедактор Visual Basic или <Alt+F11>. Щелкните правой кнопкой на ЭтаКнига в Project Explorer. InsertМodule добавит модуль, InsertProcedure откроет Add Procedure. Введите имя процедуры. В Type установите Sub (Подпрограмма) и ОК. Введите текст MsgBox "Первая процедура" и <Enter>. Выполните Run Sub/UserForm или нажмите <F5>. Щелчок ОК вернет окно Visual Basic.

Введите название процедуры и код

Dim iResult As Integer

iResult = MsgBox (“Щелкните на кнопке”, vbYesNoCancel)

MsgBox iResult

<F5> дает окно сообщения. Щелкните Да. Новое окно выведет цифру 6. ОК закроет окно. Нажмите <F5> и Нет. Новое окно выведет 7.

Щелкните Insert UserForm или ВставкаЭкранная форма. Для просмотра RunRun Sub\UserForm (ВыполнитьВыполнить процедуру\ экранную форму). Щелчок Закрыть закроет форму и возвратит редактор. Вам встретятся английские названия элементов.

Кнопку вставляет ВидПанели инструментовФормы. На панели Формы выберите элемент управления. Поместите указатель мыши, где будет верхний угол элемента. Нажмите левую кнопку и протащите указатель, рисуя прямоугольник элемента управления. Выберите Надпись и введите "Элемент управления". В контекстном меню Формат объекта. В окне Формат элемента управления выберите Элемент управления.

Возвращаемые значения:

Если нужно ввести число или текст, применяется функция

InputBox (приглашение [, заголовок] [, по_умолчанию] [,xпоз] [,yпоз] [, файл_справки] [, содержание])

Аргумент по_умолчанию задает значение, отображаемое в поле ввода, пока не введено значение. Если его опустить, то поле ввода отображается пустым. Необязательные аргументы xпоз и yпоз задают положение окна на экране. Возвращаемым значением является значение, введенное в поле ввода.

Объект (object) - то, чем можно управлять с помощью кода, свойства (properties) - его характеристики и атрибуты, методы (methods) - действия, которые может выполнить объект. Чтобы увидеть объекты Excel, нажмите <Alt+F11> и <F1>. На вкладке Мастер ответов введите What is an object? Нажмите <Enter> и Microsoft Excel Object. Отобразится диаграмма объектной модели Excel. Щелкните на стрелке в Worksheets (Worksheet).

Методы объекта Application: ActiveWorkBook возвращает активную (текущую) книгу, ActiveSheet - активный лист в активной рабочей книге, ActiveCell - активную ячейку на активном листе в активной рабочей книги, ThisWorkbook - рабочую книгу с выполняемой процедурой, Selection - текущее выделение. Для применения встроенных функций нужно указывать объект Application и аргументы функций, которые также являются объектами.

Объекты Workbooks и Worksheets - коллекции с методами Add (добавить) и Count (счет). Объект Workbook имеет методы: Activate - делает рабочую книгу активной, Close - закрывает, Save - сохраняет книгу. Объект Worksheet имеет свойство Name (имя), Cells (ячейки). Объектом Range выступает: ячейка, диапазон, строка, столбец. Свойства Range: Address (адрес) - текущее положение, Count (счет) - число ячеек, Formula (формула) - формулу, по которой найдено значение, Resize (изменение размеров), Value (значение). Оператор With задает много свойств или методов одного объекта: Оператор For применяют для выполнения набора операторов для нескольких объектов:

Встроенные объекты Range, Cells, Sheet, WorkSheet, DialogSheet. Диалог может быть видимым или невидимым на экране. Текущее состояние диалога узнают с помощью свойства Visible. Нужно задать имя объекта и значение свойства: Объект. Свойство=Выражение. Многие свойства являются неизменяемыми и доступны только для чтения. Для диапазона из одной ячейки свойства Row (строка) и Column (столбец) неизменяемы. Для чтения свойства нужно указать имя переменной, объект и свойство: Переменная= Объект. Свойство. Для вызова объекта нужно указать имя объекта и метода: Объект. Метод.

Подпрограмма ПримерВвода:

Dim iResult As Integer

iResult = InputBox (“Введите число”)

MsgBox iResult

ActiveCell. Value = iResult

<F5>, введите число и <Enter>. Окно сообщения покажет число. Щелкните ОК. Перейдите в рабочую книгу. В ячейке находится число.

Синтаксис метода InputBox:

Application. InputBox (приглашение [, заголовок] [, по_умолчанию] [, слева] [, справа] [, файл_справки] [, содержание] [, тип])

Если тип не задан, InputBox возвращает текст. Аргументы слева и справа играют роль xпоз и yпоз, а тип возвращаемого значения:

Введите в A1 текст Накладная, в A3 - Стоимость груза, в A4 - Стоимость отправки, в A6 - Всего, в B6 формулу =B3+B4 (сумма). Нажмите <Alt+F11>, в окне Project Explorer щелкните мышью на Этакнига. Выберите в меню InsertМodule (ВставкаМодуль). Введите код

Sub Отправка ()

Dim iResponse As Integer

iResponse = MsgBox (“Нужно этот груз отправить?", bYesNo)

If iResponse = vbYes Then

Range (“B4”). Value = 10

Else

Range (“B4”). Value = 0

End If

End Sub

Вставьте кнопку. Откроется окно Назначить макрос объекту. В Имя макроса выберите Отправка и ОК. Название кнопки - Сумма. Введите в B3 число 120. Щелкните на Сумма. Щелкните Да. В B4 появится число 10. Щелкните Нет. В B4 появится 0.

Создайте процедуру МетодВвода

Dim iResult As Integer

iResult = Application. InputBox (“Введите число”,Type: =1)

MsgBox iResult

ActiveCell. Value = iResult

Нажмите <F5>. Отобразится окно ввода. Введите букву А и <Enter>. Теперь не будет сообщения об ошибке, а появится окно с сообщением о причине возникшей проблемы Неверное число. Введите число 7 и нажмите <Enter>. Отобразится окно сообщения с числом 7.

Условные операторы проверяют логическое условие и в зависимости от результата проверки выполняют те или иные операторы. В синтаксисе

If условие_1 Then [операторы_1] [ElseIf условие_2 Then [операторы_2] End If

Условие_1 - необходимая часть оператора.

Вложение операторов - структура, когда один оператор находится внутри другого. Введите в А1 текст Отдел, в A2 - Товар в продаже?, в A3 - Стаж работы в фирме, в A5 - Комиссионные. Введите код процедуры:

Sub Комиссионные ()

Dim sngCommission As Single

If Range (“B2”) = ”Нет” Then

sngCommission = 0.02

If Range (“B3”). Value >= 5 And Range (“B3”). Value < 10 Then

sngCommission = sngCommission +0.01

ElseIf Range (“B3”). Value >= 10 Then

sngCommission = sngCommission +0.02

End If

Else

sngCommission = 0.01

End If

Range (“B5”). Value = sngCommission

End Sub

Для повторных вычислений используется оператор

For счетчик = начало To конец [Step шаг] [операторы]

[Exit For] [операторы] Next [счетчик]

Число повторений оператора определяют параметры начало и конец. Если шаг опущен, значение счетчика увеличивается на единицу. Необязательный оператор Exit For служит для экстренного прекращения цикла и вкладывается в оператор If или Select Case.

Для открытия встроенных окон Excel применяется оператор

Application. Dialogs (xlDialogКонстанта). Show

Чтобы задать значение xlDialogКонстанта, откройте Object Browser и в библиотеке Excel выберите класс XLBuiltInDialog. Константа - название окна (вводится на английском языке, но отображается на русском).

Щелчок на кнопке View Code и щелчок на View Object редактора. Перейдите в окно свойств. Убедитесь, выбрано Alphabetic (Сортировка по алфавиту). В левой части окна найдите Caption. Справа установка свойства. Напечатайте текст новой надписи. Чтобы добавить или удалить панель инструментов редактора VB щелкните правой кнопкой мыши в любом месте строки меню. Появится меню панелей. Из списка выберите тип панели инструментов. Панель Debug (Отладка) нужна для тестирования программы и исправления ошибок. Панель Edit (Правка) нужна при работе с кодом. Панель Standard (Стандартная панель) является главной. Панель UserForm (Экранная форма) нужна для изменения элементов управления.

Окно редактирования кода имеет список элементов управления, а в списке процедур даны события, связываемые с этим элементом.

Значения свойства BorderStyle:

Программа на Visual Basic - набор форм и модулей, компилируемых в файл двоичного кода с расширением. exe,. dll. или. ocx. Проект состоит из форм, модулей и элементов управления. Данные о проекте хранятся в файле с расширением. vbp. Модуль - файл, содержащий код, не связанный с формой и элементом управления. Модули содержат инструкции для объявления переменных, определения констант, задания функций и подпрограмм. Файл модуля имеет расширение. bas, файл формы - . frm.

Объекты имеют свойства, определяющие вид и поведение, методы, определяющие выполняемые задачи, и события. Свойства Visible и Enabled принимают значения True или False и определяют, будет ли объект виден пользователю и сможет ли он взаимодействовать с объектом. Метод SetFocus передает фокус вызываемому объекту. Событие Click - щелчок на кнопке.

Процедура - набор операторов языка Visual Basic в виде кода:

[Public|Private] [Static] Sub|Function|Property Имя [ (список аргументов)] [As type] [операторы] Имя_функции = Возвращаемое_значение Sub Sub|Function|Property

Можно настроить редактор так, чтобы переменные объявлялись только явно: ToolsOptions, на вкладке Editor щелкните Require Variable Declaration.

Объявление переменных суффиксами:

Оператор Select Case позволяет выбирать одну из нескольких команд в зависимости от значения переменной:

Select Case ПроверяемоеВыражение

Case Значение1 Группа_операторов_1

Case Значение2 Группа_операторов_2

End Select

Private Sub cmdGrader_Click ()

Dim CorrectAnswers%

Dim strGrade As String

`Информация о числе правильных ответов берется из поля

CorrectAnswers% = CInt (txtNumberRight. Text)

Select Case CorrectAnswers%

Case 10 strGrade = “A”

Case 9 strGrade = “A-”

Case 8 strGrade = “B”

Case 7 strGrade = “B-”

Case 6 strGrade = “C”

Case 5 strGrade = “C-”

Case 4 strGrade = “D”

Case 3 strGrade = “D-”

Case Else strGrade = “F”

End Select lblGrade. Caption = strGrade

End Sub

Префиксы для имен переменных:

Установки для аргумента кнопки функции MsgBox:

Режим приложения: нужно закрыть окно сообщения перед продолжением работы в текущем приложении. Системный режим: приложения недоступны, пока не будет закрыто окно сообщения. Группа vbMsgBoxHelpButton имеет значение 16384 и отображает кнопку Справка. Аргумент заголовок задает текст в строке заголовка окна сообщения (если он опущен, то отображается Microsoft Excel). Аргументы файл_справки и содержание используются для создания справочной системы.

Макрос - последовательность команд и действий, которую может выполнить Excel. При записи макроса действия преобразуются в код. Чтобы видеть код, СервисМакросМакросы. Выделите название и щелкните Изменить. Первая строка кода - начальная точка и имя макроса. Строки с кавычкой - комментарии. Рабочая часть макроса начинается с With. Можно добавлять, удалять и изменять строчки кода.

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