Автор работы: Пользователь скрыл имя, 30 Марта 2011 в 22:09, курсовая работа
Одним из факторов, определяющих уровень развития современного общества и его интеллектуальные возможности, является оснащённость его средствами вычислительной техники – основы автоматизации умственной деятельности человека. Сфера использования вычислительной техники в настоящее время настолько широка, что нет такой области, где применение компьютеров было бы нецелесообразным. Особенно важна роль ЭВМ для развития науки, роста промышленного производства и повышения эффективности управления.
Введение. 5
ОБЩЕСИСТЕМНЯ ЧАСТЬ 6
Описание объекта 6
Постановка задачи 6
Концептуальная модель системы 7
ТЕОРЕТИЧЕСКАЯ ЧАСТЬ 10
Информационное обеспечение 10
Математическое и алгоритмическое обеспечение 11
Выбор инструмента платформы 13
РАСЧЕТНАЯ ЧАСТЬ 15
Техническое обеспечение 15
Программное обеспечение 16
Организационное обеспечение 17
ЗАКЛЮЧЕНИЕ 25
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 26
ПРИЛОЖЕНИЕ 27
If LiInd >= 4 Then
With Sheets("Temporal")
LastRowNumber = .Cells(1, 1).CurrentRegion.Rows.Count
If LastRowNumber < 2 Then
Exit Sub
End If
For i = 2 To LastRowNumber
If .Cells(i, 1).Value = " +" Then
.Cells(i, 2).Value = -.Cells(i, 2).Value
End If
Next
End With
If LiInd = 4 Then
'
Range("Temporal!D1").Sort Key1:=Range("Temporal!E2"), Order1:=xlAscending, Key2:=Range("Temporal!D2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
With Sheets("Temporal")
'
.Cells(1, 6).Value = "Сумма"
.Cells(1, 2).Value = "БывшаяСумма"
SummaArt = 0
PrevValue = "a2b6r0))&akadabra"
For i = 2 To LastRowNumber + 1
If .Cells(i, 4).Value <> PrevValue Then
PrevValue = .Cells(i, 4).Value
If i > 2 Then
.Cells(i - 1, 6).Value = SummaArt
SummaArt = 0
End If
End If
SummaArt = SummaArt + .Cells(i, 2).Value
Next
'
i = 2
DoCounter = 1
продолжим = True
Do While продолжим
If IsEmpty(.Cells(i, 4).Value) Then
продолжим = False
Exit Do
End If
CelVal = .Cells(i, 6).Value
If IsEmpty(CelVal) Then
.Rows(i).Delete
ElseIf CelVal = 0 Then
.Rows(i).Delete
Else
'
If CelVal < 0 Then
.Cells(i, 6).Value = -CelVal
.Cells(i, 1).Value = " -"
Else
.Cells(i, 1).Value = " +"
End If
'
i = i + 1
End If
DoCounter = DoCounter + 1
If DoCounter > 60000 Then
MsgBox "Странность в макросе: принудительный выход из зацикливания"
Exit Do
End If
Loop
'
End With
'
End If
End If
End Sub
Sub Отчет()
Dim PvT As PivotTable
'
Temporal
'
If Sheets("Temporal").Cells(1, 1).CurrentRegion.Rows.Count < 2 Then
MsgBox "Для выбранного отчета" & Chr(10) & "в журнале не найдено" _
& Chr(10) & "ни одной записи."
Exit Sub
End If
'
Worksheets("Отчеты").
' For Each PvT In ActiveSheet.PivotTables
' PvT.PivotSelect "", xlDataAndLabel
' Selection.Delete
' Next
Rows("6:777").Delete
Worksheets("Отчеты").Columns("
Worksheets("Отчеты").Rows("5:
'
With Sheets("Temporal")
LastRowNumber = .Cells(1, 1).CurrentRegion.Rows.Count
LastColumnNumber = .Cells(1, 1).CurrentRegion.Columns.Count
End With
SourceString = "Temporal!R1C1:R" & CStr(LastRowNumber) _
& "C" & CStr(LastColumnNumber)
'
Range("A9").Select
'
Select Case LiInd
Case 1
ПриходыРасходыДолгиЗаймы
Case 2 To 3
ДоходыЗатратыНакопления
Case 4
ПриходыРасходыДолгиЗаймы
Case 5
ДоходыЗатратыНакопления
End Select
'
End Sub