Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для данных объектов

Министерство высшего и среднего образования Русской Федерации

Иркутский Муниципальный Технический институт

Факультет Технологии и Компьютеризации Машиностроения

Кафедра Технологии Машиностроения

Курсовая работа по информатике на тему

«Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для данных объектов Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат»

Выполнили студенты группы ИСМ-03-1

Козулин С.П, Кононов И.В

Проверил: Буренков С.И_____________

Иркутск, 2004

План

1. Как все начиналось

- QuickBasic против TurboBasic -Эпоха Visual Basic -Visual Basic for Applications 2. Обработка модулей VBA -Переименование, Удаление, Создание, Добавление, Экспорт, Импорт модулей проекта - Импорт и экспорт модуля из проекта в проект - Импорт Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат модуля через экспортируемый файл (также модулей обыденного VB) - Редакция модуля - Обработка модулей VBA программно - Экспорт модуля проекта в файл - Импорт модуля проекта из файла - Импорт модуля через устроитель (данный код только для Word приложения) - Вставка новых строк в модуль проекта - Удаление строк из модуля - Чтение строк из модуля - Определение Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат количества строк в модуле - Переименование модулей проекта - Удаление модулей проекта - Определение количества модулей в проекте - Создание нового модуля проекта

3. Постановка задачки и ее решение

4. Перечень использованной литературы

Как все начиналось

Язык Basic был разработан докторами Дартмутского института Дж.Кемени и Т.Курцом в 1965 году как средство обучения и работы непрофессиональных программистов Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат. (Дартмутский институт в штате Нью-Гампшир, США, был сотворен посреди 18 века, это одно из наистарейшем высших заведений Америки). Его предназначение определено в самом заглавии, которое является аббревиатурой слов Beginner's All-purpose Symbolic Instruction Code (многоцелевой язык символических инструкций для начинающих) и при всем этом в дословном переводе Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат значит "базисный".

Примечание. Ранее языки программирования писались непременно строчными знаками — BASIC, FORTRAN. В 1990 году Интернациональная организация эталонов приняла решения, что они пишутся как обыденные имена собственные — строчной является только 1-ая буковка.

Но феномен состоит в том, что, будучи вправду очень обычным средством программирования, совсем неприменимым в те времена для решения Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат суровых задач, Basic представлял собой отменно новейшую технологию сотворения программ в режиме интерактивного диалога меж разработчиком и компом. Другими словами представлял собой прототип современных систем программирования. Другое дело, что решение схожей задачки на технике тех лет было может быть только за счет наибольшего упрощения языка программирования и использования Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат транслятора типа "интерпретатор".

В силу этих же обстоятельств Basic в главном применялся на мини - и микроЭВМ, которые в 70-е годы имели оперативку, объем которой кажется сейчас просто мистическим (4-32 тыщ б). Резкое развитие систем на базе Basic началось с возникновением сначала 80-х годов индивидуальных компов, производительность и популярность которых вырастает вот уже Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат 20 лет неслыханными темпами.

QuickBasic против TurboBasic

В конце 80-х годов насчитывалось около 10-ка систем Basic разных фирм-разработчиков. Но основная борьба шла меж QuickBasic (компания Microsoft) и TurboBasic (Borland). Вообще-то, конкурентность меж этими 2-мя разработчиками средств программирования шла по целому диапазону языков — Basic, Pascal и C. И Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат результатом ее в 1989 году стало неявное мировое соглашение, когда Microsoft отказалась от предстоящей поддержки Pascal, а Borland — Basic.

Тогда многие комментаторы язвительно замечали, что Microsoft отказалась от Pascal в пользу Basic только из-за личных пристрастий основоположника и управляющего компании Билла Гейтса. Вправду, разработка в 1975 году интерпретатора Basic для Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат микроЭВМ Altair 8800 была первым проектом двадцатилетних Билла Гейтса и Пола Аллена, только-только основавших фирму Micro-Soft (в то момент они были единственными сотрудниками новейшей компании). После чего конкретно Пол Ален занимался созданием Basic-систем и считается крестным папой Visual Basic. В свою очередь Билл Гейтс, перечисляя Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат свои титулы, достаточно нередко добавляет "Basic-программист".

