Аналіз основних фондів в умовах шахти ім О О Скочинського (стр. 19 из 19)

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))

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)))

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) + "%"

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

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))

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))

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

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)

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))

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)))) + "%"

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))

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))

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

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 р.

[1] Продуктивність праці розрахована в середньому за місяць

1 Гавріленко В. А. "Теорія і методика економічного аналізу виробниче-господарської діяльності виробничих підприємств" - Донецьк 1998 рік.