%, факт

до попе-реднього періоду

1

2

3

4

5

6

7

Обсяг випуску продукції підприємства

тонн

30667

30600

-67

99,78%

Обсяг товарної продукції підприємства

тис. грн.

3960

4035

75

101,89%

Середня ціна продукції

грн./т

129,1

131,9

2,8

102,17%

Збільшення витрат матеріалів на ОЗ за місяць

тис. грн.

119,69

120,68

0,99

100,83%

Збільшення витрат електроенергії за рахунок ОЗ за місяць

тис. грн.

39,87

40,21

0,34

100,85%

Збільшення витрат на оплату праці за рахунок ОЗ за місяць

тис. грн.

44,54

45,736

1,196

102,69%

Як бачимо з таблиці 3.5, збільшення ціни на продукцію, яке не пов'язане з поліпшенням її якості, становило 2,8 грн./т. Оскільки зростання цін у періоді, що аналізується не пов'язане із зміною якості продукції, то загальне збільшення вартості товарної продукції за рахунок зростання ціни складає:

?Q_н = 2,8Ч30600 = 85680 грн.

Тепер розрахуємо збільшення витрат, яке пов'язане з утриманням, експлуатацією і ремонтом основних засобів:

?З_оф = 120680+40210+45736 = 206626 грн.

Таким чином, величина місячної фактичної фондовіддачі становить:

Ф_в^ф_ід = (4035000-85680-206626)/23438000 = 0,1597

Якщо обчислювати показник місячної фондовіддачі за формулою співвідношення обсягу випуску та вартості основних фондів, тобто:

Ф_від= ? Q_п^ф ,

Ф_а^ф

то величина такого показника фондовіддачі буде дорівнювати:

Ф_від = 4035000/23438000 = 0,1722

Розрахований таким чином показник фондовіддачі є завищеним на 7,83% (0,1722/0,1597Ч100%-100%) у порівнянні з фактичним значенням фондовіддачі (0,1597).

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

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

ДФ₁= ?Q_в , де

Ф_а^ф

ДQ_в - зниження обсягу випуску продукції підприємства у періоді, що аналізується, грн;

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

ДQ_в = 11506,78Ч131,9 =1717744,25 грн.

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

ДФ₁ = -1717744,25/23438000 = -0,0733.

Як бачимо, зменшення фондовіддачі викликане зниженням обсягу випуску продукції дорівнює досить істотній величині, яка складає 45,9% (0,0733/0,1597Ч100%) від загального фактичного розміру фондовіддачі.

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

ДФ₂ = ?З_оф , де

Ф_а^ф

?З_оф - збільшення витрат на випуск продукції підприємства під впливом основних фондів, грн;

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

ДФ₂ = -12856/23438000 = -0,000549.

Зменшення фондовіддачі викликане збільшенням витрат на випуск продукції підприємства під впливом основних фондів дорівнює 0,34% (0,000549/0,1597Ч100%) від фактичного розміру фондовіддачі.

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

ДФ₃ = ?Q_н , де

Ф_а^ф

?Q_н - збільшення вартості продукції, що випускається, яке не пов'язане з підвищенням якості, грн;

Таким чином, зменшення фондовіддачі внаслідок підвищення цін на продукцію, яке не пов'язане зі зростанням її якості у періоді, що аналізується, становить:

ДФ₃ = -85680/23438000 = -0,003656.

Зменшення фондовіддачі спричинене збільшенням вартості продукції, що випускається, яке не пов'язане з підвищенням якості дорівнює 2,29% (0,003656/0,1597Ч100%) від фактичного розміру фондовіддачі.

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

ДФ₄ = Ф_від ?? Q_в^ф , де

Ф_а^ф - ДФ_о

?Ф_о - загальна величина непродуктивного збільшення активної частини основних засобів підприємства, грн;

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

ДФ₄ = 0,1722-4035000/(23438000-5966330) = -0,0587.

Як показують розрахунки, зменшення фондовіддачі, яке спричинене непродуктивним збільшенням основних засобів підприємства складає досить значну величину, яка становить 36,76% (0,0587/0,1597Ч100%) від загального фактичного розміру фондовіддачі.

Отже, було встановлено, що протягом періоду, який аналізується на величину на ефективність використання основних засобів підприємства, тобто на величину фондовіддачі впливали: зменшення обсягу випуску продукції, внаслідок чого фондовіддача знизилася на 0,0733, підвищення затрат, пов'язане з основними фондами, що призвело до зменшення фондовіддачі на 0,000549, підвищення цін на продукцію, яке не обумовлене зростанням її якості спричинило зниження фондовіддачі на 0,003656, а також непродуктивним збільшенням основних засобів призвело до зниження показника фондовіддачі на 0,0587. Розрахуємо загальну величину зниження фондовіддачі, яка зумовлена впливом вищезазначених причин:

?Ф_від = ?Ф₁+?Ф₂ +?Ф₃+?Ф₄

?Ф_від = -0,0733-0,000549-0,003656-0,0587=-0,136205

Загальне зниження показника фондовіддачі становить 85,29% (0,136205/0,1597Ч100%) від фактичної величини фондовіддачі за період, який аналізується.

Результати аналізу ефективності використання основних фондів (фондовіддачі) доцільно представити у вигляді наступної таблиці:

Таблиця 3.6

Результати аналізу фондовіддачі за грудень 1999 р.

№	Причини, що спричинили зниження фондовіддачі	Величина зниження фондовіддачі	% зниження від показника фондовіддачі
1	2	3	4
1.	Зменшення обсягу випуску продукції	0,0733	45,9%
2.	Підвищення затрат, пов'язане з основними фондами	0,000549	0,34%
3.	Підвищення цін на продукцію не обумовлене зростанням її якості	0,003656	2,29%
4.	Непродуктивним збільшенням основних засобів	0,0587	36,76%
	Разом	0,136205	85,29%

Як бачимо, величина зниження фондовіддачі складає 85,29% її фактичної величини, отже, необхідно розробити і реалізувати заходи, які дозволили б усунути негативний вплив виявлених причин і сприяти зростанню ефективності використання основних засобів підприємства.

Таблиця 3.7

Заходи щодо збільшення ефективності використання основних фондів

№	Заходи, що пропонуються	Величина резерву
1	2	3
1.	Досягти збільшення обсягу випуску продукції за рахунок реалізації заходів, які були розроблені під час аналізу обсягу випуску продукції (розділ 2.1 даної роботи).	0,0733
2.	Досягти збільшення якості продукції, шляхом застосування технологій, які дозволяють істотно знизити вміст породи у вугіллі, що добувається, у випадку необхідності використати технології збагачення вугілля. Ввести в дію техніку і обладнання які б дозволили підвищити якість продукції, що виробляється. Придбання і впровадження нової техніки замість застарілої, що дозволило б підвищити якість продукції.	0,000549
3.	Зменшити витрати на утримання і експлуатацію основних фондів, шляхом встановлення жорстких нормативів витрат матеріалів і електроенергії на основні фонди підприємства і здійснення контролю за їх дотриманням. Позбутися або максимально скоротити непродуктивне збільшення техніки й обладнання, за рахунок реалізації обладнання, яке практично постійно простоює, а також зношеного обладнання, яке вимагає частих ремонтів, тобто перейти від часткового способу відтворювання основних засобів до повного. Це дозволило б істотно скоротити витрати, пов'язані із утриманням невживаного устаткування, а також ремонтом зношеної техніки.	0,003656
4.	Досягти повного усунення або значного скорочення непродуктивного збільшення основних фондів за рахунок переходу від значного способу відтворювання основних засобів до повного. Повний спосіб відтворювання дозволить позбавитися значних витрат на капітальний ремонт і утримання обладнання, оскільки цей спосіб відтворювання передбачає, що стара зношена техніка не зазнає постійних ремонтів (як при частковому способі відтворювання), а реалізується за залишковою вартістю, або здається в металобрухт, а замість цієї техніки буде придбаватися нове більш сучасне обладнання. Придбання нової техніки замість застарілого обладнання дозволить істотно скоротити непродуктивне збільшення основних фондів, за рахунок того, що зовсім невелика кількість техніки буде знаходитися у монтажі і демонтажі (при заміні старої зношеної техніки на нову), резерв устаткування можна істотно скоротити, оскільки нове обладнання набагато надійніше, ніж зношене, яке неодноразово зазнавало капітальних ремонтів. Крім переходу до повного способу відтворювання, скорочення величини основних засобів, яке практично не застосовуються, також можливо за рахунок виявлення і реалізації (або здача у металобрухт у разі істотного зношування) непотрібного обладнання або обладнання, що використовується на незначну частину своєї потенційної виробничої потужності. Також доцільно зробити реорганізацію структури устаткування таким чином, щоб забезпечити оптимальну (тобто відповідну найбільшій економічній віддачі) величину виробничої потужності. Слід однак враховувати, що при цьому необхідно буде зберегти можливість зміни виробничих потужностей, щоб мати можливість пристосовуватися до величини замовлень, що змінюється, а також можливих коливань ринкової кон'юнктури.	0,0587
	Разом	0,136205