Но, как мне представляется, победа QuickBasic определялась чисто технологическими причинами — в этой системе была успешно реализована схема смешанного использования обычных Basic-технологий и традиционных способов сотворения сложных программных систем. Отметим, что с 1990 года усеченный вариант QuickBasic под заглавием QBasic был включен в состав MS Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат-DOS. (Многие современные юзеры неверно задумываются, что QuickBasic и QBasic — одно и то же.)

Эра Visual Basic

Сначала 90-х годов Microsoft начала активную борьбу за продвижение в массы собственной новейшей операционной системы Windows (против собственной же, но более уже устаревающей MS-DOS). Но, как понятно, юзеры работают не Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат с ОС, а с программками, которые работают в нее среде. Потому скорость смены платформы в главном определяется темпами возникновения соответственных прикладных программ.

Но смена операционных систем представляет суровую делему и для программистов, потому что им необходимо было осваивать новейшую технологию разработки программ. Тогда бытующим (и в значимой степени Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат, совсем справедливым) воззрением было то, что Windows предъявляет более высочайшие требования к квалификации программера.

В 1991 году под девизом "сейчас и начинающие программеры могут просто создавать приложения для Windows" появилась 1-ая версия нового инструментального средства Microsoft Visual Basic. Тогда Microsoft довольно робко оценивала способности этой системы, ориентируя ее, сначала, на категорию Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат начинающих и непрофессиональных программистов. Основной задачей тогда было выпустить на рынок обычный и удачный инструмент разработки в тогда еще достаточно новейшей среде Windows, программирование в какой представляло делему и для опытнейших профессионалов.

Вправду, VB 1.0 тогда был больше похож не на рабочий инструмент, а на действующий макет будущей среды Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат разработки. Его принципное новаторство заключалось в реализации мыслях событийно-управляемого и зрительного программирования в среде Windows, которые очень конструктивно отличались от традиционных схем разработки программ. По общему признанию VB стал родоначальником последнего поколения инструментов, именуемых сейчас средствами резвой разработки программ (Rapid Application Development, RAD). Сейчас эта идеология считает обычной, но тогда она Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат казалась совсем необыкновенной и создавала суровые трудности (в том числе чисто психического плана) для программистов "старенькых времен".

Все же, число VB-пользователей росло, при этом почти во всем за счет большой популярности ее предшественника — QuickBasic. При всем этом VB стремительно "мужал", усиливаясь за счет, как развития Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат среды программирования, так и включения проф частей языка и проблемно-ориентированных средств. И к моменту выпуска в 1995 году VB 4.0 эта система была уже общепризнанным и одним из часто встречающихся инструментов сотворения широкого класса приложений. В текущее время употребляется версия VB 6.0, возникновение версии 7.0 ожидается сначала будущего года.

Visual Basic for Applications

Сначала Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат 90-х годов наметилась ясная тенденция включение в приложения, созданные для конечного юзера, средства внутреннего программирования, которые должны были решать задачки опции и адаптации этих пакетов для определенных критерий их внедрения.

В конце 1993 г. Microsoft объявила о намерении сделать на базе VB новейшую универсальную систему программирования для прикладных программ Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат, которая получила заглавие Visual Basic for Applications (VB для приложений). Естественно, реализацию этого проекта она начала с собственных офисных пакетов.

1-ый вариант VBA 1.0 появился в составе MS Office 4.0, но только в программках Excel 4.0 и Project 6.0. В других же приложениях - Word 6.0 и Access 2.0 - были собственные варианты Basic. Более того, VBA 1.0 достаточно очень Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат отличался (при этом имея ряд существенных преимуществ) от применяемой тогда универсальной системы VB 3.0.

