Исследование локальной инфляции по цене продаж и поставки корзины потребителя

cbo

Полоса прокрутки (Scrollbar)

hsb и vsb

Рамка (Group Box)

grp или fra

Рисунок (Image)

img

Список (List Box)

lst

Счетчик (Spinner)

spn

Флажок (Check Box)

chk

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

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



Константа	Значение	Нажатая кнопка
vbOK	1	ОК
vbCancel	2	Отмена
vbAbort	3	Стоп
vbRetry	4	Повтор
vbIgnore	5	Пропустить
vbYes	6	Да
vbNo	7	Нет

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

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поз, а тип возвращаемого значения:



Значение аргумента	Возвращаемое значение
0	Формула
1	Число
2	Текст (строка)
4	Логическое значение
8	Ссылка на ячейку
16	Значение ошибки
64	Массив значений

модель программа торговый решение

Введите в 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

Значение	Описание
0	Без рамки, без заголовка и без возможности перемещения окна
1	Не допускает изменения размеров окна
2	Допускает изменение размеров окна перетаскиванием сторон

Программа на 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.

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

Тип переменной	Суффикс	Тип переменной	Суффикс
Integer	%	Double	#
Long	&	Currency	@
Single	!	String	$

Оператор 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

Тип данных	Размер
Byte (байт)	1 байт
Boolean (булевский)	2 байта
Integer (целое)	2 байта
Long (длинное целое)	4 байта
Single (одинарной точности)	4 байта
Double (двойной точности)	8 байт
Currency (денежный)	8 байт
Decimal (десятичный)	14 байт
Date (дата)	8 байт
Object (объект)	4, байт
String (строковый переменной длины)	10 байт+1 байт на символ
String (строковый фиксированной длины)	Длина строки
Variant (универсальный числовой)	16 байт
Variant (универсальный текстовый)	22 байта+1 байт на символ

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

Тип данных	Короткий	Длинный
Array (массив)	a	ary
Boolean (булевский)	f	bin
Byte (байт)	b	bit
Currency (денежный)	c	cur
Data/Time (дата / время)	dt	dtm dat
Double (двойной)	d	dbl
Integer (целое)	i	int
Long (длинное целое)	l	lng
Object (объект)	o	obj
Single (одинарной точности)		sng
String (строковый)	s	str
Variant (унивесальный)	v	var

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

Группа	Константа	Значение	Описание кнопок
Группа 1	vbOKOnly	0	ОК
	vbOKCancel	1	ОК и Отмена
	vbAbortRetryIgnore	2	Стоп, Повтор и Пропустить
	vbYesNoCancel	3	Да, Нет и Отмена
	vbYesNo	4	Да и Нет
	vbRetryCancel	5	Повтор и Отмена
Группа 2	vbCritical	16	Запрещающая
	vbQuestion	32	Предупреждающая
	vbExclamation	48	Предупреждающая
	vbInformation	64	Информационная
Группа 3	vbDefaultButton1	0	Первая кнопка по умолчанию
	vbDefaultButton2	256	Вторая кнопка по умолчанию
	vbDefaultButton3	512	Третья кнопка по умолчанию
	vbDefaultButton4	768	4-ая кнопка по умолчанию
Группа 4	vbApplicationModal	0	Режим приложения
	vbSystemModal	4096	Системный режим

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

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

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

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