Як показують результати розрахунку загального резерву підвищення фондовіддачі на підприємстві, досягти збільшення цього показника на 85,29% (0,136205/0,1597Ч100%), а отже й підвищити ефективність використання основних фондів, можливо за рахунок здійснення заходів, які наведені в таблиці 3.7.

Окрім розглянутого вище способу загальний резерв підвищення фондовіддачі також можна визначити по наступній формулі:

ДФ_в^р_ід = ?Q_в^ф+?Q_п +?З_оф Ф_від , де

Ф_а^ф - ДФ_о

?Q_п - можливе збільшення обсягу випуску продукції за рахунок підвищення як кількісних, так і якісних показників, грн;

?З_оф - можливе зменшення витрат підприємства, пов'язане з утриманням та експлуатацією основних фондів підприємства, грн;

?Ф_о - загальна величина непродуктивного збільшення активної частини основних засобів підприємства, грн;

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

?Q_п = 1717744,25+85680 = 1803424,25 грн.

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

?Ф_в^р_ід = (4035000 +1803424,25 +12856)/(23438000 - 5966330) -0,1722 = = 0,1637

Як бачимо, розрахована величина загального резерву фондовіддачі вельми істотна, вона становить 100,25% (0,1637/0,1597) від фактичної величини фондовіддачі (0,1597).

Таким чином, у разі реалізації вищенаведених заходів щодо підвищення ефективності використання основних фондів (див. таблицю 3.7), те величину фондовіддачі підприємства можна буде збільшити до 0,3234 (0,1597+0,1637), тобто до 200,25% (0,3234/0,1597) від фактичної величини фондовіддачі.

ВИСНОВОК

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

Загальна характеристика шахти імені О. О. Скочинського показує, що шахта розробляє вельми тонкі, але досить якісні вугільні пласти на відносно малих кутах падіння (до 10°), що дозволяють застосовувати погоризонтний спосіб розробки шахтного поля.

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

У другому розділі був зроблений загальний та детальний аналіз обсягу випуску та реалізації продукції підприємства.

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

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

Аналіз стану основних фондів показав, що на підприємстві застосовується частковий спосіб відтворювання, внаслідок якого техніка й обладнання підприємства є зношеними на 76,34%, а термін повного оновлення техніки становить близько 55,6 років. При цьому у безпосередній експлуатації знаходиться тільки 53,61% робочої техніки і устаткування підприємства. Аналіз фондовіддачі виявив відносно низьку ефективність використання основних фондів підприємства, збільшення якої можливе лише за рахунок переходу до повного способу відтворювання. Це дозволило б підвищити загальну величину фондовіддачі у періоді, що аналізується, на 0,1637.

ДОДАТОК 1 - ПРОГРАМА РОЗРАХУНКУ ПОКАЗНИКІВ

Attribute VB_Name = "Count_A"

Sub TP_Count()

Const k As Single = 1#

Dim t1 As Object, t2 As Object, t3 As Object, t4 As Object, t5 As Object, _

t6 As Object, t7 As Object, t8 As Object, t9 As Object, _

t10 As Object, t11 As Object, t12 As Object, t13 As Object, t14 As Object, t15 As Object, t16 As Object, t17 As Object

With ActiveDocument

Set t1 = .Tables(2) 'Таблиця 1.1 Техніко-економічні показники

Set t2 = .Tables(3) 'Таблиця 1.2 Аналіз структури собівартості одиниці продукції, %

Set t3 = .Tables(4) 'Таблиця 1.3 Приведення показників до порівнянних одиниць вимірювання

Set t4 = .Tables(5) 'Таблиця 1.4 Техніко-економічні показники, приведені до порівнянних одиниць вимірювання

Set t5 = .Tables(6) 'Таблиця 1.5 Динаміка техніко-економічних показників, %

Set t6 = .Tables(7) 'Таблиця 2.1 Загальні відомості про випуск продукції за грудень 1999 р.

Set t7 = .Tables(8) 'Таблиця 2.2 Відомості про обсяги і трудомісткість випущеної продукції

Set t8 = .Tables(9) 'Таблиця 2.3 Дані про забезпеченість підприємства матеріалами за грудень 1999 р.

Set t9 = .Tables(10) 'Таблиця 2.4 Відомості про забезпеченість підприємства робітниками за грудень 1999 р