Высококачественный перелом наступил в конце 1996 года с выпуском MS Office 97, в каком была реализована единая среда программирования VBA 5.0, включенная в программки Word, Excel и PowerPoint. Более того, VBA 5.0 использовала тот же самый языковый механизм и среду Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат разработки, что и универсальная система VB 5.0. В состав выпущенного годом ранее MS Office 2000 вошла соответственно версия VBA 6.0, которая употребляется в 6 программках - Word, Excel, PowerPoint, Access, Outlook, Frontpage.

В итоге последние три года Microsoft позиционирует сейчас собственный пакет MS Office не просто как набор прикладных программ, как всеохватывающую Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат платформу для сотворения бизнес-приложений, решающих широкий круг специализированных задач юзеров. Конкретно этим разъясняется возникновением в его составе специального выпуска для разработчиков приложений — Developer Edition.

Сразу, VBA интенсивно продвигает в качестве отраслевого эталона для управления программируемыми приложениями, объявив о способности его лицензирования. Сейчас уже более 100 ведущих глобальных фирм-разработчиков прикладных программ Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат (посреди их есть о русские) заполучили лицензии на него и включают VBA в состав собственных программных товаров.

Вывод из произнесенного выше. Освоение механизма программирования VBA, реализованного в офисном приложении, которое установлено на вашем компьютере, откроет вам возможность использования приобретенных познаний и способностей при работе с десятками и сотками Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат других программ, в том числе и тех, которых еще пока нету на свете. Начав с составления простых макрокоманд, при желании можно в рамках 1-го инвентаря стать специалистом, разрабатывающим программные системы хоть какой трудности.

10 годов назад в мире было менее 2-ух миллионов программистов. Сейчас их насчитывается около 10 миллионов, из Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат их более 70 процентов употребляют в качестве хотя бы одно из инструментов VB либо VBA.

Обработка модулей VBA

Проект – Файл приложения Microsoft Office, в каком написана программка VBA
Приложение – Приложение Microsoft Office (Word, Excel, Access, Power Point и др.)
Модуль – Именованная область в файле проекта содержащая внутри себя код, написанный Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат на языке VBA
Окно проекта – “дерево”, содержащее на для себя все “деревья” загруженных проектов, “дерево” состоит из имен модулей.
Редактор VBA – редактор интегрированный снутри приложения, позволяющий писать и редактировать программки на языке VBA.

Для перехода в редактор VBA можно пользоваться пт меню: Сервис-Макросы-Редактор Visual Basic (Рис.1) (В Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат Access избрать закладку модулей либо форм, избрать мышью подходящий объект, зайти в меню: Вид-Программа)
Для открытия окна проекта, нужно пользоваться пт меню редактора VBA: Вид-Дерево проекта
Двойным кликом мыши по папке с именами модулей можно открыть ее.
Двойным кликом мыши по имени модуля, можно активизировать окно редактора Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат подходящего вам модуля.


Рис 1 Редактор VBA (слева дерево проекта, активизирован редактор модуля 1, который виден в правой части окна VBA)


Примечание: В Access модули можно обрабатывать, не заходя в редактор VBA, выбрав закладку Модули. В Access 1997 модули обрабатываются только через закладку Модули, т.к. окна проекта в этой версии Access не Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат существует.

Переименование, Удаление, Создание, Добавление, Экспорт, Импорт модулей проекта

Все обозначенные в заголовке деяния можно выполнить последующим образом:

1. В редакторе VBA надавить правую кнопку мыши на дереве проекта на имени подходящего нам модуля (либо на любом имени имеющегося модуля, для того, что бы сделать новый модуль)

2. Избрать соответственный пункт меню Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат (для сотворения модуля избрать пункты: Вставить-модуль)

Импорт и экспорт модуля из проекта в проект Импорт модуля через экспортируемый файл (также модулей обыденного VB)

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

