Автоматизація розрахунків за допомогою програмного забезпечення

3.15 Автоматизація розрахунків за допомогою програмного забезпечення

Програмне забезпечення реалізовує введення даних в таблиці, їх обробку, і зберігання прийнято називати табличним процесором (ТП), або електронною таблицею. Прикладом такого програмного забезпечення служить інтегрована система Microsoft Exel.

Завдання, що вирішуються за допомогою ЭТ:

- ЭТ – це великий матричний калькулятор, призначений для розрахунку даних по деяких формулах;

- ЭТ використовується для розрахунку даних по встановлених формулах в режимі, що регламентується;

- ЭТ використовується для моделювання результатів ухвалення рішень («.что буде, якщо.»);

- ЭТ має підсистему ділової графіки;

- для побудови програм економічного характеру ЭТ має вбудовану мову VBA.

Макропрграмування – це засіб автоматизації дій користувача. Макрос – це програма, що містить список інструкцій, які треба передати Microsoft Exel для виконання.

Розрізняють три типи макросів:

1)         командні макроси – містять операторів-еквівалентів команд Microsoft Exel; відмінна риса – зміна середовища, тобто створення таблиці, робочого листа і т.д.;

2)         функціональні макроси – працюють аналогічно встроеены функціям Microsoft Exel, тобто приймають параметри, змінюють їх і виділяють результат;

3)         макрос-программи – це комбінація командних і функціональних макросів.

Командні макроси можуть бути організовані двома способами:

- автоматичена запис дій користувача;

- запис інструкцій на VBA.

Функціональні макроси і макроси-підпрограми створюються тільки редактором VBA.У даній роботі розроблені макроси, що дозволяють автоматизувати дії працівників служби маркетингу по створенню продуктових стратегій підприємства та службовців, що розробляють маркетингові стратегії (дод.1).

Рис. 3.2. Авторизація користувача даного програмного продукту

При відкритті потрібного файлу «.xls» треба пройти авторизацію (ввести свої ім’я та пароль) — це забезпечить цілісність нашої інформації:

Потім з’являється інше вікно, в якому можна зробити всі необхідні операції з вибраною таблицею:

—     будування макету таблиці;

—     форматування;

—     заповнення;

—     розрахунок необхідних параметрів.

Рис. 3.3. Форматування таблиці

У разі якщо система знаходить помилку у програмі, на екрані з’являється діалогове вікно, яке свідчить про те, що необхідно запустити відладчик програми, який вкаже на ту строку написаного макроса, де була знайдена помилка. Виправивши її, програма буде працювати коректно.

Рис. 3.4. Розрахунок необхідних параметрів

 

Висновок по розділу

Проаналізувавши даний розділ можна зробити висновок, що основними передумовами створення й існування централізованого збуту продукції важкого машинобудування є конкуренція, право власності, економічна незалежність і якість продукції.

Функціонування нормалізованого збуту можна звести до найпростішої схеми взаємодії попиту та пропозиції. При недостатній пропозиції якогось виду товару ціни на нього зростають, і авансування капіталу в цю галузь стає найбільш рентабельним. Після того, як у сфері виробництва даної продукції виникають нові підприємства (або розширюються діючі), обсяг товару на ринку починає рости й урівноважує попит на нього. У цей момент продукція реалізується по найбільш справедливих цінах, і саме таке положення є найбільш бажаним для нормалізованого збуту взагалі. У випадку подальшого нарощування обсягів виробництва попит на цей товар відстає від пропозиції, ціни на нього падають, і починається процес відтоку капіталу з даного сектора.

Питання забезпечення БЖД працівників фірм і підприємств і донині є актуальним, що обумовлено насамперед тим, що протягом останніх років збільшується несприятлива ситуація в промисловості з охороною праці, а в ОС - з якістю природного середовища. Ростуть число й масштаби техногенних ЧС. У промисловості росте рівень виробничого травматизму й професійної захворюваності. Ростуть і масштаби забруднення атмосфери.

