Использование VBA при решении задач в EXCEL

Содержание:

 

1. Введение……………………………………………………. 2 стр

 

2. Контрольная работа. Использование VBA при решении

      задач в EXCEL. ……………………………………………. 3 стр

3. Содержание контрольной работы……………………….… 6 стр

 

4. Выполнение контрольной работы…. ……………………... 7 стр

 

5. Список использованной литературы....…………………….11стр

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Введение.

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

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

Сегодня обработка экономической  информации стала самостоятельным  научно-техническим направлением с  большим разнообразием идей и  методов. Отдельные компоненты процесса обработки данных достигли высокой  степени организации и взаимосвязи, что позволяет объединить все  средства обработки информации, на конкретном экономическом объекте  понятием "экономическая информационная система" (ЭИС). Детальное изучение ЭИС опирается на понятия "информация" и "система", к которым мы и  переходим.

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

 

 

 

 

 

 

 

 

 

Контрольная работа

Использование VBA при решении задач в EXCEL

Цель контрольной работы

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

Application, Workbook, Worksheet, Range.

Основные сведения об объектах, методах и свойствах  EXCEL

В модели объектов Excel имеются более 100 объектов и семейств. Однако, практически использование только небольшого количества объектов достаточно, чтобы выполнить большинство всех возможных действий. Наиболее часто используемыми объектами являются объекты Application, Workbook (Workbooks), Worksheet (Worksheets) и Range.

1) Application (приложение) - само приложение MS EXCEL в целом. Включает глобальные устанавливаемые параметры (стиль ссылок, режим проведения вычислений) и встроенные функции MS EXCEL.

Объект  Application.Excel имеет свойство-участник (встроенный объект) Workbooks, возвращающее Workbooks - коллекцию всех открытых книг. Каждый элемент коллекции - рабочая книга - является объектом класса Workbook.

Свойствами объекта Application являются:

ActiveWorkbook - активная рабочая книга

ActiveWindow - активное окно

 

Например:

MsgBox "имя активной рабочей книги" & ActiveWorkbook.Name

Методы объекта Application:

Quit - завершает работу с EXCEL;

Undo - отменяет последнее выполненное действие

2) Workbook (рабочий лист) - объект этого класса определяет состояние рабочей книги. Например, не является ли она доступной только для чтения, или какой из листов рабочей книги активен в настоящий момент. К этому классу принадлежит объект ActiveWorkbook (активная в настоящий момент рабочая книга).

Объект  Workbook, представляющий одну рабочую книгу, имеет свойство Sheets. При обращении к этому свойству возвращается объект Sheets - коллекция листов данной книги. Каждый элемент коллекции - лист - имеет свой тип и поэтому является объектом класса Worksheet (рабочий лист) или Chart (диаграмма).

Свойства объект Workbook:

ActiveSheet - активный рабочий лист

Name - имя рабочей книги

Методы объекта Workbook

Activate -активизирует рабочую книгу

Close - закрывает рабочую книгу

Save - сохраняет рабочую книгу

3) Worksheet (рабочий лист) - Объект этого класса используется при копировании и удалении рабочих листов, их скрытии и показе, проведении вычислений для формул рабочего листа. К этому классу принадлежит объект ActiveWorksheet (активный в настоящий момент рабочий лист).

Свойства объекта Worksheet:

Name - имя рабочего листа

Previous - предыдущий рабочий лист

Visible - режим видимости рабочего листа (скрыт или показан)

Методы объекта Worksheet

Activate - активизирует рабочий лист

Calculate - заново вычисляет значения в ячейках рабочего листа

Delete - удаляет рабочий лист Protect - защищает рабочий лист

Объект Worksheet, представляющий один рабочий лист, имеет свойство Cells, возвращающее объект Range. Он может задавать как все ячейки рабочего листа, так и любую ее часть.

4) Range (интервал). Объект этого класса позволяет изменять свойства интервала ячеек (например, шрифт), проверять или изменять содержимое ячеек, вырезать или копировать интервал и так

далее.

К основным свойствам объекта Range относятся:

Cells, Columns, Rows - возвращают коллекции ячеек, столбцов или строк, входящие в объект Range.

Column, Row - возвращают соответственно номер первого столбца или первой строки в области объекта Range позволяет прочесть или задать формулу в формате А1 или в формате R1C1.

Value - значение указанной ячейки. Если она пуста, то возвращается значение Empty, что можно проверить, вызвав функцию IsEmpty.

Font - используемый в интервале шрифт

Formula - формула интервала

Name - имя интервала

Синтаксис установки  значения объекта:

Объект.Свойство = значение

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

1) Числовое  значение.

Например, для  установки размера шрифта:

ActiveCell.Font.Size = 14

2) Строка  символов.

Например:

ActiveCell.Font.Name = "Courier New Cyr"

3) Логическое значение:

ActiveCell.Font.Italic = True

К основным методам объекта Range относятся:

Clear - полностью очищает интервал (в том числе и форматирование)

ClearContents - очищает содержимое ячеек интервала

ClearFomats - очищает форматирование ячеек интервала

Copy - копирует интервал в буфер обмена

Offset - возвращает интервал с указанным смещением относительно первоначального интервала

Paste - вставляет содержимое буфера обмена в интервал Select - выделяет интервал Синтаксис вызова метода объекта:

Объект.Метод[аргументы]

Например:

Range("Al:B2").Select

 

 

Содержание контрольной  работы 

Создать таблицу на листе. Таблица содержит информацию о машинах(«Марка», «гос.номер», «ФИО владельца», «Год выпуска автомобиля»).

Требуется написать VBA-код для заполнения таблиц. Ввод информации в исходные таблицы  должен быть организован с использованием пользовательских диалоговых окон (форм).

 

 

 

 

 

Таблица 1

Марка	Гос.номер	ФИО владельца	Год выпуска
ВАЗ 2114	К388НРК499	Баранов А.А.	1998
ВАЗ2107	А19939RUS	Потемкина С.В.	2003
Ford	KK 57o677RUS	Радина О.О.	2005
Audi A6	O58M1188	Скородум М.Л.	1994
Chevrolet	M971MM77	Орешкин И.С.	2008

 

 

 

Выполнение контрольной  работы

1. Загрузить  EXCEL.

2. Перейти  в редактор VBA. (Сервис\Макрос\Редактор Visual Basic).

3. Добавить  форму в проект. (Вставка\UserForm).

4. Переименовать  форму в «Растение»

5. В форму  "Машины" добавить 4 поля с именами  ComboBox1, ComboBox2, TextBox1,  TextBox2. Рядом с  этими полями соответственно добавить надписи: «Марка», «гос.номер», «ФИО владельца», «Год выпуска автомобиля»  и две кнопки:

Name - CommandButton1. Caption - "Сохранить"

       Name – CommandButton2, Caption - "Выйти".

6. Проверить  вид формы (Запуск\3апуск подпрограммы/UserForm)

9. Назначить  кнопке соответствующую процедуру  (VBA-код).

Для этого  дважды щелкнуть по вставленной в  формы кнопок в режиме конструктора и ввести в окне редактора VBA текст  соответствующей процедуры.

 В форме  "Машины" кнопке CommandButton1 ("Сохранить") назначить процедуру:

 

Private Sub CommandButton1_Click()

Dim Place As Object, Lib As Object

Set Place = Sheets("Лист2")

Set Lib = Sheets("Лист1")

Dim i As Integer

If TextBox1 = "" Then

   MsgBox ("ФИО владельца")

   TextBox1.SetFocus

   Exit Sub

End If

If TextBox2 = "" Then

   MsgBox ("Год выпуска")

   TextBox2.SetFocus

   Exit Sub

End If

Worksheets("Лист1").Activate

For i = 2 To 20

   If Lib.Cells(i, 1) = "" Then

      Lib.Cells(i, 1) = ComboBox1.Value

      Lib.Cells(i, 2) = ComboBox2.Value

      Lib.Cells(i, 3) = TextBox1.Value

      Lib.Cells(i, 4) = TextBox2.Value

      Exit For

    End If

Next

Unload Me

End Sub

 

Private Sub CommandButton2_Click()

        Unload Me

End Sub

 

 

Private Sub UserForm_Activate()

With ComboBox1

  .RowSource = "Лист2!A1:A6"

  .ListIndex = 0

End With

With ComboBox2

  .RowSource = "Лист2!C1:C9"

  .ListIndex = 0

End With

 

End Sub

 

10. Вставить  в модуль (Модуль1) процедуру Calculation, для этого в окне проекта (Вид\Окно проекта) предварительно выделить Модуль1 и ввести текст:

 

Public Sub машины_Сlick()

Module1.Show

End Sub

 

11. Добавить  на рабочий лист кнопку:

Name – Module1, Caption - " машины "

 

12. Используя  кнопку " машины " на рабочем листе, выполнить построенное приложение.

 

 

 

 

 

 

 

 

 

 

 

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ.

 

1.   А.В.Костров "Основы информационного менеджмента" – М., "Финансы и статистика", 2006

2. "Информатика" / Под ред. Макаровой Н.В. –  М., "Финансы и  статистика", 2005

3. С.И.Майоров "Информационный бизнес: коммерческое распространение и маркетинг" – М., "Финансы и статистика", 2004

4. В.Н. Костюк "Информация как социальный и экономический ресурс" – М., "Финансы и статистика", 2006

5.  Алешин, зам. Минсвязи, Пленарный доклад. Конференция Будущее электронных коммуникаций", М.: 2003

6. Родионов И.И.Мировой рынок информационных услуг: электронная деловая коммерческая информация. Серия "Технология электронных коммуникаций", т.13,М.,2005

7. Бусыгин А.Я. Предпринимательство: Учебник. – М.: Высшая школа