Таким чином, у разі реалізації вищенаведених заходів щодо підвищення ефективності використання основних фондів (див. таблицю 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.
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)