'Таблиця 2.5 Результати аналізу випуску продукції за грудень 1999 р.

'Таблиця 2.6 Заходи щодо збільшення обсягу випуску продукції

Set t10 = .Tables(13) 'Таблиця 2.7 Відомості про ритмічність роботи підприємства за грудень 1999 р.

Set t11 = .Tables(14) 'Таблиця 2.8 Дані про реалізацію продукції

Set t12 = .Tables(15) 'Таблиця 2.9 Зіставлення показників реалізації продукції з планом і попереднім періодом

Set t13 = .Tables(16) 'Таблиця 3.1 Відомості про основні засоби підприємства

Set t14 = .Tables(17) 'Таблиця 3.2 Відомості про структуру техніки, що застосовується на підприємстві

Set t15 = .Tables(18) 'Таблиця 3.3 Відомості про терміни служби техніки та непродуктивне збільшення основних фондів

Set t16 = .Tables(19) 'Таблиця 3.4 Дані для розрахунку економічного збитку від непродуктивного збільшення основних засобів

Set t17 = .Tables(20) 'Таблиця 3.5 Відомості для розрахунку фондовіддачі

'Таблиця 3.6 Результати аналізу фондовіддачі за грудень 1999 р.

'Таблиця 3.7 Заходи щодо збільшення ефективності використання основних фондів

End With

Dim i As Byte, j As Byte, _

c As Currency, d As Currency, n As Currency, v As Currency

For j = 4 To 8

For i = 5 To 27

Select Case i

Case 8: t1.Cell(i, j) = CCur(rs(t1.Cell(6, j)) / rs(t1.Cell(5, j)))

Case 9: If j > 5 Then t1.Cell(i, j) = CCur(rs(t1.Cell(8, j)) / rs(t1.Cell(8, j - 1)))

Case 10: 'Nothing

Case 14: t1.Cell(i, j) = CCur(rs(t1.Cell(5, j)) / rs(t1.Cell(11, j)) / 12)

Case 15: t1.Cell(i, j) = CCur(rs(t1.Cell(5, j)) / rs(t1.Cell(12, j)) / 12)

Case 16: t1.Cell(i, j) = CCur(rs(t1.Cell(12, j)) / rs(t1.Cell(13, j)))

Case 18: t1.Cell(i, j) = CCur(rs(t1.Cell(17, j)) / rs(t1.Cell(5, j)))

Case 23: t1.Cell(i, j) = rs(t1.Cell(18, j)) - rs(t1.Cell(19, j)) - rs(t1.Cell(20, j)) - rs(t1.Cell(21, j)) - rs(t1.Cell(22, j))

Case Else: 'Reserved for Error Case

End Select

Next

t1.Cell(28, j) = rs(t1.Cell(26, j)) - rs(t1.Cell(27, j))

t1.Cell(29, j) = rs(t1.Cell(7, j)) - rs(t1.Cell(17, j))

Next

t1.Cell(9, 5) = CCur(rs(t1.Cell(8, 5)) / rs(t1.Cell(8, 4)) * 100)

For j = 3 To 7: For i = 0 To 3

t2.Cell(5 + i, j) = CCur(rs(t1.Cell(19 + i, j + 1)) / rs(t1.Cell(18, j + 1))) * 100

Next

t2.Cell(9, j) = 100 - rs(t2.Cell(5, j)) - rs(t2.Cell(6, j)) - rs(t2.Cell(7, j)) - rs(t2.Cell(8, j))

Next

For j = 3 To 7: t3.Cell(4, j) = CCur(rs(t1.Cell(17, j + 1)) / rs(t1.Cell(6, j + 1))): Next

t3.Cell(6, 7) = cs(t1.Cell(17, 8))

For j = 3 To 6

t3.Cell(5, j) = CCur(rs(t3.Cell(4, j)) / rs(t3.Cell(4, 7)))

t3.Cell(6, j) = rc(rs(t3.Cell(5, j)) * rs(t1.Cell(17, 8)))

t3.Cell(7, j) = CCur(rs(t3.Cell(6, j)) / rs(t1.Cell(17, j + 1)))

Next

For i = 4 To 6

t4.Cell(i, 8) = cs(t1.Cell(i + 1, 8))

Next

For j = 4 To 7

t4.Cell(4, j) = cs(t1.Cell(5, j))

t4.Cell(5, j) = rc(rs(t1.Cell(6, j)) * rs(t3.Cell(7, j - 1)))

t4.Cell(6, j) = rc(rs(t1.Cell(7, j)) * rs(t3.Cell(7, j - 1)))

