Работа с объектной моделью excel c. Объектная модель программы MS EXCEL. Простые и сложные переменные

Faq 22.03.2019

Faq

Volkov Commander (Командир Волков или VC) – это знаменитый двухпанельный файловый менеджер для MS-DOS и ранних версий Microsoft Windows. С его помощью можно производить множество действий над файлами и каталогами, просматривать и редактировать текстовые документы, а также запускать программы и выполнять команды операционной системы в консольном режиме.

Первая версия приложения появилась еще в 1991 году. Она была создана Всеволодом Волковым, киевским программистом, который решил разработать быстрый аналог популярного в те времена файлового менеджера Norton Commander. Программа получилась удачной, и в этот же год она стала достаточно известной, получив широкое распространение. Высокая скорость ее работы связана с тем, что она написана полностью на ассемблере (языке программирования, который создает самый быстрый исполняемый код).

Возможности

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

Вот что умеет делать это программа:

работать в MS-DOS, любых других DOS-системах, а также в Windows (95/98/Me/NT/2000/XP) и даже в ее более новых версиях (32-битных);
использовать 5 функций обработки файлов: встроенное/внешнее редактирование, внешний/внутренний просмотр и запуск ассоциированных приложений;
удалять резидентные программы (Alt+F5) с помощью специально разработанной системы управления;
выделять, перемещать, копировать файлы и папки со всем содержимым;
запускать встроенный шестнадцатеричный редактор;
разбивать и склеивать файлы (к примеру, для сохранения на дискете или компакт-диске).

Плюсы и минусы

Главным достоинством Командира Волкова является его компактность, быстрота работы и нетребовательность к ресурсам компьютера, благодаря чему он используется в некоторых сборках DOS-систем, например FreeDOS. Давайте посмотрим, что пользователям в нем нравится больше всего, а также проанализируем его недостатки.

неупакованный размер приложения всего 64 Кб;
возможность открывать и редактировать файлы любого размера, пока хватает оперативной памяти (до 640 Кб, что в десять раз больше по сравнению с Norton Commander);
есть альфа-версии релизов (4.99), в которые встроен текстовый редактор для ускорения редактирования файлов;
высокая скорость работы даже без включенного кеширования жесткого диска.

возможностей не очень много по сравнению с современными менеджерами файлов для Windows;
последняя версия программы была выпущена в 2000 году;
не работает на 64-битной ОС Windows.

Конечно, VC не может похвастаться тем же набором функций, что и, например, Total Commander, поддерживающий все последние версии Windows. Однако со своими задачами он справляется хорошо, что позволяет ему оставаться по-прежнему популярным, а иногда и незаменимым, средством работы с элементами файловой системы.

Как пользоваться

Запуск программы осуществляется через командную строку (CMD), для этого надо напечатать в ней vc и нажать Enter, после чего появится графическая оболочка файлового менеджера, состоящая из двух панелей. На них показывается содержимое жесткого диска или другого накопителя в виде списка каталогов и файлов.

Нажатие функциональной клавиши F1 открывает справку, где можно найти ответы на многие вопросы. За остальными клавишами, начиная с F2 и заканчивая F10, закреплены особые функции, название которых видно внизу экрана.

Скачать

На нашем сайте можно скачать файловый менеджер Volkov Commander (Командир Волков), который является одним из лучших в своем классе.

Описание экрана

После запуска VC на экране появляются два прямоугольных окна, ограниченных двойной рамкой (рис.5.4.1.) Эти окна обычно называют панелями. Ниже панелей размещается строка ввода команд с приглашением ОС, а в последней строке экрана - справка о назначении функциональных клавиш.

В каждой панели VC может изображаться:

дерево каталогов на диске;

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

содержимое файла, выделенного на другой панели.

Оглавление каталога. Если в панели VC выводится оглавление каталога, то в верхней части панели выводится имя этого каталога. Имя каталога текущей панели подсвечено. Текущей панелью называется панель, в которой находится курсор панели - инверсная полоса на черно-белых мониторах или цветная полоса на цветных мониторах шириной в одну строку экрана. Для перевода курсора в другую панель - не текущую следует нажать клавишу Tab .

В первых строках панели выводятся имена каталогов на диске. Имена каталогов изображаются прописными буквами, справа от имени каталога изображается _{. Самую верхнюю строку занимает ссылка на родительский каталог. Для корневого каталога ссылки на родительский каталог нет. В поле имени для родительского каталога изображается двоеточие – символ "..", а справа от него .}

Имена файлов выводятся строчными буквами. Для файлов с атрибутами "спрятанный" или "системный" имя файла начинается с прописной буквы, а между именем файла и его расширением выводится символ"▒" или "А", в зависимости от используемой кодовой таблицы.

Каталог может выводиться в полной или краткой форме. При полной форме выводятся имя файла, его размер в байтах, дата и время создания. При краткой форме выводится только имя файла.

E:\BASIC		E:\ 1:30a
Name	Size	Date	Time	Name	Name	Name
..	UP-Dir	1-01-80	12:11a	ARC	bmbio com	ztknews com
CONTR	SUB-DIR	1-01-80	12:40a	BASIC	lbmdos com	aidstes1 exe
DJAKONOV	SUB-DIR	1-01-80	12:02a	CALC	chkdsk com	aidstest exe
TORM	SUB-DIR	1-01-80	12:04a	DGF	command com	pct exe
UCH	SUB-DIR	1-01-80	12:51a	DIGGER	diskcomp com	sf exe
algtrans bas		1-11-89	1:01a	DOS330	diskcopy com	nc mnu
difurav bas		1-11-89	1:11a	FOXBASE	dm8 com	treeinfo ncd
expert bas		1-01-80	3:31a	FOXRUS	dosedit com	ansi sys
expert bat		1-01-80	12:04a	KOROVA	fdisk com	config sys
expert1 bas		1-01-80	3:24a	LEX	graftab1 com	config sys
expert4 bat		1-01-80	1:22a	NU	m86 com	config sys
expert5 bat		1-01-80	1:08a	SIMP	park1 com
qwbasic exe		24-07-87	12:00a	TURBO_B	shrift com
integral bas		1-11-89	12:53a	autoexec bat	sys com
UP-Dir 1-01-80 12:11a	ARC SUB-DIR 1-01-80 12:02a

В нижней части панели выводится строка мини-статуса. Она отделена одной горизонтальной чертой. В строке мини-статуса отображается характеристика выделенного файла или каталога. Файл или каталог считается выделенным, если на него установлен курсор панели. Перемещение курсора внутри панели осуществляется клавишами управления перемещением курсора ¬, ®, , ¯, а также с помощью клавиш Home - установка курсора в начало каталога и End - установка курсора в конец каталога.

Чтобы быстро выделить файл в текущем каталоге, необходимо нажать клавишу Alt и, не отпуская ее, набрать в командной строке первые буквы имени файла. Volkov Commander выделит нужный файл, как только будет введено достаточно символов имени файла для его распознания.

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