Ріст масштабів виробничої діяльності, розширення області застосування технічних систем, автоматизація виробничих процесів приводять до появи нових несприятливих факторів виробничого середовища, облік яких є необхідною умовою забезпечення ефективності діяльності й збереження здоров'я працівників. Тому в даній роботі були розглянуті можливі вражаючі, небезпечні й шкідливі фактори виробничого середовища, також були описані методи й засоби забезпечення БЖД працівників, основні заходи щодо електробезпечності, охороні ОС, попередженню пожеж й аварій у приміщенні й ліквідації наслідків ЧС. Крім того, особлива увага була приділена розрахунково-конструктивним рішенням по основним СКЗ працівників приміщення при нормальному й аварійному режимах роботи.

Також в даному розділі за допомогою редактора Visual Basic for Applications були розроблені макроси, що дозволяють автоматизувати дії працівників служби маркетингу по створенню продуктових стратегій підприємства та службовців, що розробляють маркетингові стратегії, використовуючи показники результативності збутової діяльності підприємства у порівнянних цінах.

ВИСНОВОК

 

Велике значення комерційної діяльності по збуті визначається тим, що обсяг збуту продукції підприємства визначає інші показники: доходи, прибуток, рівень рентабельності й у цілому остаточно формує результати діяльності підприємства.

Комерційна діяльність по збуті продукції на підприємстві багатогранна: вона починається з координації інтересів підприємства - виробника з вимогами ринку й містить у собі планування асортиментів і збуту продукції, формування портфеля замовлень підприємства, розподілу готової продукції по каналах збуту й регіонам, приймання готової продукції від цехів - виготовлювачів, підготовці її до відвантаження, тобто впакування, маркування, комплектування по вантажоодержувачах, оформлення документів, пов'язаних з відвантаженням, розробку планів - графіків відвантаження, контроль за виконанням замовлень покупців і платоспроможністю клієнтів.

Важливу роль у комерційній діяльності по збуті грає планування асортиментів продукції, тобто обґрунтований вибір виробів для виробництва й збуту. Ця робота повинна проводиться як по нових виробах, так і по тих що вже раніше випускалися на підприємстві.

Планування збуту на відомому ринку полягає у формуванні портфеля замовлень підприємства. Основним змістом планування збуту на вільному ринку є, прогнозування збуту продукції, розробка плану збуту, вибір найбільш ефективних каналів збуту й розподілу обсягу збуту по регіонах.

Заключною частиною комерційної діяльності по збуті продукції є оперативно - збутова робота, по своєму змісті складається з: розробки планів - графіків відвантаження готової продукції покупцям, приймання готової продукції від цехів - виготовлювачів і підготовці її до відправлення покупцям, організації відвантаження продукції покупцям і оформлення документів, пов'язаних з відвантаженням, контролю за виконанням замовлень покупців і платоспроможністю клієнтів.

Плани-графіки відвантаження готової продукції покупцям є засобом координації планів збуту із планами виробництва.

При підготовці товарів до відправлення покупцям велика увага повинне бути приділена правильному оформленню наступних документів: засвідчуючих кількість, якість і комплектність товарів, що відвантажують, (пакувальний аркуш, специфікація, сертифікат якості, комплектувальна відомість), товаросупроводжувальних (товарно-транспортна накладна, залізно-дорожня накладна, коносамент), рахунок на оплату товару, що відвантажує.

АНОТАЦІЯ

 

Дана робота присвячена вдосконаленню керування збутом ДП «Електротяжмаш».

Актуальність вибраної теми обумовлена тим, що саме керування збутом продукції відіграє важливу роль в успіху економічної діяльності компанії. Доказом тому служать процвітаючі компанії, що оперують в самих різних галузях і умовах ринкової конкуренції, керуючись в своїй діяльності стратегіями ринкової орієнтації. В умовах розвиненого ринку саме розробка і застосування стратегій керування збутом – одна з найважливіших функцій керівників фірм вищої ланки.