Next

For i = 10 To 28

t4.Cell(i - 3, 8) = cs(t1.Cell(i + 1, 8))

For j = 4 To 7

Select Case i

Case 10 To 15: t4.Cell(i - 3, j) = cs(t1.Cell(i + 1, j))

Case 16: t4.Cell(i - 3, j) = cs(t3.Cell(6, j - 1))

Case 17 To 21: t4.Cell(i - 3, j) = CCur(rs(t1.Cell(i + 1, j)) * rs(t3.Cell(7, j - 1)))

Case 22: t4.Cell(i - 3, j) = rs(t4.Cell(14, j)) - rs(t4.Cell(15, j)) - rs(t4.Cell(16, j)) - rs(t4.Cell(17, j)) - rs(t4.Cell(18, j))

Case 27: t4.Cell(i - 3, j) = rs(t4.Cell(22, j)) - rs(t4.Cell(23, j))

Case 28: t4.Cell(i - 3, j) = rs(t4.Cell(6, j)) - rs(t4.Cell(13, j))

Case Else: t4.Cell(i - 3, j) = rc(rs(t1.Cell(i + 1, j)) * rs(t3.Cell(7, j - 1)))

End Select

Next:Next

For j = 4 To 7

For i = 4 To 25

t5.Cell(i, j) = CStr(CCur(rs(t4.Cell(i, j + 1)) / rs(t4.Cell(i, 4))) * 100) + "%"

Next:Next

t6.Cell(5, 4) = rs(t1.Cell(8, 7)) * 1000

t6.Cell(5, 7) = rs(t1.Cell(8, 8)) * 1000

t6.Cell(4, 6) = rc(rs(t6.Cell(3, 4)) * rs(t6.Cell(5, 4)) / 1000, 0)

t6.Cell(5, 6) = cs(t6.Cell(5, 4))

t6.Cell(5, 5) = CCur(rs(t6.Cell(4, 5)) / rs(t6.Cell(3, 5))) * 1000

For i = 3 To 5

t6.Cell(i, 8) = rs(t6.Cell(i, 7)) - rs(t6.Cell(i, 4))

t6.Cell(i, 9) = CStr(CCur(rs(t6.Cell(i, 7)) / rs(t6.Cell(i, 4))) * 100) + "%"

t6.Cell(i, 10) = rs(t6.Cell(i, 7)) - rs(t6.Cell(i, 5))

t6.Cell(i, 11) = CStr(CCur(rs(t6.Cell(i, 7)) / rs(t6.Cell(i, 5))) * 100) + "%"

Next

For i = 4 To 7

t7.Cell(i, 5) = rs(t7.Cell(i, 4)) - rs(t7.Cell(i, 3))

t7.Cell(i, 7) = rc(rs(t7.Cell(i, 4)) / rs(t7.Cell(i, 6)), 0)

t7.Cell(i, 8) = rs(t7.Cell(i, 11)) * rs(t7.Cell(i, 10))

t7.Cell(i, 9) = rs(t7.Cell(i, 7)) - rs(t7.Cell(i, 8))

Next

t7.Cell(8, 5) = rs(t7.Cell(8, 4)) - rs(t7.Cell(8, 3))

Call SumColumn(t7, 7, 4)

Call SumColumn(t7, 8, 4)

Call SumColumn(t7, 9, 4)

Call SumColumn(t7, 11, 4)

For i = 3 To 5

t8.Cell(i, 6) = CCur(rs(t8.Cell(i, 4)) / rs(t8.Cell(i, 5)))

t8.Cell(i, 7) = 1 - rs(t8.Cell(i, 6))

Next

For i = 4 To 8

t9.Cell(i, 3) = cs(t7.Cell(i, 7))

t9.Cell(i, 5) = cs(t7.Cell(i, 8))

t9.Cell(i, 7) = cs(t7.Cell(i, 11))

Next

For i = 4 To 7

t9.Cell(i, 4) = rc(rs(t7.Cell(i, 3)) / rs(t7.Cell(i, 6)), 0)

t9.Cell(i, 10) = rc(rs(t9.Cell(i, 7)) * rs(t9.Cell(i, 12)), 0)

t9.Cell(i, 8) = rc(rs(t9.Cell(i, 11)) / rs(t9.Cell(i, 13)), 0)

t9.Cell(i, 6) = rs(t9.Cell(i, 8)) * rs(t7.Cell(i, 10))

t9.Cell(i, 9) = rs(t9.Cell(i, 7)) - rs(t9.Cell(i, 8))