Быстрый поиск файла на диске. Для быстрого поиска файла во всех каталогах на диске необходимо нажать . Открывается окно поиска файлов. В строке ввода необходимо набрать имя файла, который требуется найти и нажать клавишу Enter. При указании имени файла можно использовать маску. После нажатия клавиши Enter состояние окна меняется. В рабочую часть окна выводятся имена найденных файлов, а в нижней части окна поиска выводится меню команд: Stop - остановка поиска, New Search - новый поиск, Go to - переход в каталог, Quit - выход. При поиске по маске на экран выводятся имена всех файлов, удовлетворяющих условию поиска. После окончания поиска выделите нужный файл и введите команду Go to . Программа переходит в тот каталог, где находится выделенный файл. Для продолжения поиска используется команда New Search .

Управление панелями

Панели Volcov Commander находятся на экране постоянно. При выполнении команд они временно убираются, а затем автоматически восстанавливаются, так что результаты выполнения команды, выведенные на экран, оказываются закрытыми панелями. Для просмотра результатов необходимо убрать одну или обе панели. Управление панелями осуществляется с помощью комбинаций клавиш:

Ctrl - 0 - убрать обе панели с экрана или вывести их на экран;

Ctrl - P - убрать одну из панелей (не текущую) с экрана или вывести ее на экран;

Ctrl - U - поменять панели местами;

Ctrl – F1 - убрать левую панель с экрана или вывести ее на экран;

Ctrl – F2 - тоже для правой панели.

Переход на другой диск

Для вывода в панель оглавления другого диска необходимо нажать Alt – F1 для левой панели и Alt – F2 для правой панели. После нажатия клавиш в панели появляется список доступных дисков. Затем нужно выбрать имя нужного диска клавишами¬, ® и нажать Enter . Для отказа от перехода на другой диск нажмите Esc .

В выделенное окно можно вывести номер другого диска, например D:. При отсутствии неисправностей после нажатия клавиши Enter в соответствующую панель выводится каталог выбранного диска.

Запуск программ и команд DOC

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

Для корректировки содержимого командной строки используются клавиши: ®, ¬, Home, End - перемещение по командной строке (клавиши® и ¬ не действуют, если в текущей панели выведено оглавление диска в краткой форме).

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

VC позволяет выводить в командную строку ранее введенные команды:

Ctrl – E - выводит предыдущую введенную команду;

Ctrl – X - выводит команду, которая была выполнена после той, что находится в командной строке.

Alt – F8 – выводит список всех команд (хранится информация о 10...15 последних командах). В этом списке можно выделить и выполнить нужную команду.

Команду, выведенную в командную строку, можно отредактировать и затем исполнить.

Для запуска исполняемых и командных файлов (файлов, имеющих расширение.ЕХЕ, .СОМ или.ВАТ) необходимо выделить нужный файл и нажать Enter .

Если при запуске исполняемых файлов требуется указать другие опции, то следует поступить следующим образом:

снести выделенный файл в командную строку командой Ctrl – Enter ;

дополнить команду необходимой опцией и нажать Enter .

Использование мыши

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

Выделение файлов

Все операции в Volcov Commander производятся над выделенными файлами или каталогами. Для выделения одного файла или каталога достаточно установить на него курсор. VC позволяет выбрать группу файлов, над которой можно выполнить некоторые действия: копирование, перемещение в другой каталог, удаление и т.д. Выбранные файлы выделяются желтым цветом на цветном дисплее и повышенной яркостью на монохромном дисплее.

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

По умолчанию предлагается маска *.*. Можно указать свою маску, вводя соответствующие символы с клавиатуры. В маске можно использовать символы "*" и "?". Их смысл тот же, что и в командах MS-DOS.

Чтобы отменить выбор по маске, нажмите "-" на дополнительном поле и задайте маску файлов, выбор которых хотите отменить.

Из всех офисных программ для создания пользовательских приложений чаще всего используется Excel. Этому есть два объяснения. Во-первых, данный пакет предназначен для широкого круга прикладных задач по обработке данных. Во-вторых, фактически именно с него началась история современного VBA. Всего несколько строчек кода, включенных в Excel, смогут создать программу для выполнения серьезных вычислений и оригинального анализа с использованием графики и выдачей отчетов. Однако для разработки собственных приложений необходимы следующие условия:

§ нужно научиться работать с Excel в его традиционном варианте, что позволит с помощью минимального программного кода использовать максимум встроенных возможностей пакета. Чем лучше вы знаете, сам продукт, тем проще создавать приложения;

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

§ следует изучить среду разработки VBA, где вы можете писать код программ, создавать пользовательские формы и отлаживать свое приложение.

Excel состоит из более чем 100 объектов - от ячеек и диаграмм до рабочих книг и электронных таблиц. Каждый объект имеет набор свойств, управляющих его внешним видом и поведением, а также содержит методы, обеспечивающие определенные действия с помощью этого объекта. Некоторые объекты имеют события.

Например, объект Workbook представляет собой конкретный файл Excel. Он имеет свойства Name (имя файла), Path (имя каталога) и Author (имя автора файла). Метод Save сохраняет файл. Вот как выглядит использование этих методов:

Существует два способа ссылок на объекты: можно сослаться непосредственно на имя одного из объектов или на индекс в коллекции. Согласно самому простому определению коллекция - это группа похожих объектов. Все объекты Excel разделяются на два класса: единичные объекты и объекты в коллекции. Для первых ссылка осуществляется непосредственно по их имени, для вторых - по индексу в данной группе. Коллекции предоставляют возможность иерархической организации объектов. Например, коллекция Workbooks содержит все объекты Workbook. Чтобы сослаться на конкретную рабочую книгу, можно указать имя:

Workbooks("Book1.xls")

или номер
Workbooks(1)

Четыре ключевых объекта

Ключевыми объектами в Excel являются Application, Workbook, Worksheet и Range, которые образуют иерархию:

Объект Application представляет собой саму программу Excel. Все приложения Excel/VBA реализуются в Excel, поэтому можно рассматривать этот объект в качестве среды, в которой они осуществляются. Любые установки свойств или вызовы методов, совершенные с объектом Application, воздействуют на весь Excel и соответственно на все приложения VBA, выполняемые в его среде. Например, используя объект Application, можно сделать невидимой строку состояния Excel и изменить его заголовок:

Application.DisplayStatusBar = False
Application.Caption = "Пользовательское приложение"

Объект Workbook является файлом рабочей книги Excel. В терминах разработки приложений его можно рассматривать в качестве механизма доставки или контейнера для любого приложения VBA, созданного при помощи Excel. Любые установки свойств или вызовы методов, совершенные с объектом Workbook, воздействуют на данное приложение. Например, для установки защиты и сохранения рабочей книги можно использовать такой код:

With Application.Workbooks(1)

Save
End With

Объект Worksheet, содержащийся в Workbook, служит нескольким целям в приложении Excel/VBA. Он содержит ячейки, куда пользователь может включать формулы для выполнения вычислений. При этом свойства и методы объекта Worksheet обрабатывают электронную таблицу как единое целое. Например, следующий код изменяет имя электронной таблицы(рабочий лист) и делает ее невидимой:

With Application.Workbooks(1).Worksheets(1)

Name = "Работа с ценными бумагами"

Visible = False

Объект Range представляет собой одну или несколько ячеек в электронной таблице. Он используется в основном для хранения и вывода фрагментов данных: чисел, строк или формул. Ячейки электронной таблицы, которые представлены в объекте Range, обладают широкими возможностями. Например, пользователь способен получить доступ из ячейки к более чем 400 встроенным функциям Excel и вызвать функции VBA. Можно также установить связи с другими ячейками в той же самой электронной таблице, других электронных таблицах или других рабочих книгах. Гибкость и мощность объекта Range позволяют совершенствовать встроенный вычислительный блок Excel и создавать более сложные приложения для анализа данных.

Объект Application

Объект Application –это главный (корневой) объект в иерархии объектов Excel, представляющий само приложение Excel.Он имеет большое число свойств и методов, позволяющих установить общие параметры приложения Excel.Перечислим основные его свойства и методы.

Основные свойства объекта Application

1 ActiveWorkbook, ActiveSheet, ActiveCell-возвращают активную,соответственно,рабочую книгу,рабочий лист и ячейку.В следующем примере в активной ячейке вводиться срока “Отчет”:

ActiveCell.Value=”Отчет”

2 Caption-возвращает или устанавливает текст из заголовка главного окна Excel.В следующем примере в качестве заголовка окна приложения устанавливается текст “Отчет за май”

Application.Caption=”Отчет за май”

3.DisplayFormulaBar-логическое свойство, регулирующее отображение строки формул.Например в следующем коде строка формул не отображается: Application.DisplayFormulaBar

4 DisplayStatusbar- логическое свойство, регулирующее отображение строки состояния

5 Path-возвращает путь к файлу Excel.exe

6 StatusBar- возвращает или устанавливает текст, выводимый в строке состояния

7 Version –возвращает номер текущей версии Excel.Используется для проверки применения корректной версии.Например:

If Application.Varsion <> “9.0” Then Exit Sub

Объект Workbook и семейство Workbooks

В иерархии Excel этот объект идет сразу после объекта Application и представляет файл рабочей книги.

Основные свойства объекта Workbook и семейства Workbooks

1 ActiveSheet – возвращает активный лист книги

2 Name –возвращает или устанавливает имя книги

З Path-возвращает полное имя папки, в которой находиться данная книга

4 Saved-логическое свойство, которое устанавливает, не производились ли изменения в книге со времени его последнего сохранения

Основные методы объекта Workbook и семейства Workbooks

1 Activate – активизирует рабочую книгу так, что ее первый рабочий лист становится активным.Например:

Workbooks(“Отдел кадров”).Activate

2 Protect- защищает рабочую книгу от внесения в нее изменений

3 Close –закрывает книгу

4 Open- открывает существующую книгу.Синтакис:

Open(FileName), где FileName –имя открываемого файла

Например:

Open(“Storage.xls”)

Основными событиями этого объекта являются Open (происходит при открытии книги).Например, напишем процедуру обработки события Open объекта Workbook при ее открытии.При этом мы выведем некоторое сообщение:

Sub Workbook_Open()

MsgBox(“Привет”)

Объект Worksheet и семейство Worksheets

В иерархии Excel объект WorkSheet идет сразу после объекта Workbook и представляет рабочий лист

Основные свойства объекта Worksheet и семейства Worksheets

1 Name- возвращает или устанавливает имя рабочего листа

2 Cells –Возвращает семейство всех ячеек рабочего листа или объект Range-конкретную ячейку, если в скобках указаны номер строки и столбца, на пересечении которых ячейка расположенна.Например:

Worksheets(1).Cells.Interior.ColorIndex=3 –окрашивает все ячейки первого рабочего листа в красный цвет.

Worksheets(1).Cells(1,2).Value=”Привет” –выводит строку “Привет” в ячейку,расположенную в первой строке во втором столбце

3 Columns, Rows- возвращают семейство всех столбцов и строк рабочего листа или конкретный столбец, если в скобках указан индекс.Например

WorkSheets(1).Columns(2)- возвращает второй столбец

Основные методы объекта Worksheet и семейства Worksheets

1 Activate- активизирует указанный рабочий лист.Например

Worksheets(1).Activate

2 Delete –удаляет указанный рабочий лист. Например

Worksheets(1).Delete

3 Protect - защищает рабочий лист от внесения в нее изменений

Основными событиями этого объекта являются Activate (происходит при активизации рабочего листа) и Deactivate (происходит при деактивизации рабочего листа).Например, напишем процедуру обработки события Activate объекта Worksheet при ее активизации.При этом мы выведем некоторое сообщение:

Sub Worksheet_Activate()

MsgBox(“Привет”)

Объект Range

В иерархии Excel объект Range (диапазон) , один из ключевых объектов VBA, следует сразу после объекта Worksheet. Объект Range не является элементом никакого семейства объектов.

Если в диапазоне указывается только имена столбцов и строк, то объект Range задает диапазон, состоящий из указанных столбцов и строк.Например, Range(“A:C”) задает диапазон состоящий из столбцов A,B,C. Range(“A:A”) задает диапазон состоящий из столбца А, Range(“2:2”) задает диапазон состоящий из второй строки.

Для того чтобы сослаться на конкретный диапазон ячеек достаточно указать адрес его верхней левой ячейки и адрес его нижней правой.Например, Range(“A1:B3”) задает диапазон состоящий из ячеек A1,A2,A3,B1,B2,B3.

Ячейка-это частный случай диапазона, который состоит из единственной ячейки.Например Range(“A1”) задает диапазон состоящий из ячейки A1.

Основные свойства объекта Range

1 Value- возвращает или устанавливает значение в ячейках диапазона.Например

x=Range(“C1”).Value - Некоторой переменной х присваивается значение из ячейки C1

2 Name- возвращает или устанавливает имя диапазана

3 Columns, Rows- возвращают все столбцы или строки в диапазоне.Например

Worksheets(1).Range("A1:B3").Columns.Value = 2 – во всех столбцах диапазона

A1:B3 выводится число 3

4 Interior- возвращает объект Interior, представляющий собой фон ячейки.Среди свойств объекта Interior

отметим только одно –ColorIndex-цвет фона, которое задается целыми числами от 1 до 56 .Например

Range(“A1”).Interior.ColorIndex=3 - Фон ячейки A1 заполняется красным цветом

5 Font –возвращает объект Font , представляющий собой шрифт.Объект Font имеет свойства Name(строка, указывающая имя шрифта) и т.д.

6 HorizontalAlignment- Горизонтальное выравнивание в ячейках диапазона.Допустимы значения xlCenter (Выравнивание по центру),xlRight(Выравнивание по правому краю) и т.д.

Основные методы объекта Range

1 ClearFormats и ClearContents- очищают, соотве-но, форматы и содержимое в ячейках диапазона.Например

Range(“A1:D2”).ClearContents

2 Select- выделение диапазона

©2015-2019 сайт
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2016-02-16

Sub MainProcedure()

Call GetProblemSize