Об’єктом досліджень є ДП «Електротяжмаш».

Робота містить три розділи. У роботі розглянутий стан і тенденції розвитку одного з найбільш процвітаючих ринків України – ринку продукції важкого машинобудування, а так само вибрана і проаналізована основна стратегія керування збутом ДП «Електротяжмаш», направлена на підтримку і розвиток конкурентної сили підприємства з метою збереження і зміцнення позицій на ринку в умовах зростаючої конкуренції

Основою для створенн стратегії керування збутом послужили дослідження і аналіз стану ринку продукції важкого машинобудування, внутрішнього середовища підприємства, стратегічних планів розвитку, докладне вивчення стану всіх бізнес-одиниць підприємства, проведений глубокий аналіз збутової діяльності.

Запропонована в роботі стратегія керування збутом направлена на подальше зростання підприємства, покликана йому сприяти і може бути застосована на практиці як основна стратегія будь-якого підприємства важкого машинобудування, що має достатній фінансовий потенціал.

СПИСОК ЛІТЕРАТУРИ

 

1.  Абалкин Л.И. Курс переходной экономики. – М.: Финстатинформ, 1997.

2.  Абалкин Л.И. Выбор за Россией. – М.: Институт экономики РАН, 1998

3.  Алешина И. Паблик рилейшнз для менеджеров и маркетеров, - М.: ТАНДЕМ, 1997.

4.  Ауимова И.М. Промышленный маркетинг. – К.: об – во «Знание», КОО, - 200 – 257 с.

5.  Ансофф И. Стратегическое управление / Пер. с англ. – М.: Прогресс, 1989 – 519 с.

6.  Ассель Г. Маркетинг: принципы и стратегия: Учебник для вузов. – М.: ИНФРА – М, 1999 – 804 с.

7.  Багиев Г.Л., Тарасевич В.М., Холгер А. Маркетинг: Учебник для вузов. – М.: ОАО из – во «Экономист», 2001. – 703 с.

8.  Бачурин А.В. Рынок и подъем экономики России. – М.: РАГС, 1996 – 79 с.

9.  Блэк С. Паблик рилейшнз. Что это такое ?: Пер. с англ. – М.: Новости, 1990 – 125 с.

10.    Бузько И.Р., Дмитриенко И.Е., Сущенко О.А. стратегический потенциал и формирование приоритетов в развитии предприятий. Монография. – Алчевск: из – во ДГМИ, 2002 – 216 с.

11.    Бузько И.Р., Варатпова О.В., Голубенко В.О. Стратегическое управление инвестициями и инвестиционная деятельность предприятия. Монография. – Луганск: из – во СНУ им. В. Даля, 2002. – 176 с.

12.    Валовой Д.В. Рыночная экономика. Возникновение, эволюция и сущность. М.: ИНФРА, 1997. – 98 с.

13.    Воронкова А.Э. Стратегическое управление конкурентоспособным потенциалом предприятия: диагностика и организация. Монография. – Луганск из – во ВУНУ , 2002. – 315 с.

14.    Винокуров В.А. Организация стратегического управления на предприятии. – М.: Центр экономики и маркетинга, 1996 – 160 с.

15.    Выбор модели рыночной экономики и приоритеты экономической политики в России / Под. Ред. Э.П. Дунаева, А.К. Шуркалина – М.: Диалог, 1998, - 194 с.

16.    Гаджиев В.К. Геополитика. – М.: Международные отношения, 1997, - 267 с.

17.    Герасимчук В.Г. Стратегическое управление предприятием. Графическое моделирование: Науч. Пособ. – К.: КНЕУ, 2000 – 360 с.

18.    Герчикова И.Н. Практикум по изучению иностранных фирм. – М.: МГИМО, 1996, - 87 с.