1. Экспортировать модуль из проекта в файл (в редакторе VBA надавить правую Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат кнопку мыши на дереве проекта, на имени модуля, и избрать пункт “Экспорт файла”)

2. Импортировать модуль из файла в проект (данный файл может являться не только лишь экспортируемым файлом из VBA приложения, да и быть модулем обыденного VB)

В редакторе VBA надавить правую кнопку мыши на дереве проекта, на названии файла Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат, и избрать пункт “Экспорт файла”
.

Редакция модуля

1. В редакторе VBA кликнуть в окне проекта дважды по имени подходящего нам модуля (см. рис 1)( В Access избрать закладку Модули и имя соответственного модуля, войти в меню Вид-Программа.).

2. Перейти в активизированное окно редактора модуля (справа от окна проекта) и редактировать его.

3. Из верхнего Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат левого перечня, размещенного вверху окна редактора модуля, можно выбирать или раздел описания, или имя подходящей вам подпрограммы (В модуле Форм, Листов Excel, Книжки Excel, Документа Word и т.п. из верхнего правого перечня можно избрать Общую Область, или имя объекта (Листа, Книжки, Документа и т.п.), или имя Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат элемента управления (который находится на соответственном Листе, Книжке, Документе и т.п.), при избранном объекте, из правого перечня выбирается имя действия, для того, что бы активизировать подобающую событийную функцию объекта либо элемента управления).

Обработка модулей VBA программно

Под “ИмяПроекта” в программной конструкции предполагается соответственный объект. Для связи с Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат книжкой Excel предназначен объект - Workbooks("Имя книжки"), а для связи с документом Word объект - Documents(“Имя документа”). Объект для связи с документом, который содержит общие макросы приложения Word, имеет имя: NormalTemplate, в Excel приложении данный объект записывается последующим образом: Workbooks("PERSONAL").

Экспорт модуля проекта в файл

ИмяПроекта.VBProject Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат.VBComponents.Item("Имя модуля").Export "Путь и ИмяФайла"

Импорт модуля проекта из файла

ИмяПроекта.VBProject.VBComponents.Import "Путь и ИмяФайла"

Импорт модуля через устроитель(данный код только для Word приложения)

Application.OrganizerCopy Source:= _

“Путь и имя проекта, откуда берется модуль”, Destination:= _

“Путь и имя проекта куда импортируется модуль”, Name Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат:="Имя модуля", Object _

:=wdOrganizerObjectProjectItems

Вставка новых строк в модуль проекта

ИмяПроекта.VBProject.VBComponents.Item("Имя модуля").CodeModule.InsertLines №, S

Где
№ - Номер строчки в модуле, с которой будут вставляться новые строчки
S – Вставляемая строчка знаков
Примечание:
В переменной S могут содержаться коды знаков конца строк , которые можно получить последующей функцией со последующим аргументом: CHR Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат(13). Таким макаром, переменная S может содержать внутри себя сходу несколько строк:

S = “1-ая строчка”+ chr(13)+”2-ая строчка” + chr(13)+”3-я строчка” ‘и т.д.

Удаление строк из модуля

ИмяПроекта..VBProject.VBComponents.Item("Имя модуля").CodeModule.DeleteLines(№,Количество)

Где
№ - Номер строчки в модуле с которой будут удаляться строчки
Количество – количество удаляемых строк

Чтение строк Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат из модуля

ИмяПроекта.VBProject.VBComponents.Item("Имя модуля").CodeModule.Lines(№,Количество)

Где
№ - Номер строчки, в модуле с которой будут начинаться чтение строк
Количество – количество читаемых строк

Определение количества строк в модуле

ИмяПроекта.VBProject.VBComponents.Item("Имя модуля").CodeModule.CountOfLines

Переименование модулей проекта

ИмяПроекта.VBProject.VBComponents.Item(“ИмяМодуля”).Name =”Новое имя модуля”

Удаление модулей проекта Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

ИмяПроекта.VBProject.VBComponents.Remove _

