Разработка проекта автоматизации бизнес-процесса компании ЗАО "ФМ Ложистик Кастомс"

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