Next

Call SumColumn(t9, 4, 4)

Call SumColumn(t9, 10, 4)

Call SumColumn(t9, 11, 4)

Call SumColumn(t9, 6, 4)

Call SumColumn(t9, 8, 4)

Call SumColumn(t9, 9, 4)

t10.Cell(34, 2) = cs(t7.Cell(4, 4)): t10.Cell(34, 3) = cs(t7.Cell(5, 4))

t10.Cell(34, 4) = cs(t7.Cell(6, 4)): t10.Cell(34, 5) = cs(t7.Cell(7, 4))

t10.Cell(34, 6) = cs(t7.Cell(8, 4))

For i = 3 To 32

Call SumRow(t10, i, , 5):Next

For i = 2 To 5

t10.Cell(33, i) = rs(t10.Cell(34, i)) - SumColumn(t10, i, , 32, False)

t10.Cell(36, i) = MaxColumn(t10, i, , 33, False)

t10.Cell(37, i) = rs(t10.Cell(36, i)) - rs(t10.Cell(35, i))

t10.Cell(38, i) = rs(t10.Cell(37, i)) * 31

Next

Call SumRow(t10, 36, , 5): Call SumRow(t10, 33, , 5)

Call SumRow(t10, 37, , 5): Call SumRow(t10, 38, , 5)

For i = 4 To 5

t11.Cell(4, i) = cs(t1.Cell(5, i + 3))

t11.Cell(5, i) = cs(t1.Cell(6, i + 3))

t11.Cell(7, i) = cs(t1.Cell(7, i + 3))

Next

For i = 4 To 6

t11.Cell(6, i) = CCur(rs(t11.Cell(5, i)) / rs(t11.Cell(4, i)))

t11.Cell(8, i) = rc(rs(t11.Cell(7, i)) / rs(t11.Cell(6, i)), 0)

t11.Cell(9, i) = rc(rs(t11.Cell(10, i)) / rs(t11.Cell(6, i)), 0)

t11.Cell(15, i) = rc(rs(t11.Cell(13, i)) * rs(t11.Cell(6, i)))

t11.Cell(16, i) = rs(t11.Cell(15, i)) - rs(t11.Cell(14, i))

t11.Cell(18, i) = rc(rs(t11.Cell(17, i)) * rs(t11.Cell(6, i)))

Next

For i = 3 To 17

t12.Cell(i, 4) = CStr(CCur(rs(t11.Cell(i + 1, 5)) / rs(t11.Cell(i + 1, 6))) * 100) + "%"

t12.Cell(i, 5) = rs(t11.Cell(i + 1, 5)) - rs(t11.Cell(i + 1, 4))

t12.Cell(i, 6) = CStr(CCur(rs(t11.Cell(i + 1, 5)) / rs(t11.Cell(i + 1, 4))) * 100) + "%"

Next

t13.Cell(17, 3) = cs(t4.Cell(20, 7))

t13.Cell(15, 3) = cs(t4.Cell(21, 7))

t13.Cell(16, 3) = rs(t13.Cell(17, 3)) - rs(t13.Cell(15, 3))

t13.Cell(17, 7) = cs(t4.Cell(20, 8))

t13.Cell(15, 7) = cs(t4.Cell(21, 8))

t13.Cell(16, 7) = rs(t13.Cell(17, 7)) - rs(t13.Cell(15, 7))

For i = 3 To 8

c = rs(t13.Cell(15, i))

t13.Cell(11, i) = rs(t13.Cell(15, i)) - rs(t13.Cell(10, i)) - rs(t13.Cell(9, i)) - rs(t13.Cell(8, i)) - rs(t13.Cell(7, i)) - rs(t13.Cell(6, i))

c = rs(t13.Cell(16, i))

t13.Cell(14, i) = rs(t13.Cell(16, i)) - rs(t13.Cell(4, i)) - rs(t13.Cell(5, i)) - rs(t13.Cell(12, i)) - rs(t13.Cell(13, i))

i = i + 4 'Increasing step

Next

For i = 4 To 14

t13.Cell(i, 7) = rs(t13.Cell(i, 3)) + rs(t13.Cell(i, 4)) - rs(t13.Cell(i, 6))

t13.Cell(i, 10) = rs(t13.Cell(i, 7)) - rs(t13.Cell(i, 9))

Next

t13.Cell(15, 9) = rs(t13.Cell(11, 9)) + rs(t13.Cell(10, 9)) + rs(t13.Cell(9, 9)) + rs(t13.Cell(8, 9)) + rs(t13.Cell(7, 9)) + rs(t13.Cell(6, 9))