Sub GetProblemSize()

ReDim Visited(Ncities)

ReDim Route(Ncities + 1)

Sub Initialize()

Dim I As Integer

Route(Ncities + 1) = 1

Visited(1) = True

For I = 2 To Ncities

Visited(I) = False

Синтаксис процедуры пользователя:

Sub ИмяПроцедуры (Параметры)

<Тело процедуры>

Элементы списка параметров имеют следующий вид: ИмяЭлемента As ТипДанных

7. Типы подпрограмм и их определения: определение и виды процедур. Примеры процедур разных видов. Логические фрагменты кода, которые выполняют определенную задачу, называются подпрограммами. В вба подпрограммами называют макросы, процедуры и даже функции. Функция – это подпрограмма, которая действует в пределах своего блока и возвращает только одно значение. Функции: 1)ф. пользователя 2) ф. модулей классов. Функция имеет следующий синтаксис:

Function Имя функции(список параметров) As ТипДанных

<тело функции>

Тип данных для функции предназначен для определения типа и возвращения функцией зн-я

Чтобы создать функцию пользователя, надо: 1. если нет модуля Insert/Module 2. Insert/Procedure 3. в открывшемся окне выбрать переключатель “Function”, в поле Name ввести имя функции («Доход») 4. в этом же окне установить переключатель «общие», чтобы был тип – Public 5. Ок. Откроется окно редактора. Ввести параметры функции и код.

Function Doxod (procent as double, platezh as variant, god as variant) as double

Dim i, j, n as integer, s as double

n=platezh.rows.count

s=s+platezh(i)/(1+procent)^((god(i)-god(1))/365)

Не закрывая окна View/Object Browser. Откроется окно просмотра объектов. В левом верхнем углу выбрать VBAProject и в окне Классы отобрать элементы текущего проекта. Выбрать модуль, в котором ваша функция. Затем в окне Компоненты отобрать все элементы, в том числе и функцию Доход. Щелкнуть правой кнопкой мыши на Доход и выбрать значение Свойства. Откроется окно «Параметры компонента», в нем ввести описание(назначение) функции. Закрыть окно и после этого ваша функция попадет в библиотеку стандартных функций Excel.

8. Объявление переменных. Объявление переменных в модулях и процедурах. Область действия переменных и процедур. Пример передачи в процедуру аргументов.

Dim I As Integer, j As Integer, k As Integer

Чтобы не забывать объявить переменные Tools/Options/ вкл Editor, где установить флажок Require Variable Declaration.

Option Explicit – общая область. Этот оператор будет контролировать описание переменных. Существует очень важный тип переменных, которого в VB не было. Это переменные объекта. Dim A As Object. Частный случай: Dim A As Range. Например, мы хотим обратиться к диапазону ячеек в течение процедуры. D

Dim SRange As Range

Set SRange=ActiveWorkBook.WorkSheets(“Продажи”).

Range(“SalesRange”)

SRange.Font.Size=14

Ключевое слово Set используется только при присвоении значения объектной переменной.

Для переменных определяется область видимости. Переменные могут быть: глобальные (для объявления используется Public) и локальные (используется оператор Private, Dim). Переменная типа Public – переменная уровня модуля, Dim – уровня процедуры. Переменная, определяемая в модуле оператором Dim, может быть переопределена этим же оператором внутри процедуры, принадлежащей этому модулю.

Передача в процедуру аргументов. Можно передавать аргументы (имя, фамилию) из процедуры Main в процедуру DisplayName. Тогда процедура Main называется главной, а DisplayName – вызываемой. В этом случае переменная FirstName и LastName не объявляются переменными уровня модуля, а объявляются как локальные переменные процедуры Main.

Sub Main ()

Dim FirstName As String, LastName As String, I As Integer

FirstName=Range(“Names”).cells(i, 1)

LastName= Range(“Names”).cells(i, 2)

Call DisplayName

Sub DisplayName

Dim FulllName As String

FulllName= FirstName+ LastName

MsgBox “Полное имя сотрудника”_&_ FulllName

9. Встроенное диалоговое окно сообщения. Пример функциии оператора MsgBox . Существует несколько типов диалоговых окон, которые необходимы для поддержания в программе интерактивного режима работы конечного пользователя (вывод сообщений пользователю, прием и интерпритация указаний, введенных пользователем и т.д.). Окно сообщений обозначается MessageBox (MsgBox) и окно ввода InputBox. Их можно рассматривать как фукнции и как оператор. Окно MsgBox- окно сообщения. Оно не требует проектирования и вызывается из программы командой MsgBoх и создается с помощью функции MsgBox(). Она имеет следующий синтаксис: MsgBox (Promt [, buttons] [,title,helpFile], ), где promt - обязательный параметр, эта строка в окне сообщения. Ее максимальная длина 1024 символа. Параметр Buttons не обязателен, его значение - целое число, равное сумме значений, определяющих наличие кнопок в окне сообщения. По умолчанию равно 0. Параметр title- заголовок окна сообщений. Help file – необязательный, ссылка на файл в справочной системе и на конкретное место в этом файле. пример

В зависимости от выбора кнопок окна MsgBox диалоговое окно возвращает одно из значений.

10. Встроенное диалоговое окно ввода. Пример функцииInputBox. Существует несколько типов диалоговых окон, которые необходимы для поддержания в программе интерактивного режима работы конечного пользователя (вывод сообщений пользователю, прием и интерпритация указаний, введенных пользователем и т.д.). Окно ввода информации InputBox требуется только как функция. Часто необходимо осуществить не только набор действия, но и ввести определенную информацию, которая будет восприниматься программой. Для этого используется функция InputBox. Синтаксис: InputBox (ptomt, , , , , context])

Promt – обязательная строка, которая выдается в окне сообщения, 1024 символа Title – необязательный, заголовок окна сообщения Default - строка в текстовом поле, если его нет, то строка пуста Xpos,Ypos- позиция левого верхнего угла ввода на экран Helpfile- ссылка на файл справочной информации. В этом окне всегда стоят по умолчанию две кнопки: ОК и Саncel. Пример:

InputBox("Введите цену для сравнения", "окно для ввода критерия")

13. Основные свойства и методы объекта Range. Примерыпрограммных кодов . Объект Range одновременно является и объектом и коллекцией. Рассмотрим наиболее важные свойства и методы объекта Range: 1. Свойство Address – возвращает адрес диапазона в виде строки. «В2:Р4» А=Range(“Sales”).Address “В2:Р4”

Range (“A1:A10”).Cells(3) ‘A3

Range (“A1:D10”).Cells(3, 4) ‘D3

Range (“A1”). Offset(3, 4) – E4

4. Font – выступает как в роли объекта, так и в роли свойства. В данный момент выступает как свойство, а как объект имеет свойства: Size, Name, Bold, Italic.

5. Horizontal Alignment – горизонтальное выравнивание ячеек в диапазоне. Свойства: xlCenter – по центру; xlLigh – по правому краю; xlLeft – по левому краю.

7. Name – возвращает имя диапазона. Это свойство позволяет задать имя диапазона в программном коде.

