Дипломная работа: Управління збутовою діяльністю ДП "Електротяжмаш"
19. Голубков Е.П. Маркетинговые исследования: теория, практика и методология. – М.: Финпресс, 1998, - 268 с.
20. Голубков Е.П. Маркетинг: стратегии, планы, структуры. – М.: Дело, 1995. – 192 с.
21. Голубков Е.П. Основы маркетинга: Учебник. – М.: Изд. «Финпресс», 1999. – 656 с.
22. Гончаров В.Н., Бурбело О.А., Вавин А.И. Эффективность производственной инфраструктуры предприятия. Научно методические разработки. – Луганск, ВУГУ, 1994. – 165 с.
23. Диксон Р. Питер. Управление маркетингом / Пер. с англ. – М.: ЗАО «Издательство БИКОМ», 1998. 560 с.
24. Дубницкий В.И., Пилющенко В.Л. Инфраструктура товарного рынка: Учебн. Пособие. – Донецк. ДонГАУ, 2001. – 513 с.
25. Дэй Д. Стратегический маркетинг. – М.: Изд – во ЭКСМО – Пресс, 2002. – 640 с.
26. Калашников В.А. Рынок. Бизнес. Коммерция. Экономика. Толковый терминологический словарь. – М.: ИВЦ Маркетинг, 1998. – 56 с.
27. Козаченко А.В. Механизм стратегического управления крупными производственно – финансовыми системами промышленности. – Донецк: ИЭП НАН Украины, 1998. – 348 с.
28. Козаченко А.В. Коммерческая деятельность предприятия: стартегия, организация, управление: Учебн. Пособие / под ред. В.К. Козлова, С.А. Уварова. – СПб.: Политехника, 2000. – 322 с.
29. Коммерческо посредническая деятельность на товарном рынке / Под ред. А.В. Зырянова. Екатеринбург: Солярис, 1995. – 154 с.
30. Коринев В.Л. Ценовая политика предприятия. Монография. – К.: КНЕУ, 2001. – 257 с.
31. Котлер Ф. Основы маркетинга / Пер. с англ. – М.: Прогресс, 1992 – 734 с.
32. Котлер Ф. Основы маркетинга / Пер. с англ. – 2-е европ. Изд. – М.: СПб; К.: Изд. дом «Вильямс», 2000. – 944 с.
33. Курс предпринимательства / Под ред. В.Я. Горфинкеля, В.А. Швандара. – М.: ЮНИТИ, 1997. – 456 с.
34. Леонтьев В.В. Межотраслевая экономика. – М.: Экономика, 1997. – 128 с.
35. Лялинков А.К. Переход России к рыночной экономике: чем нам полезен опыт других стран. – М.: ИЧП Магистр, 1997. – 145 с.
36. Менеджмент / Под. Ред. М.М. Максимцова, А.В. Игнатьевой. – М.: ЮНИТИ, 1998. – 465 с.
37. Моисеева Н.К. Международный маркетинг. – М.: Центр экономики и маркетинга, 1998. – 256 с.
38. Нагапетянц Н.А. Прикладной маркетинг. – М.: ЮНИТИ – ДАНА, 2002. – 287 с.
39. Наливайко А.П. Теория стратегии предприятия. Современный этап и направления развития. – К.: КНЕУ, 2001. – 227 с.
40. Николаева Г.А., Щур Д.Л. Оптовая торговля. – М.: Приор, 1998. – 345 с.
41. Океанова З.К. Социально – этический – маркетинг. – М.: Вердикт – ИМ, 1997. – 189 с.
42. Осипова Л.В., Основы комерческой деятельности. Практикум. – М.: ЮНИТИ, 1997. – 257 с.
43. Осипова Л.В., Основы комерческой деятельности. – М.: ЮНИТИ, 1997. – 124 с.
44. Прокущев Е.Ф. Внешнеэкономическая деятельность. – М.: ИВЦ «Маркетинг», 1998. – 386 с.
45. Россия в цифрах. М.: Госкомстат РФ, 1998. – 134 с.
46. Синяева И.М. Паблик рилейшнз. – М.: ЮНИТИ, 1998. – 380 с.
47. Сосунова Л.А. Макроэкономическая концепция коммерции услуг. – Спб.: СПбУЭФ, 1997. – 175 с.
48. Тенденции экономического развития в России в 1 квартале 1998 // Деньги и кредит. – 1998. 4.
49. Фомичев В.И. Международная торговля. – М.: Инфра – М, 1998. – 492 с.
50. Френкель А.А. Экономика России в 1992 – 1997 гг. Тенденции, анализ, прогноз. – М.: ФИНСТАТИНФОРМ, 1997. – 497 с.
51. Шопенко В.Д. Организационно – экономический механизм реструктуризации предприятия. – Спб.: РАН, 1998. – 258 с.
52. Дубовцев В.А. Безопасность жизнедеятельности. / Учеб. пособие для дипломников. - Киров: изд. КирПИ, 1992.
53. Мотузко Ф.Я. Охрана труда. – М.: Высшая школа, 1989. – 336с.
54. Безопасность жизнедеятельности. /Под ред. Н.А. Белова - М.: Знание, 2000 - 364с.
55. Самгин Э.Б. Освещение рабочих мест. – М.: МИРЭА, 1989. – 186с.
56. Справочная книга для проектирования электрического освещения. / Под ред. Г.Б. Кнорринга. – Л.: Энергия, 1976.
57. Борьба с шумом на производстве: Справочник / Е.Я. Юдин, Л.А. Борисов; Под общ. ред. Е.Я. Юдина М.: Машиностроение, 1985. – 400с., ил
Додаток 1
Макроси, що дозволяють автоматизувати дії працівників служби маркетингу по створенню продуктових стратегій підприємства:
Private Sub Workbook_Open()
UserForm2.Show
End Sub
Sub main()
UserForm1.Show
End Sub
Sub СТ()
'
' СТ Макрос
''
Sheets("1").Select
Range("A1:G2").Select
Selection.Copy
Sheets("2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("1").Select
Range("A3:A8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2").Select
Range("A3").Select
Sheets("2").Select
ActiveSheet.Paste
Sheets("1").Select
Range("B3:B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2").Select
Range("B3").Select
ActiveSheet.Paste
Range("C3:G8").Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "№"
Range("B1:B2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A8:B8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B14").Select
ActiveWindow.SmallScroll Down:=-9
End Sub
Sub Форматирование()
'
' Форматирование Макрос
' Макрос записан 10.06.2008 (Managers)
''
Columns("B:B").Select
Selection.ColumnWidth = 30
Rows("1:8").Select
Range("C1").Activate
Rows("1:8").EntireRow.AutoFit
Range("A1:G8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1:G2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("F1:F8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Range("A3:A8").Select
Selection.Font.ColorIndex = 1
Selection.Font.ColorIndex = 6
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
With Selection.Font
.Name = "Bookman Old Style"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
Range("A1:G2").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 1
Selection.Font.Bold = True
With Selection.Font
.Name = "Monotype Corsiva"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Selection.Font.Bold = False
With Selection.Font
.Name = "Monotype Corsiva"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Selection.Font.Bold = True
Selection.Font.Bold = False
With Selection.Font
.Name = "Monotype Corsiva"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Range("B3:B8").Select
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
End With
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("B14").Select
End Sub
Sub Заполнение()
'
' Заполнение Макрос
' Макрос записан 10.06.2008 (Managers)
''
Sheets("1").Select
Range("C3:C8").Select
Selection.Copy
Sheets("2").Select
Range("C3").Select
ActiveSheet.Paste
Sheets("1").Select
Range("D3:D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2").Select
Range("D3").Select
ActiveSheet.Paste
Sheets("1").Select
Range("E3:E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2").Select
Range("E3").Select
ActiveSheet.Paste
Range("A1:G2").Select
Selection.Font.ColorIndex = 5
Range("F11").Select
Sheets("2").Select
ActiveWorkbook.Sheets("2").Tab.ColorIndex = 3
Sheets("1").Select
ActiveWorkbook.Sheets("1").Tab.ColorIndex = 44
Sheets("3").Select
ActiveWorkbook.Sheets("3").Tab.ColorIndex = 6
Range("D41").Select
Sheets("2").Select
End Sub
Sub Рассчет()
'
' Рассчет Макрос
'
'
Range("F3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-3]"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/RC[-3])*100"
Range("F3").Select
Selection.NumberFormat = "#,##0.00"
Selection.AutoFill Destination:=Range("F3:F8"), Type:=xlFillDefault
Range("F3:F8").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("F8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("G3").Select
ActiveCell.FormulaR1C1 = "=(RC[-2]/RC[-3])*100"
Range("F3").Select
Selection.Copy
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G3:G8"), Type:=xlFillDefault
Range("G3:G8").Select
Range("G3:G8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("G8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("F17").Select
End Sub
Sub Очистка()
'
' Очистка Макрос
' Макрос записан 10.06.2008 (Managers)
''
Range("A1:H9").Select
Selection.Clear
Columns("B:B").ColumnWidth = 10.14
Columns("F:F").ColumnWidth = 9
Columns("G:G").ColumnWidth = 10.57
Columns("A:A").ColumnWidth = 9.57
Range("H19").Select
End Sub