ИмяПроекта.VBProject.VBComponents.Item("ИмяМодуля")

Определение количества модулей в проекте

ИмяПроекта.VBProject.VBComponents.Count

Создание нового модуля проекта

‘Создаем новый модуль макросов и подпрограмм

ИмяПроекта.VBProject.VBComponents.Add vbext_ct_StdModule

‘Определяем индекс сделанного модуля

k = ИмяПроекта.VBProject.VBComponents.Count

‘даем свое имя модулю

ИмяПроекта.VBProject.VBComponents.Item(k).Name Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат = "Новое имя модуля"

Постановка задачки и ее решение

Вид объекта – Числовая прямоугольная матрица.

Характеристики объекта – Размерности матрицы

Входные формы – Ввод частей матрицы со столбцом (Клавиатура, Файл, Тест-формула), Выбор вида обработки.

Виды обработки – Построение диаграмм

1. Средние значения по строчкам и столбцам

2. Наибольшие значения по строчкам и столбцам

3. Малые значения по строчкам и столбцам

Option Explicit

Const Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат m = 15

Dim i, j, k As Integer

Public Obr As Byte

Dim n, A(m, m), L(m) As Double

Public inp, NameF, Path As String

Dim Bukva As Variant

Dim det, s, x As Double

Public заявляет глобальную переменную. Объявлённая таким методом переменная становится доступной из Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат всех модулей и форм проекта. Если переменная объявлена в разделе глобальных объявлений, то доступ к ней осуществляется просто по её имени. Если же она объявлена в коде формы, то доступ к ней из других форм и модулей осуществляется так: ИмяФормы. ИмяПеременной.

Sub ButtonCancel_Click()

Sheet1.OptionButton1.Select

Cng_List (False)

End Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат Sub

Sub заявляет функцию с именованием name и параметрами arglist.

Public Sub Obrabotka()

Obr = Sheet1.ListBox1.ListIndex + 1

n = Sheet2.Range("R2")

If Obr > 0 Then

Select Case Obr

Case 1 ' Среднее значение по строчкам

Call rab1(n)

Case 2 ' среднее значение по столбцам

Call rab2(n)

Case 3 ' min по строчкам

Call rab Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат3(n)

Case 4 ' min по столбцам

Call rab4(n)

Case 5 ' max по строчкам

Call rab5(n)

Case 6 ' max по столбцам

Call rab6(n)

End Select

End If

End Sub

Тут мы, соответственно, объявляем глобальную функцию вида обработки. В этом случае это подсчет средних, наибольших, и малых частей матрицы по Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат столбцам и строчкам

Call - Вызывает функцию либо функцию. Оператор Call может быть опущен.

Дальше…

Sub ButtonOK_Click()

If Sheet1.OptionButton1.Value = True Then

'Ввод матрицы с клавиатуры в файл

Met1:

inp = InputBox "Введите размерность матрицы А", "Ввод размерности", "testfile" - выводит окно с запросом на ввод значения. Характеристики такие же Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат, как и у функции MsgBox.

n = Val(inp)- Превращает строчку в число

If (n > 0) And (n <= 15) And (n - Int(n) = 0) Then

Sheet2.Visible = xlSheetVisible

Sheet2.Activate

Sheet2.Range("L2") = Str(n) + "*" + Str(n)

Sheet2.Range("R2") = n

InitS

Sheet2.Range("H3") = "Введите элементы матрицы, начиная с активной ячейки A4"

Else Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

If inp "" Then

MsgBox "Ошибка ввода размерности"- - Выводит на экран окно сообщения (Message Box) которое будет ожидать клика на одной из кнопок. Возвращает число Integer, по которому можно найти какую кнопку надавил юзер.

GoTo Met1- оператор для перехода на определённую метку

End If

End If

End If

If Sheet1.OptionButton Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат2.Value = True Then

' Ввод матрицы из файла

Open "C:\file1" For Input As #2 - открывает файл для чтения, записи либо для случайного доступа.