19.    Голубков Е.П. Маркетинговые исследования: теория, практика и методология. – М.: Финпресс, 1998, - 268 с.

20.    Голубков Е.П. Маркетинг: стратегии, планы, структуры. – М.: Дело, 1995. – 192 с.

21.    Голубков Е.П. Основы маркетинга: Учебник. – М.: Изд. «Финпресс», 1999. – 656 с.

22.    Гончаров В.Н., Бурбело О.А., Вавин А.И. Эффективность производственной инфраструктуры предприятия. Научно методические разработки. – Луганск, ВУГУ, 1994. – 165 с.

23.    Диксон Р. Питер. Управление маркетингом / Пер. с англ. – М.: ЗАО «Издательство БИКОМ», 1998. – 560 с.

24.    Дубницкий В.И., Пилющенко В.Л. Инфраструктура товарного рынка: Учебн. Пособие. – Донецк. ДонГАУ, 2001. – 513 с.

25.    Дэй Д. Стратегический маркетинг. – М.: Изд – во ЭКСМО – Пресс, 2002. – 640 с.

26.    Калашников В.А. Рынок. Бизнес. Коммерция. Экономика. Толковый терминологический словарь. – М.: ИВЦ Маркетинг, 1998. – 56 с.

27.    Козаченко А.В. Механизм стратегического управления крупными производственно – финансовыми системами промышленности. – Донецк: ИЭП НАН Украины, 1998. – 348 с.

28.    Козаченко А.В. Коммерческая деятельность предприятия: стартегия, организация, управление: Учебн. Пособие / под ред. В.К. Козлова, С.А. Уварова. – СПб.: Политехника, 2000. – 322 с.

29.    Коммерческо – посредническая деятельность на товарном рынке / Под ред. А.В. Зырянова. – Екатеринбург: Солярис, 1995. – 154 с.

30.    Коринев В.Л. Ценовая политика предприятия. Монография. – К.: КНЕУ, 2001. – 257 с.

31.    Котлер Ф. Основы маркетинга / Пер. с англ. – М.: Прогресс, 1992 – 734 с.

32.    Котлер Ф. Основы маркетинга / Пер. с англ. – 2-е европ. Изд. – М.: СПб; К.: Изд. дом «Вильямс», 2000. – 944 с.

33.    Курс предпринимательства / Под ред. В.Я. Горфинкеля, В.А. Швандара. – М.: ЮНИТИ, 1997. – 456 с.

34.    Леонтьев В.В. Межотраслевая экономика. – М.: Экономика, 1997. – 128 с.

35.    Лялинков А.К. Переход России к рыночной экономике: чем нам полезен опыт других стран. – М.: ИЧП Магистр, 1997. – 145 с.

36.    Менеджмент / Под. Ред. М.М. Максимцова, А.В. Игнатьевой. – М.: ЮНИТИ, 1998. – 465 с.

37.    Моисеева Н.К. Международный маркетинг. – М.: Центр экономики и маркетинга, 1998. – 256 с.

38.    Нагапетянц Н.А. Прикладной маркетинг. – М.: ЮНИТИ – ДАНА, 2002. – 287 с.

39.    Наливайко А.П. Теория стратегии предприятия. Современный этап и направления развития. – К.: КНЕУ, 2001. – 227 с.

40.    Николаева Г.А., Щур Д.Л. Оптовая торговля. – М.: Приор, 1998. – 345 с.

41.    Океанова З.К. Социально – этический – маркетинг. – М.: Вердикт – ИМ, 1997. – 189 с.

42.    Осипова Л.В., Основы комерческой деятельности. Практикум. – М.: ЮНИТИ, 1997. – 257 с.

43.    Осипова Л.В., Основы комерческой деятельности. – М.: ЮНИТИ, 1997. – 124 с.

44.    Прокущев Е.Ф. Внешнеэкономическая деятельность. – М.: ИВЦ «Маркетинг», 1998. – 386 с.