Range (“A1:D10”).Name=”Sales”

8. Value – возвращает значение в ячейку диапазона(используется относительно только одной ячейки диапазона).

Range (“A5”). Value=«Отчет о командировке»

Методы диапазона: Clear – удаляет содержимое и форматирование диапазона ячеек. ClearContents – удаляет только содержимое. Copy – копирует содержимое одного диапазона в другой. В этом случае он используется с единственным аргументом CopyDestination. C его помощью указывается, куда вы копируете.

Range(“B4:G25”). CopyDestination:=Range(“E4:F25”). Копируются формулы и содержимое. В случае, когда надо скопировать только числовые значения, а не формулы, используется метод PastSpecial. Сначала вы копируете в буфер обмена, затем переносите в диапазон. 1)Range(“B4:G25”).Copy 2)Range(“E4:F25”).PastSpecial Paste:=xlPasteValue

Select – выделение диапазона.

Sort – Применяется для сортировки диапазона ячеек. Key1 – по какому столбцу будет сортировка в диапазоне. Order1 – порядок сортировки(по возрастанию, по убыванию). Header – «да», «нет» (Если «да», то заголовок в сортировке участия не принимает, если «нет», участвует). Range(“A1:F25”).Sort

Key1:=Range(“C2”)

Order1:=xlAscending

Правила использования объектов Excel в програмном коде. Примеры программных кодов с их использованием.

14. Способы указания диапазонов в вба. Примеры программных кодов с указанием диапазонов. В процессе составления программного кода нужно уметь правильно использовать ссылку на диапазон. Рассмотрим следующие способы: 1. Использование адреса Range(“A1:B4”). 2. Применение имени диапазона Range(“Sales”). 3. Назначение переменной с именем диапазона NSales=Range(“Информация о продажах”).Name. 4.Использование свойства Cells Range(“A1:A10”).Cells(3) – A3

Range(“A1:D10”).Cells(3, 4) – D3

5.Настройка свойства Offset. Свойство имеет 2 аргумента. Когда указывается Offset для диапазона, то в роли диапазона выступает адрес только одной ячейки. Range(“A5”).Offset(3, 4) – E8

6. Указание левого верхнего и нижнего правого угла диапазона. Range(Range(“C1”), Range(“D10”)).

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

With Range(“A1”)

Range(.Cells(1, 1),.End(xlRight).End(xlDown)).Select

With Range(“A1”)

Range(.Offset(1, 1),.End(xlRight)).Name=”Sales”

Range(.Offset(2, 1),.End(xlDown)).Name=”Region”

Range(.Offset(2, 2),.End(xlRight)).End(xlDown).Name=”NameSales”

Работа с массивами. Оператор Option Base. Динамическая модель индексации и оператор ReDim. Примеры использования этих операторов. Функция управления массивами Array. Пример использования.

По аналогии с работой с информацией в списках Excel, массивы тоже представляют собой списки, в которых каждый элемент имеет свой индекс. Элементы массива воспринимаются программой в виде обычных переменных, но представленных в виде индексированного списка. В вба массивы используются для обработки списков, поскольку массивами управлять в программном режиме гораздо проще, чем списками. Правила работы с массивами. Option Base – определяет нижнюю границу изменения индекса в массиве. Например, Option Base1 – нижняя граница – 1. Эту строку в программном коде пишут в общей области модуля следом за оператором Option Explicit.

В большинстве экономических задач при написании программного кода невозможно заранее узнать количество элементов. Для этого существует возможность вначале программного кода не указывать при объявлении массива точного размера. (Dim ProdCode () As Integer, NProducts As

Integer.) Затем в теле процедуры, когда уже известно необходимое количество элементов массива, можно воспользоваться оператором ReDim, который выделяет для массива строго необходимый объем памяти. With ActiveWorkBook.WorkShits(«Продажи»).Range(“A3”)

NProducts=Range(.Offset(1,0),.End(xlDown)).

ReDim ProdCode(NProducts),UnitPrise(NProducts)

For i=1 to NProducts

ProdCode(i)=.Offset(i,0)

UnitPrise(i)=.Offset(i,1)

Оператор ReDim относительно конкретного массива может использоваться в программном коде столько раз, сколько необходимо. Единственной проблемой является то, что при таком использовании массива, все, что было в массиве, теряется. Чтобы этого избежать, нужно в записи оператора записать ключевое слово Preserve. (ReDim Preserve Sum(NS)). Обычно продолжением данного программного кода является размещение данных, взятых из ст. А и В списка в массивах ProdCode и UnitPrice. Для переноса данных из столбцов списка в массив, нужно организовать цикл. Если нужно перенести данные в столбцы списка, размещенного на рабочем листе:

(NFound – количество найденных записей)

For i=1 to NFound

With Range(“E3”)

Offset(j, 0)=ProdCodeFound(j) ‘код товара

Offset(j, 1)=Quontity(j) "количество товаров

Offset(j, 2)=DollarsTotal(j) ‘стоимость продукции

Рассмотрим конструкцию Array. Рассмотрим работу этой функции на примере. Данная функция используется для заполнения массива. Ее применении е рассмотрим в программе «Ипотечный кредит».

Sub Array Function ()

Dim Days As Variant

Days=Array(«Пн», «Вт», «Ср», «Чт», «Пт», «Сб», «Вс»)

MsgBox “Первый день недели: ” & Days(1)

Ключевое слово Array, после которого указывается список в скоках, используется для заполнения значениями переменной Days. Эта переменная – обычный массив, но в операторе Dim она указывается как обычная переменная типа Variant, а VBA самостоятельно с использованием функции Array определяет эту переменную как массив.

16. Модульная структура приложения на примере программного кода задачи, определяющий оптимальный маршрут перемещения дистрибьютора фирмы. Примериспользования переменных уровня модуля . При создании больших процедур возникают такие сложности, как сложность изучения, отладки, повторного использования. Намного предпочтительнее создавать модульные приложения, которые представляют собой набор относительно небольших процедур, каждая из которых выполняет небольшую подзадачу. Создается главная процедура MainProcedure, а из нее с помощью оператора Call вызываются другие процедуры.

Sub MainProcedure()

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

Dim Ncities As Integer, Visited() As Boolean, Route() As Integer, TotDist As Integer

Sub GenDistances()

Dim I As Integer, j As Integer, Ncities As Integer

With Range("DistMatrix")

Ncities = .Rows.Count

For I = 1 To Ncities - 1

For j = I + 1 To Ncities

Cells(I, j) = Int(Rnd * 100) + 1

For I = 2 To Ncities

For j = 1 To I - 1

Cells(I, j) = .Cells(j, I)

Sub MainProcedure()

Call GetProblemSize

Call PerformHeuristic

Call DisplayResults

Sub GetProblemSize()

Ncities = Range("DistMatrix").Rows.Count

ReDim Visited(Ncities)

ReDim Route(Ncities + 1)

Sub Initialize()

Dim I As Integer

Route(Ncities + 1) = 1

Visited(1) = True

For I = 2 To Ncities

Visited(I) = False