Input #2, n

Sheet3.Visible = xlSheetVisible

Sheet3.Activate

' Sheet3.Range("M2") = Str(n) + "*" + Str(n)

Sheet3.Range("R2") = n

Call InitS – вызов функции InitS

For i = 1 To n Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

For j = 1 To n

Input #2, A(i, j)

Sheet3.Cells(i + 3, j) = A(i, j)

Next j

Next i

Close #2 - Закрывает файл, открытый оператором Open под номером 2.

MsgBox ("Матрица А прочитана из файла ")

End If

If Sheet1.OptionButton3.Value = True Then

'Наполнение тестового значения

Randomize - Инициализирует генератор случайных чисел. Если этот Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат оператор не поместить перед функцией Rnd, то при каждом запуске приложения будут генерироваться одни и те же случайные числа.

For i = 1 To n

For j = 1 To n

A(i, j) = 20 * Rnd() - 10 - Возвращает Single значение, содержащее случайное число от 0 до 1.

Next j

Next i

Sheet3.Cells(3, 2) = " Матрица заполнена случайными Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат тестовыми значениями "

For i = 1 To n

For j = 1 To n

Sheet3.Cells(i + 3, j) = A(i, j)

Next j

Next i

MsgBox ("Матрица А заполнена тестовыми значения (случайными числами)")

End If

If Sheet1.OptionButton4.Value = True Then

'Выбор обработки

Call Obrabotka – вызываем функцию «обработка».

End If

End Sub

В этой Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат конструкции некие операторы производятся только при условии, находящееся в конструкции логическое выражение имеет значение True (поистине):

If Логическое_выражение Then Оператор

либо труднее

If Логическое_выражение Then
Группа_операторов
End If

В первом случает оператор может быть только один. Во 2-м сколько угодно (в том числе и один Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат).

Дальше…

Sub Cng_List(par As Boolean)

If par Then 'Активное

Sheet1.ListBox1.ForeColor = &H80000007

Sheet1.ListBox1.Enabled = True

Else 'Неактивное

Sheet1.ListBox1.ForeColor = &H80000013

Sheet1.ListBox1.Enabled = False

End If

End Sub

ListBox1 – отран управления, префикс lst (При именовании частей управления рекомендуется следовать стандартным соглашениям именования пользовательского интерфейса и частей Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат управления. Это позволяет упростить чтение и отладку программного кода. В именах частей управления комфортно проставлять префикс, совершенно точно указывающий на тип (класс) этого объекта.)

Sub Init()

Cng_List (False)

n = 0

For i = 1 To m

For j = 1 To m

A(i, j) = 0

Next j

Next i

Sheet2.Visible = xlSheetHidden

Sheet Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат3.Visible = xlSheetHidden

End Sub

Sub InitS()

For i = 1 To m + 2

For j = 1 To m

ActiveSheet.Cells(i + 2, j) = ""

Next j

Next i

End Sub

Sub Button3_Click() ' ОК

n = Sheet2.Range("R2")

Open "C:\file1" For Output As #1

Write #1, n

For i = 1 To n

For j = 1 To n

If Sheet Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат2.Cells(i + 3, j) = "" Then

A(i, j) = 0

Else

A(i, j) = Sheet2.Cells(i + 3, j)

End If

Write #1, A(i, j)

Next j

Next i

Close #1

MsgBox ("Матрица A записана в файл file1")

Call InitS

Sheet2.Visible = xlSheetVisible

Sheet1.Activate

Call Init

End Sub

Sub Button4_Click() ' Отмена

Sheet Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат2.Visible = xlSheetVisible

Call InitS

Sheet1.Activate

Call Init

End Sub

Sub Button5_Click()

Call InitS

Sheet3.Visible = xlSheetVisible

Sheet1.Activate

Call Init

End Sub

Sub OutA() ' Вывод результата на экран

For i = 1 To n

For j = 1 To n

Sheet4.Cells(i + 3, j) = A(i, j)