45.    Россия в цифрах. – М.: Госкомстат РФ, 1998. – 134 с.

46.    Синяева И.М. Паблик рилейшнз. – М.: ЮНИТИ, 1998. – 380 с.

47.    Сосунова Л.А. Макроэкономическая концепция коммерции услуг. – Спб.: СПбУЭФ, 1997. – 175 с.

48.    Тенденции экономического развития в России в 1 квартале 1998 // Деньги и кредит. – 1998. – № 4.

49.    Фомичев В.И. Международная торговля. – М.: Инфра – М, 1998. – 492 с.

50.    Френкель А.А. Экономика России в 1992 – 1997 гг. Тенденции, анализ, прогноз. – М.: ФИНСТАТИНФОРМ, 1997. – 497 с.

51.    Шопенко В.Д. Организационно – экономический механизм реструктуризации предприятия. – Спб.: РАН, 1998. – 258 с.

52.    Дубовцев В.А. Безопасность жизнедеятельности. / Учеб. пособие для дипломни­ков. - Киров: изд. КирПИ, 1992.

53.    Мотузко Ф.Я. Охрана труда. – М.: Высшая школа, 1989. – 336с.

54.    Безопасность жизнедеятельности. /Под ред. Н.А. Белова - М.: Знание, 2000 - 364с.

55.    Самгин Э.Б. Освещение рабочих мест. – М.: МИРЭА, 1989. – 186с.

56.    Справочная книга для проектирования электрического освещения. / Под ред. Г.Б. Кнорринга. – Л.: Энергия, 1976.

57.    Борьба с шумом на производстве: Справочник / Е.Я. Юдин, Л.А. Борисов; Под общ. ред. Е.Я. Юдина – М.: Машиностроение, 1985. – 400с., ил

Додаток 1

Макроси, що дозволяють автоматизувати дії працівників служби маркетингу по створенню продуктових стратегій підприємства:

Private Sub Workbook_Open()

UserForm2.Show

End Sub

Sub main()

UserForm1.Show

End Sub

Sub СТ()

'

' СТ Макрос

''

 Sheets("1").Select

 Range("A1:G2").Select

 Selection.Copy

 Sheets("2").Select

 Range("A1").Select

 ActiveSheet.Paste

 Sheets("1").Select

 Range("A3:A8").Select

 Application.CutCopyMode = False

 Selection.Copy

 Sheets("2").Select

 Range("A3").Select

 Sheets("2").Select

 ActiveSheet.Paste

 Sheets("1").Select

 Range("B3:B8").Select

 Application.CutCopyMode = False

 Selection.Copy

 Sheets("2").Select

 Range("B3").Select

 ActiveSheet.Paste

 Range("C3:G8").Select

 Application.CutCopyMode = False

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone

 Selection.Borders(xlDiagonalUp).LineStyle = xlNone

 With Selection.Borders(xlEdgeLeft)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeTop)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeBottom)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeRight)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlInsideVertical)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlInsideHorizontal)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 Range("A1:A2").Select

 With Selection

 .HorizontalAlignment = xlCenter

 .WrapText = False

 .Orientation = 0

 .AddIndent = False

 .IndentLevel = 0

 .ShrinkToFit = False

 .ReadingOrder = xlContext

 .MergeCells = False

 End With

 Selection.Merge

 ActiveCell.FormulaR1C1 = "№"

 Range("B1:B2").Select

 With Selection

 .HorizontalAlignment = xlCenter

 .VerticalAlignment = xlCenter

 .WrapText = False

 .Orientation = 0

 .AddIndent = False

 .IndentLevel = 0

 .ShrinkToFit = False

 .ReadingOrder = xlContext

 .MergeCells = False

 End With

 Selection.Merge

 Range("A8:B8").Select

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone

 Selection.Borders(xlDiagonalUp).LineStyle = xlNone

 With Selection.Borders(xlEdgeLeft)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeTop)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeBottom)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeRight)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlInsideVertical)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 Range("B14").Select

 ActiveWindow.SmallScroll Down:=-9