Sub PerformHeuristic()

Dim Step As Integer, I As Integer, NowAt As Integer, NextAt As Integer, MinDist As Integer

For Step = 2 To Ncities

For I = 2 To Ncities

If I <> NowAt And Visited(I) = False Then

If Range("DistMatrix").Cells(NowAt, I) < MinDist Then

MinDist = Range("DistMatrix").Cells(NowAt, NextAt)

Route(Step) = NextAt

Visited(NextAt) = True

TotDist = TotDist + MinDist

TotDist = TotDist + Range("DistMatrix"). Cells(NowAt, 1)

Sub DisplayResults()

Dim Step As Integer

For Step = 1 To Ncities + 1

Range("B19").Offset(Step, 0) = Route(Step)

MsgBox "Общее растояние:" & TotDist, vbInformation, "общее расстояние"

Использование переменных уровня модуля. Рассмотрим программу, которая иллюстрирует использование переменных уровня модуля.

На рабочем листе Excel создадим список и дадим ему имя – Name.

Dim FirstName As String, LastName As String

Dim I As Integer

FirstName=Range(“Name”).Cells(i, 1)

LastName=Range(“Name”).Cells(i, 2)

Call DisplayName

Sub DisplayName ()

Dim FullName As String

FullName=FirstName+LastName

MsgBox “Полное имя сотрудника: ” & FullName

17. Разраотка пользовательского интерфейса: форма как пользовательское окно диалога. Разработка формы на примере формы «Сведения о товарах». Отображение пользовательской формы. Пользовательское окно диалога – это форма, содержащая элементы управления, включая командные кнопки, переключатели, текстовые поля и другие. Оно обеспечивает пользователю ввод информации, требуемой для работы приложения.Рассмотрим типичный пример формы, которая часто встречается в приложениях.

В форме присутствуют 3 обработчика событий:

1. UserForm_Initialize

2. OkButton_Click

3. CanselButton_Click

В этом приложении при открытии формы нужно добиться следующего поведения: переключатели Москва и Поезд должны быть активны, флажок Скоропортящийся установлен, а Хрупкий – сброшен, список CostumerList должен быть заполнен исходными данными. При работе со списком, его можно заполнить разными способами. Например, заполнить его данными, расположенными в ячейках рабочего листа. Для этого зоздать диапазон на рабочем листе, дать ему имя(Name - Costumer). При заполнении списка воспользоваться AddItem. Перед тем, как писать код для события Initialize, рассмотрим свойства элементов управления: пользовательская форма – Ипотека; текстовое поле – ProductBox; переключатели – MoscowOption, VoronegOption, TrainOption, TruckOption; флажки – PerishBox, FragilBox; список – CostumersList.

Dim cell As Variant

ProductBox = " "

MoscowOptions.Value = True

TrainOptions.Value = True

PerishBox = True

FragilBox = False

Существует другой способ заполнения списка. Свойство RowSource, откроется окно, из которого поочереди надо внести элементы.

Отображение формы. В отличии от VB в VBA форма в момент запуска приложения автоматически на экране не появляется. Для вызова формы на рабочий лист нужно применить метод Show. Для этого на рабочем листе создать кнопку, которая выводит форму на рабочий лист, и написать код:

Sub Кнопка1_Щелкнуть ()

Ипотека. Show

18. Обработка событий формы: создание кода обработки событий UserForm_Initialize, CanselButton_Click на примере обработки этих событий для пользовательской формы «Сведения о товарах».

1. UserForm_Initialize

2. OkButton_Click

3. CanselButton_Click

1 разработчик определяет внешний вид формы при открытии, а остальные обеспечивают реакцию на щелчок по кн. «Ок» и «Отмена».

Код обработчика UserForm_Initialize.

В этом приложении при открытии формы нужно добиться следующего поведения: переключатели Москва и Поезд должны быть активны, флажок Скоропортящийся установлен, а Хрупкий – сброшен, список CostumersList должен быть заполнен исходными данными. Для заполнения списка на рабочем листе создадим диапазон и дадим ему имя Costumers. В программном коде воспользуемся методом AddItem. Перед тем, как писать код для события Initialize, рассмотрим некоторые свойства элементов управления: пользовательская форма – Ипотека; текстовое поле – ProductBox; переключатели – MoscowOption, VoronegOption, TrainOption, TruckOption; флажки – PerishBox, FragilBox; список – CostumersList.

Private Sub UserForm_Initialize()

Dim cell As Variant

ProductBox = " "

MoscowOptions.Value = True

TrainOptions.Value = True

PerishBox = True

FragilBox = False

For Each cell In Range("Customers")

CustomersList.AddItem cell.Value

Для кнопки «отмена» запишем следующий код:

Private Sub CanselButton_Click ()

Unload.Me – этот метод выгружает форму из оперативной памяти и убирает ее с экрана.

19. Обработка событий формы: создание кода обработки события OkButton_Clickна примере обработки этого события для пользовательской формы «Сведения о товарах». Событие представляет собой действие, распознаваемое объектом, для которого можно запрограммировать отклик.

Рассмотрим форму «Сведения о товарах». В ней присутствуют 3 обработчика событий:

1. UserForm_Initialize

2. OkButton_Click

3. CanselButton_Click

Код процедуры OkButton_Click. Обычно данный обработчик событий используется для сохранения данный, введенных в элементы управления. Как правило, введенная информация в элементы управления заносится в общедоступные переменные, которые определены в модуле, далее эти переменные используются в программных кодах модуля. ProductСode – код, введенный в поле; Region – пункт отправления; Shipping – транспорт; IsPerish – скоропортящийся; IsFragil – хрупкий; Customers – смисок.

Dim ProductCode As Integer, Region As String, Shipping As String, IsPerish As Boolean, IsFragile As Boolean, Customers As String

Private Sub OkButton_Click()

If .Value = " " or not IsNewmeric(.Value) Then

MsgBox "Код товара не введен или не числовой"

ProductCode=ProductBox. Value

If ProductCode < 1 Or ProductCode > 1000 Then

MsgBox "Код товара должен быть в диапазоне от 1 до 1000"

SetFocus ‘ставит курсор в поле

Exit Sub ‘выход из процедуры

If TrainOption.Value = True Then

Shipping = "Poezd"

Shipping = "Gruzovik"

If MoscowOption.Value = True Then

Region = "Moscow"

Region = "Voroneg"

IsPerish = PerishBox.Value

IsFragile = FragilBox.Value

With CostomerList ‘работа со списком

If .ListIndex <> -1 Then

Customers = CustomersList.Value

MsgBox "Элемент в списке не выбран"

20. Структура принятия решения If-Then-Else

Условный оператор If-Then-Else изменяет порядок выполнения про-граммы в зависимости от результатов проверки некоторого условия.

Sub LookUpPrice()

ReDim ProdCode(Nproducts)

ReDim UnitPrice(Nproducts)

For i = 1 To Nproducts

ProdCode(i) = .Offset(i, 0)

UnitPrice(i) = .Offset(i, 1)

ReguestedCode = InputBox("Введите код товара (большая латинская буква и 4 цифры)")