t13.Cell(16, 9) = rs(t13.Cell(14, 9)) + rs(t13.Cell(4, 9)) + rs(t13.Cell(5, 9)) + rs(t13.Cell(12, 9)) + rs(t13.Cell(13, 9))

t13.Cell(17, 9) = rs(t13.Cell(15, 9)) + rs(t13.Cell(16, 9))

For i = 15 To 17

t13.Cell(i, 6) = rs(t13.Cell(i, 3)) + rs(t13.Cell(i, 4)) - rs(t13.Cell(i, 7))

t13.Cell(i, 10) = rs(t13.Cell(i, 7)) - rs(t13.Cell(i, 9))

Next

t14.Cell(4, 5) = rc(SumColumn(t14, 11, 5, 15, False) / 11, 4): t14.Cell(16, 5) = rc(SumColumn(t14, 11, 17, 36, False) / 20, 4)

t14.Cell(4, 6) = rs(t14.Cell(4, 4)) - rs(t14.Cell(4, 5)): t14.Cell(16, 6) = rs(t14.Cell(16, 4)) - rs(t14.Cell(16, 5))

For i = 5 To 36

If i <> 16 Then

t14.Cell(i, 11) = CCur(rs(t14.Cell(i, 6)) / rs(t14.Cell(i, 3)))

t14.Cell(i, 12) = rs(t14.Cell(i, 10)) - rs(t14.Cell(i, 11))

t14.Cell(i, 13) = CCur(rs(t14.Cell(i, 5)) / rs(t14.Cell(i, 3)))

t15.Cell(i, 6) = cs(t14.Cell(i, 12))

t15.Cell(i, 8) = cs(t14.Cell(i, 3))

t15.Cell(i, 5) = rs(t15.Cell(i, 3)) - rs(t15.Cell(i, 4))

t15.Cell(i, 7) = rc(rs(t15.Cell(i, 5)) * rs(t15.Cell(i, 6)))

t15.Cell(i, 11) = CCur(rs(t15.Cell(i, 10)) / rs(t15.Cell(i, 9)))

End If

Next

t14.Cell(4, 7) = rc(SumColumn(t14, 13, 5, 15, False) / 11, 4): t14.Cell(16, 7) = rc(SumColumn(t14, 13, 17, 36, False) / 20, 4)

For i = 4 To 36: t15.Cell(i, 12) = CCur(rs(t15.Cell(i, 4)) / rs(t15.Cell(i, 3)))

Next: t15.Cell(37, 10) = CCur(rs(t15.Cell(37, 4)) / rs(t15.Cell(37, 3)))

For i = 3 To 5

t15.Cell(4, i) = SumColumn(t15, i, 5, 15, False): t15.Cell(16, i) = SumColumn(t15, i, 17, 36, False)

Next

t15.Cell(4, 7) = SumColumn(t15, 7, 5, 15, False): t15.Cell(16, 7) = SumColumn(t15, 7, 17, 36, False)

t15.Cell(4, 11) = CCur(SumColumn(t15, 11, 5, 15, False) / 11): t15.Cell(16, 11) = CCur(SumColumn(t15, 11, 17, 36, False) / 20)

t15.Cell(37, 7) = rs(t15.Cell(4, 7)) + rs(t15.Cell(16, 7))

t15.Cell(37, 9) = CCur((rs(t15.Cell(4, 11)) + rs(t15.Cell(16, 11))) / 2)

t15.Cell(37, 3) = cs(t13.Cell(15, 7)): t15.Cell(37, 4) = cs(t13.Cell(15, 9))

t15.Cell(37, 5) = cs(t13.Cell(15, 10))

For i = 3 To 5

t17.Cell(i, 4) = cs(t6.Cell(i, 4)): t17.Cell(i, 5) = cs(t6.Cell(i, 7))

t17.Cell(i, 6) = cs(t6.Cell(i, 8)): t17.Cell(i, 7) = cs(t6.Cell(i, 9))

Next

t17.Cell(8, 4) = cs(t16.Cell(5, 4)): t17.Cell(8, 5) = cs(t16.Cell(5, 4))

For i = 6 To 10

t17.Cell(i, 6) = rs(t17.Cell(i, 5)) - rs(t17.Cell(i, 4))

t17.Cell(i, 7) = CStr(rc(rs(t17.Cell(i, 5)) * 100 / rs(t17.Cell(i, 4)))) + "%"

Next

End Sub