Next j

Next i Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

MsgBox

End Sub

Sub getA() ' ввод матрицы из файла

For i = 1 To n

For j = 1 To n

If Sheet3.Visible = xlSheetHidden Then

MsgBox ("Введите матрицу А из файла")

Else

If Sheet3.Cells(i + 3, j) = "" Then

A(i, j) = 0 ' наполнение матрицы с клавиатуры

Else

A(i, j Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат) = Sheet3.Cells(i + 3, j)

End If

End If

Next j

Next i

End Sub

Создание кнопок ОК, ОТМЕНА, наполнение матрицы в файл, также вывод результатов на экран.

И, в конце концов, при помощи функции rab, мы проделываем все виды обработки.

Sub rab1(n As Variant)

Call getA

Sheet4.Activate

Call InitS Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

Sheet4.Range("H3") = "Среднее значение частей по строчкам"

Sheet4.Range("G4") = "Строчка"

Sheet4.Range("I4") = "Xcp"

For i = 1 To n

s = 0

Sheet4.Cells(i + 4, 7) = i

For j = 1 To n

s = s + A(i, j)

Next j

s = s / n

Sheet4.Cells(i + 4, 9) = s

Next i

End Sub

Sub Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат rab2(n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range("H3") = "Среднее значение частей по столбцу"

Sheet4.Range("G4") = "Столбец"

Sheet4.Range("I4") = "Xcp"

For j = 1 To n

s = 0

Sheet4.Cells(j + 4, 7) = j

For i = 1 To n

s = s + A(i, j)

Next i

s = s / n

Sheet Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат4.Cells(j + 4, 9) = s

Next j

End Sub

Sub rab3(n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range("H3") = " Min элементы в строчках"

Sheet4.Range("G4") = "Строчка"

Sheet4.Range("I4") = "Min"

For i = 1 To n

x = A(i, 1) 'min

Sheet4.Cells(i + 4, 7) = i

For j = 2 To n Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

If x > A(i, j) Then

x = A(i, j)

End If

Next j

Sheet4.Cells(i + 4, 9) = x

Next i

End Sub

Sub rab4(n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range("H3") = "Min элементы по столбцам"

Sheet4.Range("G4") = "Столбец"

Sheet4.Range("I4") = "Min"

For Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат j = 1 To n

x = A(1, j) 'min

Sheet4.Cells(j + 4, 7) = j

For i = 2 To n

If x > A(i, j) Then

x = A(i, j)

End If

Next i

Sheet4.Cells(j + 4, 9) = x

Next j

End Sub

Sub rab5(n As Variant)

Call getA

Sheet4.Activate

Call InitS Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

Sheet4.Range("H3") = "Max элементы по строчкам"

Sheet4.Range("G4") = "Строчка"

Sheet4.Range("H4") = "Max"

For i = 1 To n

s = A(i, 1) 'max

Sheet4.Cells(i + 4, 7) = i

For j = 2 To n

If s < A(i, j) Then

s = A(i, j)

End If

Next j

Sheet4.Cells(i + 4, 9) = s Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат

Next i

End Sub

Sub rab6(n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range("H3") = "Max элементы по

столбцам"

Sheet4.Range("G4") = "Столбец"

Sheet4.Range("H4") = "Max"

For j = 1 To n

s = A(1, j) 'max

Sheet4.Cells(j + 4, 7) = j

For i = 2 To n

If s Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов - реферат < A(i, j) Then

s = A(i, j)

End If

Next i

Sheet4.Cells(j + 4, 9) = s

Next j

End Sub

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


razrabotka-proektiruemogo-tehnologicheskogo-processa.html
razrabotka-proektov-tipovih-normativov-shtatnoj-chislennosti-personala-po-osnovnim-funkciyam-funkcionalno-dolzhnostnim-gruppam-dlya-uchrezhdenij-kulturno-dosugovogo-tipa.html
razrabotka-programm-stimulirovaniya-truda-referat.html