Found = False

For i = 1 To Nproducts

If ProdCode(i) = ReguestedCode Then

Found = True

ReguestedPrice = UnitPrice(i)

Exit For

If Found Then

MsgBox "Товар с кодом" & ReguestedCode & " стоит " & Format(ReguestedPrice, "0,00р."), vbInformation, "Товар не найден"

MsgBox "Товара с кодом " & ReguestedCode & " нет в списке ", vbInformation, "Товар не найден”

21. Дополнительное условие ElseIf

Средствами структуры принятия решенья If-Then-Else можно орга-низовать выполнение операторов в зависимости от соблюдения опреде-ленного условия. Рассмотрим другой вариант ее использования, на этот раз с ключевым словом ElseIf. Программа Proc31 отображает запрос на ввод пароля. Если пароль введен правильно, программа предоставляет пользо-вателю определенные возможности работы с рабочей книгой и сообщает ему об этом.

Sub Proc31_IfThenElseIf ()

Dim Password As String, ws As WorkSheet

Password = GetPassword

If Password = “level1” Then

For Each ws In ActiveWorkbook.WorkSheets

ws.Visible = True

MsgBox “Вы получили доступ ко всем листам книги.”

ElseIf Password = “level2” Then

ActiveWorkbook.Worksneets (1). Unprotect

MsgBox “Вы получили доступ только к первому листу рабочей книги.”

ElseIf Password = “level3” Then

ActiveWorkbook.Worksneets (1). Visible = True

MsgBox “Вы получили доступ только для чтения содержимого первого листа рабочей книги.”

MsgBox “Пароль не корректен. Повторите ввод пароля.”

Function GetPassword ()

В Proc31 ключевое слово Elself с последующим условием использу-ется дважды. Новое условие вносит в порядок выполнения команд допол-нительные изменения, если проверка первого условия закончилась неуда-чей. В Proc31 первое условие указано сразу за ключевым словом If. В нем проверяется равенство переменной Password строке ”levell”. Если пере-менная не равна строке, VBA переходит к первому ключевому слову Elself, где проверяет следующее условие – равенство переменной Password строке “level2”. Начиная с этого момента, программа использует только новое ус-ловие, “забывая” о старом. Если равенства опять нет, управление перехо-дит к следующему ключевому слову Elself и т. д.

В строке 3 процедуры Proc31 вызывается функция GetPassword, в ко-торой использованы новые элементы. Обратимся к ней еще раз.

Function GetPassword ()

GetPassword = Lcase (InputBox(“Enter Password:”.” Password”))

Здесь во второй строке заданы обращения к двум встроенным функ-циям VBA-Lcase и InputBox. Первая преобразует все буквы переданной в нее строки в строчные. Вторая выводит на экран диалоговое окно с запро-сом на ввод данных пользователем. У этой функции есть несколько необя-зательных аргументов, из которых нас интересуют только первые два. Один из них – строка, отображаемая в окне над полем для ввода. Второй содержит строку заголовка диалогового окна. При вызове функции Input-Box на экране появляется диалоговое окно с заданными заголовком и тек-стом приглашением, кроме того оно содержит пустое поле, в котором пользователь может ввести данные. Значение, возвращаемое InputBox, за-висит от того, какую кнопку щелкнет пользователь. Если это – ОК, воз-вращается введенная строка, если – Отмена (Cancel), то пустая. В нашем примере буквы этой строки передаются в функцию Lcase, которая преоб-разует их в строчные. В блоке, начинающемся сразу за ключевым словом If, помещен цикл For-Each-Next (он подробно описан ниже в разделе "Управляющая структура For-Each-Next”). В этом цикле перебираются все листы активной рабочей книги, с каждым из которых выполняются два действия – свойству Visible присваивается значение True и вызывается ме-тод Unprotect. Первое действие позволяет пользователю видеть лист, вто-рое – снимает с листа защиту паролем. У метода Unprotect есть один аргу-мент – строка с паролем. Но в данном случае пароль для защиты листов мы не использовали, поэтому Unprotect вызван без аргументов. В других бло-ках программы свойство Visible и метод Unprotect вызываются выборочно, в зависимости от введенного пароля.

22. Управляющая структура For-Next

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

Sub LookUpPrice()

Dim ProdCode() As String, UnitPrice() As Currency, ReguestedPrice As Currency, Nproducts As Integer, i As Integer, Found As Boolean, ReguestedCode As String

With ActiveWorkbook.Worksheets("Коды товаров”).Range("A3")

Nproducts = Range(.Offset(1, 0), .End(xlDown)).Rows.Count

ReDim ProdCode(Nproducts)

ReDim UnitPrice(Nproducts)

For i = 1 To Nproducts

ProdCode(i) = .Offset(i, 0)

UnitPrice(i) = .Offset(i, 1)

End With

ReguestedCode = InputBox("Введите код товара (большая латинская буква и 4 цифры)")

For i = 1 To Nproducts

If ProdCode(i) = ReguestedCode Then

ReguestedPrice = UnitPrice(i)

MsgBox "Товар с кодом" & ReguestedCode & " стоит " & Format(ReguestedPrice, "0,00р."), vbInformation, "Товар не найден"

MsgBox "Товара с кодом " & ReguestedCode & " нет в списке ", vbInformation, "Товар не найден”

23. Управляющая структура While-Wend

Действие ее подобно действию For-Next, но группа операторов вы-полняется не заданное число раз, а до соблюдения определенного условия. В программе Proc34 инструкция While-Wend использована для выделения определенного значения из последовательности случайных чисел.

Sub Proc34_WhileWend ()

Dim LotteryEntry As Integer

LotteryEntry = 0

While LotteryEntry <> 7

LotteryEntry = Int (10*Rnd ())

MsgBox “Ваше число равно “& LotteryEntry &”. Вы выиграли!!”

Программа Proc34 гарантирует, что в информационном окне всегда отображается заданное число. Цикл While-Wend выполняется, пока значе-ние переменной LotteryEntry не станет равным 7 (в условии использован оператор неравенства <>). При каждом выполнении цикла этой перемен-ной присваивается случайное значение от 1 до 9, а затем с помощью функ-ции VBA Beep, подается звуковой сигнал через внутренний динамик ком-пьютера. При запуске этой программы несколько раз, можно услышать разное количество сигналов, в зависимости от того, на каком шаге генера-тор случайных чисел вернет число 7.

Рассмотрим структуру цикла While-Wend подробнее.

While Ключевое слово, начало структуры While-Wend

LotteryEntry <> 7 Условие, определяющее, будет или нет вы-полнен цикл. Если оно соблюдено, цикл вы-полняется, если нет – управление передается оператору, стоящему перед ключевым сло-вом Wend

LotteryEntry=Int(10*Rnd()) Первый оператор тела

Beep Второй оператор тела

Wend Ключевое слово, отмечающее конец струк-туры While-Wend

Введение в систему программирования VBA. Объектная модель Excel, основные объекты Е. Краткая их характеристика.

VB и VBA не одно и то же. VB представляет собой язык для разработки программного обеспечения, которое используется отдельно от MS Office. VBA входит в состав пакета MS Office. Устанавливая его, вы получаете доступ к VBA. Он необходим для управления данными MS Office.

Язык VBA поддерживает все базовые элементы любого другого языка программ.: 1)переменные 2)массивы 3)подпрограммы 4)управляющие структуры 5)возможность создания пользоват. типов данных и т.д.