Private Function replace(s As String, s1 As String, Optional s2 As String = ".") As String

Dim p As Integer

p = InStr(s, s1)

If p > 0 Then replace = Left(s, p - 1) + s2 + Mid(s, p + Len(s1)) Else replace = s

End Function

Private Function rs(s As String) As Currency

rs = Val(replace(s, ","))

End Function

Private Function cs(s As String)

cs = Left(s, Len(s) - 2)

End Function

Private Function rc(c As Currency, Optional n As Byte = 2)

n = 4 - n

rc = CCur(c / (10 ^ n)) * (10 ^ n)

End Function

Private Function SumColumn(t As Object, ByVal c As Integer, Optional p As Integer = 3, Optional n As Integer = 0, Optional b As Boolean = True) As Currency

If n = 0 Then n = t.Rows.Count - 1

Dim i As Integer

SumColumn = rs(t.Cell(p, c))

For i = p + 1 To n

SumColumn = SumColumn + rs(t.Cell(i, c))

Next

If b Then t.Cell(n + 1, c) = SumColumn

End Function

Private Function SumRow(t As Object, ByVal r As Integer, Optional p As Integer = 2, Optional n As Integer = 0, Optional b As Boolean = True) As Currency

If n = 0 Then n = t.Columns.Count - 1

Dim i As Integer

SumRow = rs(t.Cell(r, p))

For i = p + 1 To n

SumRow = SumRow + rs(t.Cell(r, i))

Next

If b Then t.Cell(r, n + 1) = SumRow

End Function

Private Function MaxColumn(t As Object, ByVal c As Integer, Optional p As Integer = 3, Optional n As Integer = 0, Optional b As Boolean = True) As Currency

If n = 0 Then n = t.Rows.Count - 1

Dim i As Integer, v As Currency

MaxColumn = rs(t.Cell(p, c))

For i = p + 1 To n

v = rs(t.Cell(i, c))

If MaxColumn < v Then MaxColumn = v

Next

If b Then t.Cell(n + 1, c) = MaxColumn

End Function

Sub WhereCell()

MsgBox CStr(Selection.Information(wdEndOfRangeRowNumber)) + ", " + CStr(Selection.Information(wdEndOfRangeColumnNumber))

End Sub

Sub Calc()

InputBox "Result", , Selection.Calculate

End Sub

 Донецький державний технічний університет

^{(назва віщого навчального закладу)}

Кафедра Бухгалтерського обліку та Аудиту

Дисципліна Аналіз господарської діяльності

Спеціальність Облік та аудит

Курс ?5 Група ?УА 96 в Семестр ?9

ЗАВДАННЯ

на курсовий проект (роботу) студента

Бондаренко Сергій Юрійович

^{(прізвище, ім'я, по батькові)}

1. Тема проекту (роботи) ?Аналіз основних фондів в умовах товариства з обмеженою відповідальності "Шахта ім. О. О.Скочинського"

2. Строк здачі студентом закінченого проекту (роботи) ?20.11.2000

3. Вихідні дані до проекту (роботи) ??Дані статистичної звітності, що містять відомості про техніко-економічні показники шахти ім. О. О. Скочинського за 1999, 2000 роки; дані аналітичних і синтетичних регістрів обліку основних фондів

4. Зміст розрахунково-пояснювальної записки (перелік питань, які підлягають розробці)

1. Характеристика підприємства

2. Аналіз техніко-економічних показників

3. Аналіз виробництва і реалізації продукції

4. Аналіз стану і використання основних фондів

5. Перелік графічного матеріалу (з точним зазначенням обов'язкових креслень)

Дата видачі завдання ?06.09.2000

КАЛЕНДАРНИЙ ПЛАН

№ п/п	Назва етапів курсового проекту (роботи)	Строк виконання етапів проекту (роботи)	Примітки
1.	Аналіз випуску продукції і її реалізації	22.09 - 30.09
2.	Загальна оцінка зміни показників, що
	характеризують стану і використання
	основних фондів підприємства	01.10 - 20.10
3.	Визначення конкретних причин, що
	спричинили погіршення стану і зниження
	ефективності використання основних
	фондів. Розробка заходів щодо усунення
	негативного впливу виявлених причин	21.10 - 10.11
4.	Складання пояснювальної записки,
	підготовка до захисту курсової роботи	11.11 - 20.11

Студент

^{(підпис)}

Керівник ?Гавриленко Валентин Андрійович

^{(підпис) (прізвище, ім'я, по батькові)}

« 10 » ?жовтня 2000 р.