- •Содержание
- •Введение
- •1. Цель и организация выполнения курсовой работы
- •2. Требования к оформлению курсовой работы
- •2.1. Общие требования
- •2.2. Оформление текста, таблиц, графических и других иллюстративных материалов
- •Тарифы на услуги междугородней телефонной связи оао "Ростелеком" для абонентов квартирного сектора
- •2. 3. Нумерация страниц
- •2.4. Оформление приложений
- •2.5. Составление списка использованных источников и литературы
- •3. Требования к содержанию и структуре курсовой работы
- •3.1. Структура
- •3.2. Введение
- •3.3. Основная часть
- •Характеристика данных и их условные обозначения
- •5. Варианты заданий для выполнения курсовой работы вариант 1
- •Расчет оплаты электроэнергии
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Общее количество израсходованного топлива по номеру рейса
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Общая сумма полисов
- •Общая сумма полисов по филиалам
- •Вариант 8
- •Общая сумма ндфл
- •Вариант 9
- •Вариант 10
- •Введите цену телефона от ____ до _____ Код мобильного телефона Модель мобильного телефона Цена, руб.
- •Вариант 8
- •Вариант 12
- •Вариант 13
- •Вариант 14
- •Вариант 15
- •Приложение 1
- •Пояснительная записка
- •Приложение 2 Содержание
- •Инструкция пользователя
- •Заключение
- •Приложение 3
- •Приложение 4
Приложение 1
ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«ДОНЕЦКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»
Кафедра прикладной математики
Пояснительная записка
к курсовой работе по дисциплине «Информатика»
Выполнил студент ____________
(группа, факультет)
____________________________
(фамилия, инициалы)
Руководитель работы__________
____________________________
(фамилия, инициалы)
Донецк, 20__
Приложение 2 Содержание
Введение
Постановка задачи.
Теоретическая часть
Описание алгоритма решения задачи
Инструкция пользователя
Заключение
Список использованных источников и литературы
Приложения
Приложение 3
Список использованных источников и литературы
Экономико-математические модели и методы: Учеб. пособие для студ. экон. спец. БГУИР всех форм обуч. / С.А. Поттосина, В.А. Журавлев. – Мн.: БГУИР, 2003. – 94 с.: ил.
Алесинская Т.В. Учебное пособие по решению задач по курсу "Экономико-математические методы и модели". Таганрог: Изд-во ТРТУ, 2002, 153 с.
Расторгуев, Д. Н. Методические рекомендации к практическим занятиям по компьютерному моделированию социально-экономических процессов. – Ульяновск: УлГТУ, 2006. – 32 с.
Кутузов А. Л. Математические методы в экономике и менеджменте Учеб пособие. СПб.: Изд-во СПб ГТУ, 2001.
Курицкии Б. Я. Поиск оптимальных решений средствами Excel 7 0. СПб.: БХВ — Санкт-Петербург, 1997.
URL: http://excel2.ru/articles/funkciya-prosmotr-v-ms-excel-prosmotr (дата последнего обращения 08.12.2016)
URL: http://excel.nighthtr.ru/lab_8.html (дата последнего обращения 15.11.2016)
URL: http://www.excelworld.ru/board/vba/udf/8 (дата последнего обращения 25.12.2016)
Приложение 4
Текст кода макроса список_заказов_бланк (форма «Список заказов за месяц»)
Sub Список_заказов_бланк()
Cells.Select
Selection.Clear
Range("B2").Select
ActiveCell.FormulaR1C1 = "Дата выполнения"
Range("C2").Select
ActiveCell.FormulaR1C1 = "Наименование фирмы"
Range("D2").Select
ActiveCell.FormulaR1C1 = "Код фирмы"
Range("E2").Select
ActiveCell.FormulaR1C1 = "Код заказа"
Range("F2").Select
ActiveCell.FormulaR1C1 = "Наименование товара"
Range("G2").Select
ActiveCell.FormulaR1C1 = "Код товара"
Range("H2").Select
ActiveCell.FormulaR1C1 = "Количество"
Range("I2").Select
ActiveCell.FormulaR1C1 = "Сумма, руб"
Range("B2:I2").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Calibri"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("B:B").ColumnWidth = 12.14
Columns("B:B").ColumnWidth = 13.14
Columns("C:C").ColumnWidth = 16.57
Columns("D:D").ColumnWidth = 9.71
Columns("E:E").ColumnWidth = 10
Columns("F:F").ColumnWidth = 16.71
Columns("H:H").ColumnWidth = 11.86
Selection.Font.Bold = False
Selection.Font.Bold = True
Range("B2:H93").Select
ActiveWindow.SmallScroll Down:=-87
Range("B2:I53").Select
ActiveWindow.SmallScroll Down:=-45
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("B3:B53").Select
Selection.NumberFormat = "dd/mm/yy;@"
Range("C3:C53").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=заказчик"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("F3:F53").Select
ActiveWindow.SmallScroll Down:=-45
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=товар"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",LOOKUP(RC[-1],заказчик,заказчики!R3C1:R8C1))"
Range("G3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",LOOKUP(RC[-1],товар,товары!R3C1:R8C1))"
Range("I3").Select
Range("I3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(RC[-1]*VLOOKUP(RC[-2],товары!R3C1:R8C5,5)),"""",RC[-1]*VLOOKUP(RC[-2],товары!R3C1:R8C5,5))"
Selection.AutoFill Destination:=Range("I3:I17"), Type:=xlFillDefault
Range("I3:I17").Select
Selection.AutoFill Destination:=Range("I3:I53"), Type:=xlFillDefault
Range("I3:I53").Select
ActiveWindow.SmallScroll Down:=-36
Range("I3").Select
Selection.AutoFill Destination:=Range("I3:I53"), Type:=xlFillDefault
Range("I3:I53").Select
ActiveWindow.SmallScroll Down:=-42
End Sub
Текст кода макроса бланк_заказа_фирма (форма «Форма заказа по названию фирмы-заказчика»)
Sub бланк_заказа_фирма()
Cells.Select
Selection.Clear
Range("B2").Select
ActiveCell.FormulaR1C1 = "Наименование фирмы"
Range("D2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=заказчик"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("C4").Select
ActiveCell.FormulaR1C1 = "Дата выполнения"
Range("D4").Select
ActiveCell.FormulaR1C1 = "Код заказа"
Range("E4").Select
ActiveCell.FormulaR1C1 = "Наименование товара"
Range("F4").Select
ActiveCell.FormulaR1C1 = "Количество"
Range("G4").Select
ActiveCell.FormulaR1C1 = "Сумма, руб"
Range("C4:G4").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("E:E").ColumnWidth = 14.71
Columns("G:G").ColumnWidth = 13.43
Range("E2").Select
ActiveCell.FormulaR1C1 = "адрес:"
Range("H2").Select
ActiveCell.FormulaR1C1 = "телефон:"
Range("B2:C2").Select
With Selection.Font
.Name = "Calibri"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
Range("E2").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
Range("H2").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("C4:G4").Select
Selection.Font.Bold = True
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Текст кода макроса список_заказов_фирма (форма «Форма заказа по названию фирмы-заказчика»)
Sub список_заказов_фирма()
Dim фирма As String, i As Integer, s As Double, n As Integer, j As Integer
Dim адрес As String, телефон As String
Dim дата(1 To 30) As Date, заказ(1 To 30) As String, товар(1 To 30) As String
Dim количество(1 To 30) As Integer, сумма(1 To 30) As Double
фирма = Cells(2, 4)
Range("A5:L259").Select
Selection.Clear
Sheets("заказчики").Select
j = 3
Do While Cells(j, 2) <> ""
If Cells(j, 2) = фирма Then
адрес = Cells(j, 3)
телефон = Cells(j, 4)
End If
j = j + 1
Loop
Sheets("список заказов").Select
i = 1
j = 3
s = 0
Do While Cells(j, 3) <> ""
If Cells(j, 3) = фирма Then
дата(i) = Cells(j, 2)
заказ(i) = Cells(j, 5)
товар(i) = Cells(j, 6)
количество(i) = Cells(j, 8)
сумма(i) = Cells(j, 9)
s = s + сумма(i)
i = i + 1
j = j + 1
Else
j = j + 1
End If
Loop
n = i - 1
Sheets("список заказов фирма").Select
j = 5
For i = 1 To n
Cells(j, 3) = дата(i)
Cells(j, 4) = заказ(i)
Cells(j, 5) = товар(i)
Cells(j, 6) = количество(i)
Cells(j, 7) = сумма(i)
j = j + 1
Next i
Cells(j + 1, 3) = "Итого по " + фирма
Cells(j + 1, 7) = s
Cells(2, 6) = адрес
Cells(2, 9) = телефон
End Sub
Текст кода макроса бланк_формы_заказа (форма «Форма заказа по номеру»)
Sub бланк_формы_заказа()
Cells.Select
Selection.Clear
Range("B1").Select
ActiveCell.FormulaR1C1 = "ООО ""Инициатива"""
Range("C2").Select
ActiveCell.FormulaR1C1 = "Заказ №"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Дата выполнения"
Range("B4").Select
Columns("B:B").ColumnWidth = 17.43
Columns("C:C").ColumnWidth = 10.86
Range("C2").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B5").Select
ActiveCell.FormulaR1C1 = "Наименование фирмы"
Range("C5").Select
ActiveCell.FormulaR1C1 = "Наименование товара"
Range("D5").Select
ActiveCell.FormulaR1C1 = "Код товара"
Range("E5").Select
ActiveCell.FormulaR1C1 = "Количество"
Range("F5").Select
ActiveCell.FormulaR1C1 = "Сумма"
Range("B1").Select
With Selection.Font
.Name = "Calibri"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
Range("B1:C1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("C2").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Calibri"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("B3").Select
With Selection.Font
.Name = "Calibri"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
Range("B5:F5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("C:C").ColumnWidth = 12.86
Columns("C:C").ColumnWidth = 14.71
Columns("E:E").ColumnWidth = 11.71
Columns("F:F").ColumnWidth = 12
Range("B6").Select
End Sub
Текст кода макроса форма_заказа (форма «Форма заказа по номеру»)
Sub форма_заказа()
Dim заказ As Integer
Dim i As Integer, j As Integer, s As Double, pr As String
Dim дата As Date, фирма(1 To 30) As String, товар(1 To 30) As String
Dim код_товара(1 To 30) As Integer, количество(1 To 30) As Integer, сумма(1 To 30) As Double
Range("A6:L259").Select
Selection.Clear
заказ = InputBox("Введите номер заказа", "Ввод данных")
Sheets("список заказов").Select
i = 1
j = 3
s = 0
pr = ""
Do While Cells(j, 5) <> ""
If Cells(j, 5) = заказ Then
pr = "есть"
дата = Cells(j, 2)
фирма(i) = Cells(j, 3)
товар(i) = Cells(j, 6)
код_товара(i) = Cells(j, 7)
количество(i) = Cells(j, 8)
сумма(i) = Cells(j, 9)
s = s + сумма(i)
i = i + 1
j = j + 1
Else
j = j + 1
End If
Loop
n = i - 1
If pr <> "" Then
Sheets("форма заказа").Select
j = 6
For i = 1 To n
Cells(j, 2) = фирма(i)
Cells(j, 3) = товар(i)
Cells(j, 4) = код_товара(i)
Cells(j, 5) = количество(i)
Cells(j, 6) = сумма(i)
j = j + 1
Next i
Cells(j, 3) = "Итого "
Cells(j, 6) = s
Cells(j + 1, 5) = "Принял"
Cells(2, 4) = заказ
Cells(3, 3) = дата
Else
MsgBox "Заказа с таким номером нет"
End If
End Sub
Текст кода макроса итого_по_фирмам_бланк (форма «Итоговые суммы заказов по фирмам-заказчикам»)
Sub итого_по_фирмам_бланк()
Cells.Select
Selection.Clear
Range("C1").Select
ActiveCell.FormulaR1C1 = "Итоговые суммы заказов по фирмам-зазказчикам"
Range("C3").Select
ActiveCell.FormulaR1C1 = "Наименование фирмы"
Range("F3").Select
ActiveCell.FormulaR1C1 = "Всего, руб"
Range("B1:G1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection.Font
.Name = "Calibri"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("C3:D3").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Selection.Font.Bold = True
Columns("D:D").ColumnWidth = 12.71
Range("F3:G3").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("C4").Select
Sheets("заказчики").Select
Range("B3:B8").Select
Selection.Copy
Sheets("итого по фирмам").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C4:D4").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("F4:G4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.NumberFormat = "0.00"
Selection.Copy
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F7").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F8").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F9").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C3:G9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Range("C3:D9").Select
Range("C3:E9").Select
Range("C3:E9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Range("C10:E10").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Общий итог"
Range("C10:E10").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("F10:G10").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.NumberFormat = "0.00"
Range("C13").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Font.Italic = True
Range("F13").Select
ActiveCell.FormulaR1C1 = "менеджер"
Range("F13").Select
Selection.Font.Italic = True
Range("G16").Select
Range("F10:G10").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C[1])"
Range("F11").Select
End Sub
Текст кода макроса(форма «Итоговые суммы заказов по фирмам-заказчикам»)
Function общая_сумма_по_фирме(фирма As String) As Double
Dim i As Integer, s As Double
i = 3
s = 0
Do While Worksheets("список заказов").Cells(i, 3) <> ""
If Worksheets("список заказов").Cells(i, 3) = фирма Then
s = s + Worksheets("список заказов").Cells(i, 9)
End If
i = i + 1
Loop
общая_сумма_по_фирме = s
End Function