VBA явл. языком визуального и событийно управляемого программирования. В нем есть возможность создания форм с управляющими элементами, написания процедур, обрабатывающих события. VBA позволяет работать с огромным набором объектов. VBA поддерживается такими приложениями, как Access, PowerPoint, Word и др. В каждом из приложений свой набор объектов. В Access:формы, запросы, отчеты, таблицы; в Word:абзац, сноска; в PowerPoint слайд. Каждая программа поддерживает свою версию VBA.

VBA отличается от других языков программирования тем, что предоставляет возможность непосредственно работать со всеми объектами MS Office. Он имеет графическую инструментальную среду, позволяющую создать экранные формы и управляющие элементы.

Все элементы Excel – объекты, с которыми приходится работать в программе. Чаще всего используются такие объекты, как рабочие книги WorkBooks, рабочие листы WorkSheets, диапазоны Range. Объект WorkSheets имеет свойство Name, только объект Range не имеет ярко выраженной коллекции. Выступает как коллекция и как объект. Чаще исп. В программном коде, обладает огромными возможностями.

2. Объектная модель Excel: понятие объекта, метода, свойства, события.

Объектная модель Excel является основой структуры программы. Без создания иерархической структуры объектов программы, нельзя использовать VBA в Еexcel.

Свойства определяют внешний вид и состояние объекта. Для определения свойства его нужно указать справа от имени объекта через точку. Range(“A1”).Value – свойство описывает содержимое ячейки А1. Существует 2 вида опереций при работе со свойствами: 1)присваивание свойству значения. Объект.Свойство=<значение>

Range(“A1”).Value= «Отчет о командировке». 2)полученное свойство присваивается переменной. Переменная=Объект.Свойство

Var= Range(“A1”).Value

Методы объекта открывают задачи, которые может выполнять объект. Объект.Метод – когда у метода нет параметров. Range(“A1”).CleanContenst – очищает диапазон, но сохраняет форматирование. Если метод имеет аргументы, то они перечисляются через, после названия метода.

Событие представляет собой действие, распознаваемое объектом, для которого можно запрограммировать отклик. Суть программирования в VBA заключается в 2 понятиях: событие и отклик на него.

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

3. редактор VB. Окно проекта. Окно редактирования кода. Окно редактирования формы. Панель элементов. Окно свойств. Окно просмотра объектов. Окна Immediate, Watch. Редактор VB=Visual Basic Editor. Редактора VBA не бывает! Для запуска этого редактора нужно открыть приложение Excel и выполнить команду Сервис/Макрос/Редактор VB или Alt+F11. Чтобы вернуться в Excel, нужно повторно нажать Alt+F11. В открывшемся окне VBA: строка заголовка, меню, панели инструментов и несколько окон.

По умолчанию в верхнем левом углу находится окно проекта . Вывести его можно командой View/Project Explorer. Это окно содержит список всех открытых проектов и список всех их компонентов. В проекте всегда располагаются 3 модуля(на каждом листе) и модуль книги. Все модули делятся на: 1) стандартные – добавляются к проекту Insert/Module. Они содержат макросы, функции и процедуры. 2) модули объектов – модули, связанные с рабочими книгами, раблчими листами и формами. Проект VBA состоит из объектов, имеющих иерархическую структуру, и включает: объекты Excel, формы, стандартные модули и модули классов. Окно редактирования кода. В окне проекта выделяете объект, для которого будет введен программный код. Затем выполнить команду View/Code. Откроется окно, в которое нужно ввести программный код. Окно редактирования формы. Для вывода формы: Insert/User Form. На экране появится форма. Окно свойств. Для открытия: View/Properties Window. В левой части окна перечислены свойства объекта, в правой – значения свойств, которые можно изменять. Окно просмотра объектов. View/Object Browser или F2. В верхнем левом углу открывшегося окна – список библиотек объектной модели Excel. Оно дает спраку о всех объектах Excel, их свойствах и методах.

Панель элементов (View/Dwbug)в стандартном варианте включает различные классы управляющих элементов: CommandButton (командная кнопка), TextBox, Label и др. Существует возможность дополнить панель с помощью команды Tools/Additional Controls.

Окно Immediate – один из инструментов отладки. Предназначено для непосредственного ввода команд. Окно Watch – порядок выполнения программы и отслеживание ошибок.

4. Создание простой программы на примере приложения «Информация о продажах по регионам». Задача: создать программу, которая будет отслеживать продажи в каждом регионе. Для каждого региона отразить сообщение с количеством месяцев, когда продажи превышали заданный объем, введенный пользователем. Порядок выполнения: открыть Excel и на первом листе создать список следующего вида:

А	В	С	…	G
месяц	Регион1	Регион2		Регион3
Янв2005
….
Дек2006

Отформатировать столбцы(1 – дата, остальные – формат денежный). Заполнить список. Затем выделить диапазон ячеек B2:G25 и присвоить ему имя SalesRange. Перейти в редактор вба: Alt+F11 или Сервис/Макрос/Редактор Вб. Если окна нет, выполнить команду View/Project Explorer. Далее выполнить Insort/Module, откроется окно редактора. Ввести следующий программный код:

Sub CountHighSales()

Dim i As Integer, j As Integer, ks As Integer, s As Currency

s = InputBox("Введите цену для сравнения", "окно для ввода критерия")

If Range("SalesRange").Cells(j, i) >= s Then

MsgBox "в регионе " & i & " объем продаж превышал " & s & " в " & ks & " месяцах"

Запустить программу на выполнение: F5 или Run/Run Sub. На экране появится окно InputBox. Запуск программы с помощью кнопки, расположенной на рабочем листе. Находясь на рабочем листе, выполнить команду Вид/Панели инструментов/Формы. В появившемся окне выбрать элемент Кнопка и нарисовать на рабочий лист. Откроется окно, в котором предлагается создать макрос, выбрать название CountHighSales и закрыть. Дать свое название кнопке. Для запуска программы щелкнуть на этой кнопке.

Создать программу можно и другим способом, начиная с размещения кнопки. Появляется окно «Назначить макрос объекту». Нажать на кнопку Создать. Запустится редактор VBE и откроется окно редактирования кода макроса. Ввести программный код.

5. Стандартные элементы управления VB: понятия, свойства, методы, события общие для этих элементов.Краткая характеристика элементов управления . Элементы управления - это объекты, которые можно разместить на форме. Как и все объекты, они имеют свойства, методы и события. Свойства определяют внешний вид и поведение.

Работа с объектной моделью excel c. Объектная модель программы MS EXCEL. Простые и сложные переменные

Возможности

Плюсы и минусы

Как пользоваться

Скачать

Рекомендуем почитать

Поиск по сайту