End Sub

Sub Форматирование()

'

' Форматирование Макрос

' Макрос записан 10.06.2008 (Managers)

''

 Columns("B:B").Select

 Selection.ColumnWidth = 30

 Rows("1:8").Select

 Range("C1").Activate

 Rows("1:8").EntireRow.AutoFit

 Range("A1:G8").Select

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone

 Selection.Borders(xlDiagonalUp).LineStyle = xlNone

 With Selection.Borders(xlEdgeLeft)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeTop)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeBottom)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeRight)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlInsideVertical)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 Range("A1:G2").Select

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone

 Selection.Borders(xlDiagonalUp).LineStyle = xlNone

 With Selection.Borders(xlEdgeLeft)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeTop)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeBottom)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeRight)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlInsideVertical)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlInsideHorizontal)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 Range("F1:F8").Select

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone

 Selection.Borders(xlDiagonalUp).LineStyle = xlNone

 With Selection.Borders(xlEdgeLeft)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeTop)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeBottom)

 .LineStyle = xlContinuous

 .Weight = xlThick

 .ColorIndex = xlAutomatic

 End With

 Range("A3:A8").Select

 Selection.Font.ColorIndex = 1

 Selection.Font.ColorIndex = 6

 With Selection.Interior

 .ColorIndex = 1

 .Pattern = xlSolid

 End With

 Selection.Font.Bold = True

 With Selection.Font

 .Name = "Arial"

 .Size = 12

 .Strikethrough = False

 .Superscript = False

 .Subscript = False

 .OutlineFont = False

 .Shadow = False

 .Underline = xlUnderlineStyleNone

 .ColorIndex = 6

 End With

 With Selection.Font

 .Name = "Bookman Old Style"

 .Size = 12

 .Strikethrough = False

 .Superscript = False

 .Subscript = False

 .OutlineFont = False

 .Shadow = False

 .Underline = xlUnderlineStyleNone

 .ColorIndex = 6

 End With

 Range("A1:G2").Select

 With Selection.Interior

 .ColorIndex = 6

 .Pattern = xlSolid

 End With

 Selection.Font.ColorIndex = 1

 Selection.Font.Bold = True

 With Selection.Font

 .Name = "Monotype Corsiva"

 .Size = 10

 .Strikethrough = False

 .Superscript = False

 .Subscript = False

 .OutlineFont = False

 .Shadow = False

 .Underline = xlUnderlineStyleNone

 .ColorIndex = 1

 End With

 Selection.Font.Bold = False

 With Selection.Font

 .Name = "Monotype Corsiva"

 .Size = 12

 .Strikethrough = False

 .Superscript = False

 .Subscript = False

 .OutlineFont = False

 .Shadow = False

 .Underline = xlUnderlineStyleNone

 .ColorIndex = 1

 End With

 Selection.Font.Bold = True

 Selection.Font.Bold = False

 With Selection.Font

 .Name = "Monotype Corsiva"

 .Size = 14

 .Strikethrough = False

 .Superscript = False

 .Subscript = False

 .OutlineFont = False

 .Shadow = False

 .Underline = xlUnderlineStyleNone

 .ColorIndex = 1

 End With

 Range("B3:B8").Select

 With Selection.Interior

 .ColorIndex = 43

 .Pattern = xlSolid

 End With

 Range("A1:A2").Select

 With Selection

 .HorizontalAlignment = xlCenter

 .VerticalAlignment = xlCenter

 .WrapText = False

 .Orientation = 0

 .AddIndent = False

 .IndentLevel = 0

 .ShrinkToFit = False

 .ReadingOrder = xlContext

 .MergeCells = True

 End With

 Range("B14").Select

End Sub

Sub Заполнение()

'

' Заполнение Макрос

