Автоматизация бизнес-процессов компании
Оптимизация процессов с помощью подхода Мартина. Проблемы недостаточной эффективности в работе. Автоматизация процесса сверки сведений из электронных документов. Распределение функций по подразделениям и сотрудникам. Ускорение выполнения ручных операций.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | дипломная работа |
Язык | русский |
Дата добавления | 10.12.2013 |
Размер файла | 6,8 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
tnsmth = Selection
ActiveSheet.Cells(iq, 8).Select
cntr = Selection
ActiveSheet.Cells(iq, 11).Select
nam = Selection
ActiveSheet.Cells(iq, 17).Select
e = Selection
iqq = 18
ee = ""
For ewrr = 0 To 16 Step 4
ActiveSheet.Cells(iq, 17 + ewrr).Select
e = Selection
iqq = 18
Do While e = "01191"
qwei = 2
ActiveSheet.Cells(iq, 18 + ewrr).Select
If ee = "" Then ee = Selection: qwei = 1
If ee <> "" And qwei = 2 Then ee = ee & " , " & Selection
Exit Do
Loop
Do While e = 10023
ActiveSheet.Cells(iq, 18 + ewrr).Select
eee = Selection
erub = 1
Exit Do
Loop
Next
ActiveSheet.Cells(iq, 9).Select
swt = Selection
Exit For
Exit Do
Loop
Next
Windows("Книга2.xlsx").Activate
ActiveSheet.Cells(q, 1).Select
Selection = art
ActiveSheet.Cells(q, 2).Select
Selection = tnsmth
ActiveSheet.Cells(q, 3).Select
Selection = nam
ActiveSheet.Cells(q, 4).Select
Selection = cntr
ActiveSheet.Cells(q, 5).Select
Selection = dev
ActiveSheet.Cells(q, 6).Select
Selection = ee
ActiveSheet.Cells(q, 7).Select
If erub = 1 Then Selection = eee
erub = 0
ActiveSheet.Cells(q, 8).Select
Selection = qwt
ActiveSheet.Cells(q, 9).Select
Selection = svl
ActiveSheet.Cells(q, 10).Select
Selection = mvl
ActiveSheet.Cells(q, 11).Select
Selection = fr
ActiveSheet.Cells(q, 12).Select
Selection = tvl
ActiveSheet.Cells(q, 13).Select
Selection = ps
ActiveSheet.Cells(q, 14).Select
Selection = qwt * swt
ActiveSheet.Cells(q, 15).Select
Selection = wt
q = q + 1
Exit Do
Loop
Windows("мери.xlsx").Activate
' Windows("ARTIKUL1.xlsx").Activate
Next
Windows("Книга2.xlsx").Activate
ActiveSheet.Cells(q + 1, 2).Select
Selection = "Группировка по коду ТНВЭД"
Range(Cells(q + 1, 2), Cells(q + 1, 2)).Select
With Selection.Font
.Name = "Calibri"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
ActiveSheet.Cells(q + 2, 2).Select
Selection = "Код ТНВЭД»
ActiveSheet.Cells(q + 2, 4).Select
Selection = "Страна"
ActiveSheet.Cells(q + 2, 8).Select
Selection = "Кол-во"
ActiveSheet.Cells(q + 2, 10).Select
Selection = "Стоимость"
ActiveSheet.Cells(q + 2, 11).Select
Selection = "Фрахт"
ActiveSheet.Cells(q + 2, 12).Select
Selection = "Стоимость,Итого"
ActiveSheet.Cells(q + 2, 13).Select
Selection = "Кол.мест"
ActiveSheet.Cells(q + 2, 14).Select
Selection = "Нетто"
ActiveSheet.Cells(q + 2, 15).Select
Selection = "Брутто"
Range(Cells(q + 2, 2), Cells(q + 2, 15)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
Selection.Font.Bold = False
Selection.Font.Bold = True
With Selection
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
w = q + 3
Windows("мери.xlsx").Activate
Windows("Книга2.xlsx").Activate
For i = 12 To q
ActiveSheet.Cells(i, 2).Select
art = Selection
e = 0
For iq = q + 1 To q + 100
ActiveSheet.Cells(iq, 2).Select
qwt = Selection
If qwt = art Then e = 1
Next
Do While e = 0
For ii = 12 To q
ActiveSheet.Cells(ii, 2).Select
svl = Selection
ActiveSheet.Cells(ii, 4).Select
cntr = Selection
ActiveSheet.Cells(ii, 8).Select
eeeee = Selection
ActiveSheet.Cells(ii, 10).Select
eeee = Selection
ActiveSheet.Cells(ii, 11).Select
eee = Selection
ActiveSheet.Cells(ii, 12).Select
qq = Selection
ActiveSheet.Cells(ii, 13).Select
qqq = Selection
ActiveSheet.Cells(ii, 14).Select
qqqq = Selection
ActiveSheet.Cells(ii, 15).Select
qqqqq = Selection
Do While svl = art
ActiveSheet.Cells(w, 2).Select
Selection = art
ActiveSheet.Cells(w, 4).Select
Selection = cntr
ActiveSheet.Cells(w, 8).Select
Selection = eeeee + Selection
ActiveSheet.Cells(w, 10).Select
Selection = eeee + Selection
ActiveSheet.Cells(w, 11).Select
Selection = eee + Selection
ActiveSheet.Cells(w, 12).Select
Selection = qq + Selection
qeqe = 0
ActiveSheet.Cells(w, 13).Select
Selection = qqq + Selection
If qqq = "NO INFO" Then Selection = "N/A": qeqe = 1
ActiveSheet.Cells(w, 14).Select
Selection = qqqq + Selection
ActiveSheet.Cells(w, 15).Select
Selection = qqqqq + Selection
Exit Do
Loop
Next
w = w + 1
Exit Do
Loop
Next
e = 0
For w = 12 To q
ActiveSheet.Cells(w, 15).Select
qqq = qqq + Selection
ActiveSheet.Cells(w, 14).Select
qqqq = qqqq + Selection
ActiveSheet.Cells(w, 13).Select
qqqqq = qqqqq + Selection
ActiveSheet.Cells(w, 12).Select
qqqqqq = qqqqqq + Selection
ActiveSheet.Cells(w, 11).Select
qqqqqqqq = qqqqqqqq + Selection
ActiveSheet.Cells(w, 10).Select
e = e + Selection
ActiveSheet.Cells(w, 9).Select
qe = qe + Selection
ActiveSheet.Cells(w, 8).Select
qqe = qqe + Selection
Next
ActiveSheet.Cells(q, 15).Select
Selection = qqq
ActiveSheet.Cells(q, 14).Select
Selection = qqqq
ActiveSheet.Cells(q, 13).Select
Selection = qqqqq
ActiveSheet.Cells(q, 12).Select
Selection = qqqqqq
ActiveSheet.Cells(q, 11).Select
Selection = qqqqqqqq
ActiveSheet.Cells(q, 10).Select
Selection = e
ActiveSheet.Cells(q, 9).Select
Selection = qe
ActiveSheet.Cells(q, 8).Select
Selection = qqe
Windows("Книга2.xlsx").Activate
For i = q + 2 To q + 1000
Cells(i, 2).Select
ee = Selection
If ee = "" Then q = i: Exit For
Next
ActiveSheet.Cells(q + 1, 2).Select
Selection = "Группировка по до1"
Range(Cells(q + 1, 2), Cells(q + 1, 2)).Select
With Selection.Font
.Name = "Calibri"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
ActiveSheet.Cells(q + 2, 2).Select
Selection = "Код ТНВЭД(4 знака)"
ActiveSheet.Cells(q + 2, 3).Select
Selection = "Кол-во"
ActiveSheet.Cells(q + 2, 4).Select
Selection = "Стоимость"
ActiveSheet.Cells(q + 2, 5).Select
Selection = "Фрахт"
ActiveSheet.Cells(q + 2, 6).Select
Selection = "Стоимость,Итого"
ActiveSheet.Cells(q + 2, 7).Select
Selection = "Кол.мест"
ActiveSheet.Cells(q + 2, 8).Select
Selection = "Нетто"
ActiveSheet.Cells(q + 2, 9).Select
Selection = "Брутто"
Range(Cells(q + 2, 2), Cells(q + 2, 15)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
Selection.Font.Bold = False
Selection.Font.Bold = True
With Selection
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
w = q + 3
Windows("мери.xlsx").Activate
Windows("Книга2.xlsx").Activate
For i = 12 To q
ActiveSheet.Cells(i, 2).Select
art = Left(Selection, 4)
e = 0
For iq = q + 1 To q + 100
ActiveSheet.Cells(iq, 2).Select
qwt = Left(Selection, 4)
If qwt = art Then e = 1
Next
Do While e = 0
For ii = 12 To q
ActiveSheet.Cells(ii, 2).Select
svl = Selection
ActiveSheet.Cells(ii, 4).Select
cntr = Selection
ActiveSheet.Cells(ii, 8).Select
eeeee = Selection
ActiveSheet.Cells(ii, 10).Select
eeee = Selection
ActiveSheet.Cells(ii, 11).Select
eee = Selection
ActiveSheet.Cells(ii, 12).Select
qq = Selection
ActiveSheet.Cells(ii, 13).Select
qqq = Selection
ActiveSheet.Cells(ii, 14).Select
qqqq = Selection
ActiveSheet.Cells(ii, 15).Select
qqqqq = Selection
Do While Left(svl, 4) = art
ActiveSheet.Cells(w, 2).Select
Selection = art
ActiveSheet.Cells(w, 3).Select
Selection = eeeee + Selection
ActiveSheet.Cells(w, 4).Select
Selection = eeee + Selection
ActiveSheet.Cells(w, 5).Select
Selection = eee + Selection
ActiveSheet.Cells(w, 6).Select
Selection = qq + Selection
qeqe = 0
ActiveSheet.Cells(w, 7).Select
Selection = qqq + Selection
If qqq = "NO INFO" Then Selection = "N/A": qeqe = 1
ActiveSheet.Cells(w, 8).Select
Selection = qqqq + Selection
ActiveSheet.Cells(w, 9).Select
Selection = qqqqq + Selection
Exit Do
Loop
Next
w = w + 1
Exit Do
Loop
Next
End Sub
Sub арт()
Windows("ARTIKUL1.xlsx").Activate
Range("B514").Select
End Sub
Sub возврат()
Windows("спец.xlsm").Activate
End Sub
Sub Mr_Wolf()
MsgBox ("Приветствую. Я - мистер Вульф, мое занятие - решение чужих проблем. На данный момент я попытаюсь решить проблему с неправильными значениями веса в спецификации.")
MsgBox ("Что, файл в котором находится вес называется по другому? Отлично. Называйте его как вам вздумается.")
MsgBox ("Так вот. Проблема может быть решена двумя методами.")
eq = 1
Do While eq = 1
ee = MsgBox("1 метод. Я разбираюсь с проблемой сам. в таком случае нажимайте на ОК", vbOKCancel)
If ee = vbOK Then eq = 3
Do While ee <> vbOK
ee = MsgBox("2 метод. Вы можите задать точный процент разницы между весами. Нажимайте на ОК и введите его в следующее окно.", vbOKCancel)
qq = InputBox("Разница в процентах.% писать не нужно.")
If ee = vbOK Then eq = 2
Exit Do
Loop
Loop
For i = 12 To 200
ActiveSheet.Cells(i, 15).Select
e = Selection
If e = "" Then Exit For
Next
For ii = 12 To i - 2
ActiveSheet.Cells(ii, 15).Select
e = Selection
ActiveSheet.Cells(ii, 14).Select
If eq = 3 Then Selection = e * (0.95 - Rnd() / 5): eqq = eqq + Selection
If eq = 2 Then Selection = e * (1 - qq / 100): eqq = eqq + Selection
Next
ActiveSheet.Cells(i - 1, 14).Select
Selection = eqq
MsgBox ("Думаете мистер Вульф забыл о группировке по кодам?")
MsgBox ("Ничего подобного")
w = i + 2
For iq = i + 2 To i + 100
ActiveSheet.Cells(iq, 14).Select
If Selection = "" Then Exit For
Selection = 0
ActiveSheet.Cells(iq, 2).Select
Selection = 0
Next
For iii = 12 To i - 1
ActiveSheet.Cells(iii, 2).Select
art = Selection
e = 0
For iq = i + 1 To i + 100
ActiveSheet.Cells(iq, 2).Select
If Selection = "" Then Exit For
qwt = Selection
If qwt = art Then e = 1
Next
Do While e = 0
For ii = 12 To i
ActiveSheet.Cells(ii, 2).Select
svl = Selection
ActiveSheet.Cells(ii, 14).Select
qqqq = Selection
Do While svl = art
ActiveSheet.Cells(w, 2).Select
Selection = art
ActiveSheet.Cells(w, 14).Select
Selection = qqqq + Selection
Exit Do
Loop
Next
w = w + 1
Exit Do
Loop
Next
End Sub
Sub home()
' home Макрос
Windows("ARTIKUL1.xlsx").Activate
ActiveWindow.Close
Windows("мери.xlsx").Activate
ActiveWindow.Close
Windows("Книга2.xlsx").Activate
ActiveWindow.Close
End Sub
Размещено на Allbest.ru
Подобные документы
Обзор методов моделирования бизнес-процессов. Оптимизация процессов с помощью методологии Мартина. Анализ проблем и причины недостаточной эффективности в работе "ФМ Ложистик Кастомс". Автоматизация процесса сверки сведений из электронных документов.
дипломная работа [4,5 M], добавлен 11.12.2013Понятие бизнес-процесса. Формы автоматизации регистрации документов. Функции систем электронного управления делопроизводства и документооборота, обоснование их выбора и практическое применение. Структура рынка программных продуктов в области ЭУД.
курсовая работа [232,8 K], добавлен 17.07.2013Организационная структура туристической компании и функциональные ее обязанности подразделений. Анализ технико-экономических показателей ООО "Югрос Консалтинг". Проектирование автоматизации бизнес-процессов предприятия на платформе 1С: Предприятие 8.2.
курсовая работа [1,5 M], добавлен 04.06.2015Учет оказываемых услуг в стоматологической клинике. Автоматизация бизнес-процессов. Технологическая платформа "1С: Предприятие". Описание конфигурации, объектов метаданных. Отображение процесса ввода данных и формирования документов. Регистры бухгалтерии.
дипломная работа [1,9 M], добавлен 17.11.2015Описание бизнес-процессов транспортной компании ООО "Сильные машины". Построение модели "AS-IS" использования действующей информационной системы при работе с заявкой заказчика. Расчет совокупных доходов от владения выбранной информационной системой.
дипломная работа [4,5 M], добавлен 09.06.2017Характеристика деятельности ООО "ЖилРемСтрой", его организационная структура. Разработка проекта автоматизации бизнес-процессов предприятия с помощью программы "1С". Контрольный пример реализации проекта. Расчет экономической эффективности автоматизации.
дипломная работа [3,7 M], добавлен 29.01.2013Общая характеристика МАДОУ детский сад №26. Организационная структура управления детского сада. Состав и функции автоматизированных рабочих мест. Автоматизация процесса приема воспитанников и обработки заявлений. Модель бизнес-процессов в нотации IDEF0.
курсовая работа [1,7 M], добавлен 16.05.2013Описание общих закономерностей функционирования организации. Изучение структуры предприятия, определение функций его подразделений и основных бизнес процессов. Разработка клиент-серверной системы по автоматизации получения и обработки заявок от абонентов.
курсовая работа [1,8 M], добавлен 02.10.2011Теоретические аспекты управления бизнес-процессами. Разница функции и бизнес-процесса. История развития процессного управления. Основные и вспомогательные процессы, их автоматизация. Примеры нотации бизнес-процессов 1С и описание технологии Workflow.
презентация [1,6 M], добавлен 13.05.2017Создание сложных автоматизированных компьютерных издательских систем и компонентов. Автоматизация проектирования процессов выполнения заказов на примере процесса изготовления каталога. Выбор и использование программных средств для реализации проекта.
курсовая работа [4,5 M], добавлен 27.03.2012