' Макрос записан 10.06.2008 (Managers)

''

 Sheets("1").Select

 Range("C3:C8").Select

 Selection.Copy

 Sheets("2").Select

 Range("C3").Select

 ActiveSheet.Paste

 Sheets("1").Select

 Range("D3:D8").Select

 Application.CutCopyMode = False

 Selection.Copy

 Sheets("2").Select

 Range("D3").Select

 ActiveSheet.Paste

 Sheets("1").Select

 Range("E3:E8").Select

 Application.CutCopyMode = False

 Selection.Copy

 Sheets("2").Select

 Range("E3").Select

 ActiveSheet.Paste

 Range("A1:G2").Select

 Selection.Font.ColorIndex = 5

 Range("F11").Select

 Sheets("2").Select

 ActiveWorkbook.Sheets("2").Tab.ColorIndex = 3

 Sheets("1").Select

 ActiveWorkbook.Sheets("1").Tab.ColorIndex = 44

 Sheets("3").Select

 ActiveWorkbook.Sheets("3").Tab.ColorIndex = 6

 Range("D41").Select

 Sheets("2").Select

End Sub

Sub Рассчет()

'

' Рассчет Макрос

'

'

 Range("F3").Select

 ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-3]"

 Range("F3").Select

 ActiveCell.FormulaR1C1 = "=(RC[-1]/RC[-3])*100"

 Range("F3").Select

 Selection.NumberFormat = "#,##0.00"

 Selection.AutoFill Destination:=Range("F3:F8"), Type:=xlFillDefault

 Range("F3:F8").Select

 With Selection

 .HorizontalAlignment = xlCenter

 .VerticalAlignment = xlBottom

 .WrapText = False

 .Orientation = 0

 .AddIndent = False

 .IndentLevel = 0

 .ShrinkToFit = False

 .ReadingOrder = xlContext

 .MergeCells = False

 End With

 With Selection

 .HorizontalAlignment = xlCenter

 .VerticalAlignment = xlCenter

 .WrapText = False

 .Orientation = 0

 .AddIndent = False

 .IndentLevel = 0

 .ShrinkToFit = False

 .ReadingOrder = xlContext

 .MergeCells = False

 End With

 Range("F8").Select

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone

 Selection.Borders(xlDiagonalUp).LineStyle = xlNone

 With Selection.Borders(xlEdgeLeft)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeTop)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeBottom)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeRight)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 Range("G3").Select

 ActiveCell.FormulaR1C1 = "=(RC[-2]/RC[-3])*100"

 Range("F3").Select

 Selection.Copy

 Range("G3").Select

 Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

 SkipBlanks:=False, Transpose:=False

 Application.CutCopyMode = False

 Selection.AutoFill Destination:=Range("G3:G8"), Type:=xlFillDefault

 Range("G3:G8").Select

 Range("G3:G8").Select

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone

 Selection.Borders(xlDiagonalUp).LineStyle = xlNone

 With Selection.Borders(xlEdgeLeft)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeTop)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeBottom)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeRight)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 Range("G8").Select

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone

 Selection.Borders(xlDiagonalUp).LineStyle = xlNone

 With Selection.Borders(xlEdgeLeft)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeTop)

 .LineStyle = xlContinuous

 .Weight = xlThin

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeBottom)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 With Selection.Borders(xlEdgeRight)

 .LineStyle = xlContinuous

 .Weight = xlMedium

 .ColorIndex = xlAutomatic

 End With

 Range("F17").Select

End Sub

Sub Очистка()

'

' Очистка Макрос

' Макрос записан 10.06.2008 (Managers)

''

 Range("A1:H9").Select

 Selection.Clear

 Columns("B:B").ColumnWidth = 10.14

 Columns("F:F").ColumnWidth = 9

 Columns("G:G").ColumnWidth = 10.57

 Columns("A:A").ColumnWidth = 9.57

 Range("H19").Select

End Sub