Автоматизация работы аукциона

Санкт-Петербургский

Инженерно-Экономический

Университет

Отчет по курсовой работе

На тему:

«Автоматизация работы аукциона»

                                    Выполнила:

Студентка гр. 371

Комлева Евгения

2009г.

Содержание курсовой работы

1. План постановки задачи                                                         стр.3

2. Вид баз данных и меню                                                           стр.5

3.Программный код                                                                     стр.6

4. Блок-схема «Удаление лота»                                                 стр.25

План постановки задачи.

1.       Наименование задачи: «Автоматизация работы аукциона».

2.       Сущность задачи:

Во время работы аукциона администратор должен принимать, вести учет и запись
поступивших лотов, полученных от оценщика по накладным в которых указаны
наименование экспоната, автор работы, период и т.д.Администратор аукциона регистрирует полученные экспонаты в журнале “лот аукциона ” где указывается помимо наименования экспоната, художника, периода и страны еще  месторасположение(секция, дата аукциона),инвентарный номер. Инвентарный номер присваивается по мере поступления экспонатов то есть . В журнале участников администратор регистрирует желающих принять участие в аукциона. В журнале он отмечает ФИО , присваивает внутренний номер и дату аукциона, в котором участник хочет участвовать. . При формировании нового аукциона  администратор заносит в журнал  «каталог аукциона»   даты начала аукциона . А в журнал “лот аукциона” записывается дата при регистрации экспонатов.  По окончанию  аукциона администратор пишет
отчет, где указывает дату аукциона, кол-во проданных лотов и сумму от продаж. Проданные экспонаты заносятся в журнал «Архив», где указываются все их атрибуты, а также атрибуты покупателя и сумму за которую был куплен экспонат. 

3.       Цель решения:

1)      Сокращается время, затрачиваемое на заполнение баз данных о экспонатах и участниках.

2)      Экспонаты автоматически распределяются в каталоги аукционов по назначенным датам.

3)      Упрощается поиск и учет экспонатов и участников аукциона.

4)      Автоматизированный расчет прибыли аукциона.

4.       Назначение:  данная задача предназначена для работы частного аукционера. Все его функции автоматизированы, что значительно  упрощает работу, сокращает время и уменьшает кол-во нужных организации сотрудников.

5.       Периодичность: По мере поступления новых партий экспонатов, будут назначаться новые даты аукциона, регистрироваться новые участники.

6.       Источники данных: Главным источником данных аукционера являются базы данных и архивы, из которых он может узнать всю интересующую его информацию: об участниках аукциона, о проданных экспонатах и кто их купил. Можно воспользоваться поиском по названию или автору, который доступен всем. Через меню аукционы можно узнать даты планируемых аукционов.

7.       Потребители результатной информации: результатной информацией является отчет за проведенные аукционы и каталог аукциона для потенциальных покупателей.

Базы данных:

1.Лот аукицона:                               2.Тип лота:

Название                                           Пейзаж 

Автора                                               Портрет

Дата написания                                Натюрморт   

Тип                                                    Живопись

Вид                                                    Двойной портрет  

Место хранения(секция)                 Импровизация

Начальная стоимость                      Современное ис-во

Дата аукциона

Присвоенный номер

3.Вид полотна:                        4.Секция хранения лота: 

Акварель                                   1) 6-1 век до н.э.

Масляные краски                     2)1-6 век н.э.

Сангина                                     3)7-14 век н.э

Пастель                                     4) 15-21 век н.э.

Карандаш

Уголь

Гравюра

Чернила

Фото

5.Участники аукциона:                    6.Каталог аукциона:

Ф.И.О.                                                      Дата аукциона

Дата аукциона

Присвоенный номер

МЕНЮ:

Лот                   Участники     Аукцион      Поиск           Отчет               Выход

Новый лот         Новый              Торги       Поиск по…   Отчет о прибыли

Изменить           Изменить                                                 Печать отчета    

Удалить             Удалить

Код программы:

Модуль:

Sub Auto_Open()

MyMenu

Sheets("Найдено").Visible = 0

Sheets("Лот аукциона").Activate

End Sub

Sub MyMenu()

Dim ГлМеню As Object

Dim Пменю As Object, ПМеню1 As Object, ПМеню2 As Object, ПМеню3 As Object, ПМеню4 As Object, ПМеню5 As Object, ПМеню6 As Object, ПМеню7 As Object, ПМеню8 As Object, ПМеню9 As Object, Пменю10 As Object

Application.CommandBars("Formatting").Visible = False

Set ГлМеню = CommandBars.Add _

(Name:="MyMenu1", Position:=msoBarTop, _

MenuBar:=True, temporary:=True)

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Лот"

End With

Set ПМеню1 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню1

    .Caption = "Новый лот"

    .OnAction = "Add1"

End With

Set ПМеню2 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню2

    .Caption = "Удалить лот"

    .OnAction = "Add2"

End With

Set ПМеню3 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню3

    .Caption = "Изменить лот"

    .OnAction = "Add3"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Участники"

End With

Set ПМеню4 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню4

    .Caption = "Новый"

    .OnAction = "Add4"

End With

Set ПМеню5 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню5

    .Caption = "Изменить"

    .OnAction = "Add5"

End With

Set ПМеню6 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню6

    .Caption = "Удалить"

    .OnAction = "Add6"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Аукцион"

End With

Set ПМеню7 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню7

    .Caption = "Торги"

    .OnAction = "Add7"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Поиск"

End With

Set ПМеню8 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню8

    .Caption = "Поиск по..."

    .OnAction = "Add8"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Отчёт"

End With

Set ПМеню9 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню9

    .Caption = "Отчет о прибыли"

    .OnAction = "Add9"

End With

Set Пменю10 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With Пменю10

    .Caption = "Печать отчета"

    .OnAction = "Add10"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlButton)

With Пменю

    .Style = msoButtonCaption

    .Caption = "Выход"

    .OnAction = "DeleteMyMenu"

End With

With ГлМеню

    .Visible = True

    .Protection = msoBarNoMove

End With

End Sub

Sub DeleteMyMenu()

Application.CommandBars("Formatting").Visible = True

CommandBars("MyMenu1").Delete

End Sub

Sub Add1()

With UserForm1

.ComboBox7.List = Sheets("списки").Range("A1").CurrentRegion.Value

.ComboBox7.ListIndex = 0

.ComboBox6.List = Sheets("списки").Range("C1").CurrentRegion.Value

.ComboBox6.ListIndex = 0

.ComboBox5.List = Sheets("списки").Range("E1").CurrentRegion.Value

.ComboBox5.ListIndex = 0

N = Sheets("каталог аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox4.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(N, 1)).Value

.ComboBox4.ListIndex = 0

.Show

End With

End Sub

Sub Add4()

With UserForm2

N = Sheets("каталог аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(N, 1)).Value

.ComboBox1.ListIndex = 0

.Show

End With

End Sub

Sub Add5()

With UserForm3

N = Sheets("участники аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("участники аукциона").Range("A2", Sheets("участники аукциона").Cells(N, 1)).Value

.ComboBox2.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(N, 1)).Value

.ComboBox2.ListIndex = 0

.Show

End With

End Sub

Sub Add7()

With UserForm4

N = Sheets("каталог аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(N, 1)).Value

'.ComboBox1.ListIndex = 0

'T = Sheets("лот аукциона").Cells(1, 8).CurrentRegion.Rows.Count

'.ComboBox4.List = Sheets("лот аукциона").Range("H2", Sheets("лот аукциона").Cells(T, 8)).Value

'.ComboBox4.ListIndex = 0

M = Sheets("участники аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox3.List = Sheets("участники аукциона").Range("B2", Sheets("участники аукциона").Cells(M, 2)).Value

.Show

End With

End Sub

Sub Add2()

With UserForm5

T = Sheets("лот аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("лот аукциона").Range("A2", Sheets("лот аукциона").Cells(T, 1)).Value

'.ComboBox1.ListIndex = 0

N = Sheets("лот аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox2.List = Sheets("лот аукциона").Range("B2", Sheets("лот аукциона").Cells(N, 2)).Value

'.ComboBox2.ListIndex = 0

K = Sheets("лот аукциона").Cells(1, 3).CurrentRegion.Rows.Count

.ComboBox3.List = Sheets("лот аукциона").Range("C2", Sheets("лот аукциона").Cells(K, 3)).Value

'.ComboBox3.ListIndex = 0

.Show

End With

End Sub

Sub Add3()

With UserForm6

R = Sheets("лот аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("лот аукциона").Range("A2", Sheets("лот аукциона").Cells(R, 1)).Value

W = Sheets("лот аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox2.List = Sheets("лот аукциона").Range("B2", Sheets("лот аукциона").Cells(W, 2)).Value

K = Sheets("лот аукциона").Cells(1, 3).CurrentRegion.Rows.Count

.ComboBox3.List = Sheets("лот аукциона").Range("C2", Sheets("лот аукциона").Cells(K, 3)).Value

.ComboBox4.List = Sheets("списки").Range("A1").CurrentRegion.Value

.ComboBox4.ListIndex = 0

.ComboBox5.List = Sheets("списки").Range("C1").CurrentRegion.Value

.ComboBox5.ListIndex = 0

.ComboBox6.List = Sheets("списки").Range("E1").CurrentRegion.Value

.ComboBox6.ListIndex = 0

P = Sheets("каталог аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox9.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(P, 1)).Value

.ComboBox9.ListIndex = 0

.Show

End With

End Sub

Sub add6()

With UserForm7

Q = Sheets("участники аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("участники аукциона").Range("A2", Sheets("участники аукциона").Cells(Q, 1)).Value

J = Sheets("участники аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox2.List = Sheets("участники аукциона").Range("B2", Sheets("участники аукциона").Cells(J, 2)).Value

H = Sheets("участники аукциона").Cells(1, 3).CurrentRegion.Rows.Count

.ComboBox3.List = Sheets("участники аукциона").Range("C2", Sheets("участники аукциона").Cells(H, 3)).Value

.Show

End With

End Sub

Sub add8()

With UserForm8

.Show

End With

End Sub

Sub add9()

With UserForm9

P = Sheets("каталог аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(P, 1)).Value

.ComboBox1.ListIndex = 0

.Show

End With

End Sub

Sub add10()

With UserForm10

.Show

End With

End Sub

Меню «Лот аукциона»:

Private Sub CommandButton1_Click()

Unload Me

End Sub

Private Sub CommandButton2_Click()

Dim M(1 To 9) As Variant

Dim obj As Object

Dim N As Integer, i As Integer

Set obj = Worksheets("Лот аукциона").Cells(1, 1).CurrentRegion

N = obj.Rows.Count + 1

With UserForm1

M(1) = .TextBox10.Text

M(2) = .TextBox9.Text

M(3) = .TextBox8.Text

M(4) = .ComboBox7.Text

M(5) = .ComboBox6.Text

M(6) = .ComboBox5.Text

M(7) = .TextBox7.Text

M(8) = .TextBox6.Text

M(9) = .ComboBox4.Text

End With

For i = 1 To 9

Worksheets("Лот аукциона").Cells(N, i).Value = M(i)

Next i

With UserForm1

.TextBox10.Text = " "

.TextBox9.Text = " "

.TextBox8.Text = " "

.ComboBox7.Text = " "

.ComboBox6.Text = " "

.ComboBox5.Text = " "

.TextBox7.Text = " "

.TextBox6.Text = " "

.ComboBox4.Text = " "

.TextBox1.SetFocus

End With

If Len(M(1)) = 0 Or Len(M(2)) = 0 Or Len(M(3)) = 0 Or Len(M(4)) = 0 Or Len(M(5)) = 0 Or Len(M(6)) = 0 Or Len(M(7)) = 0 Or Len(M(8)) = 0 Or Len(M(9)) = 0 Then

MsgBox "Заполните, пожалуйста, все поля!", vbCritical, Title:="Ошибка ввода"

Exit Sub

End If

End Sub

Меню «Участники аукциона»:

Private Sub CommandButton1_Click()

Dim M(1 To 3) As Variant

Dim obj As Object

Dim N As Integer, i As Integer

Set obj = Worksheets("участники аукциона").Cells(1, 1).CurrentRegion

N = obj.Rows.Count + 1

With UserForm2

M(1) = .TextBox1.Text

M(2) = .TextBox2.Text

M(3) = .ComboBox1.Text

End With

For i = 1 To 3

Worksheets("участники аукциона").Cells(N, i).Value = M(i)

Next i

With UserForm2

.TextBox1.Text = " "

.TextBox2.Text = " "

.ComboBox1.Text = " "

.TextBox1.SetFocus

End With

If Len(M(1)) = 0 Or Len(M(2)) = 0 Or Len(M(3)) = 0 Then

MsgBox "Заполните, пожалуйста, все поля!", vbCritical, Title:="Ошибка ввода"

Exit Sub

End If

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Меню «Изменение информации об участнике»:

Private Sub CommandButton1_Click()

Dim obj As Object

Dim i As Integer

i = 0

With Worksheets("Участники аукциона").Range("a1:a500")

    Set obj = .Find(ComboBox1.Text, LookIn:=xlValues)

    If Not obj Is Nothing Then

        firstAddress = obj.Address

        Do

            i = i + 1

            obj.Cells(i, 3).Value = ComboBox2.Text

            obj.Cells(i, 2).Value = TextBox1.Text

            Set obj = .FindNext(obj)

        Loop While Not obj Is Nothing And obj.Address <> firstAddress

    End If

End With

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Меню «Торги»:

Dim StrSearch As Object

Private Sub ComboBox1_Change()

Dim zapros As String

Dim o_O As Object

Dim KolStr As Integer

Dim l As Integer

zapros = UserForm4.ComboBox1.Value

KolStr = Sheets("Лот аукциона").Cells(1, 1).CurrentRegion.Rows.Count

For i = 1 To KolStr

Sheets("temp").Cells(i, 1) = " "

Next i

l = 1

For i = 2 To KolStr

If Sheets("Лот аукциона").Cells(i, 9) = zapros Then

   Sheets("temp").Cells(l, 1) = Sheets("Лот аукциона").Cells(i, 8)

   l = l + 1

   End If

Next i

KolStr = Sheets("temp").Cells(1, 1).CurrentRegion.Rows.Count

ComboBox4.List = Sheets("temp").Range("A1", Sheets("temp").Cells(KolStr, 1)).Value

End Sub

Private Sub ComboBox4_Change()

Dim Exp As String

Exp = ComboBox4.Value

Set StrSearch = Sheets("Лот аукциона").Columns(8).Find(Exp, lookat:=xlWhole)

If Not (StrSearch Is Nothing) Then

TextBox1.Text = Sheets("Лот аукциона").Cells(StrSearch.Row, 2).Value

TextBox2.Text = Sheets("Лот аукциона").Cells(StrSearch.Row, 1).Value

TextBox3.Text = Sheets("Лот аукциона").Cells(StrSearch.Row, 3).Value

TextBox4.Text = Sheets("Лот аукциона").Cells(StrSearch.Row, 5).Value

TextBox5.Text = Sheets("Лот аукциона").Cells(StrSearch.Row, 6).Value

TextBox6.Text = Sheets("Лот аукциона").Cells(StrSearch.Row, 7).Value

Else

ComboBox1.ListIndex = -1

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

End If

End Sub

Private Sub ComboBox3_Change()

Dim nom As String

nom = ComboBox3.Value

Set StrSearch = Sheets("участники аукциона").Columns(2).Find(nom, lookat:=xlWhole)

If Not (StrSearch Is Nothing) Then

TextBox7.Text = Sheets("участники аукциона").Cells(StrSearch.Row, 1).Value

Else

ComboBox1.ListIndex = -1

TextBox7.Text = " "

End If

End Sub

Private Sub CommandButton1_Click()

Set StrSearch = Sheets("лот аукциона").Columns(8).Find(ComboBox4.Value, lookat:=xlWhole)

Dim M(1 To 11) As Variant

Dim pro As Object

Dim N As Integer, i As Integer

Set pro = Worksheets("Архив").Cells(1, 1).CurrentRegion

N = pro.Rows.Count + 1

With UserForm4

M(1) = .ComboBox1.Text

M(2) = .ComboBox4.Text

M(3) = .TextBox1.Text

M(4) = .TextBox2.Text

M(5) = .TextBox3.Text

M(6) = .TextBox4.Text

M(7) = .TextBox5.Text

M(8) = .TextBox6.Text

M(9) = .ComboBox3.Text

M(10) = .TextBox7.Text

M(11) = .TextBox8.Text

End With

For i = 1 To 11

Worksheets("Архив").Cells(N, i).Value = M(i)

Next i

With UserForm4

.ComboBox1.Text = " "

.ComboBox4.Text = " "

.TextBox1.Text = " "

.TextBox2.Text = " "

.TextBox3.Text = " "

.TextBox4.Text = " "

.TextBox5.Text = " "

.TextBox6.Text = " "

.ComboBox3.Text = " "

.TextBox7.Text = " "

.TextBox8.Text = " "

.TextBox1.SetFocus

End With

If Len(M(1)) = 0 Or Len(M(2)) = 0 Or Len(M(3)) = 0 Or Len(M(4)) = 0 Or Len(M(5)) = 0 Or Len(M(6)) = 0 Or Len(M(7)) = 0 Or Len(M(8)) = 0 Or Len(M(9)) = 0 Or Len(M(10)) = 0 Or Len(M(11)) = 0 Then

MsgBox "Заполните, пожалуйста, все поля!", vbCritical, Title:="Ошибка ввода"

Exit Sub

End If

End Sub

Private Sub CommandButton3_Click()

Unload Me

End Sub

Меню «Удаление лота»:

Dim StrSearch As Object

Private Sub ComboBox1_Change()

Dim Exp As String

Exp = ComboBox1.Value

Set StrSearch = Sheets("лот аукциона").Columns(1).Find(Exp, lookat:=xlWhole)

If Not (StrSearch Is Nothing) Then

ComboBox1.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 1).Value

ComboBox2.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 2).Value

ComboBox3.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 3).Value

Else

ComboBox1.ListIndex = -1

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

End If

End Sub

Private Sub CommandButton1_Click()

If Not (StrSearch Is Nothing) Then

Sheets("лот аукциона").Range(Sheets("лот аукциона").Cells(StrSearch.Row, 1), Sheets("лот аукциона").Cells(StrSearch.Row, 5)).Copy

Sheets("лот аукциона").Range(Sheets("лот аукциона").Cells(StrSearch.Row, 1), Sheets("лот аукциона").Cells(StrSearch.Row, 9)).Delete

Unload Me

Else

MsgBox "Ошибка", vbCritical

End If

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Меню «Изменение лота»:

Dim StrSearch As Object

Private Sub CommandButton1_Click()

Dim obj As Object

Dim i As Integer

i = 0

With Worksheets("лот аукциона").Range("a1:a500")

    Set obj = .Find(ComboBox1.Text, LookIn:=xlValues)

    If Not obj Is Nothing Then

        firstAddress = obj.Address

        Do

            i = i + 1

            obj.Cells(i, 2).Value = ComboBox2.Text

            obj.Cells(i, 3).Value = ComboBox3.Text

            obj.Cells(i, 4).Value = ComboBox4.Text

            obj.Cells(i, 5).Value = ComboBox5.Text

            obj.Cells(i, 6).Value = ComboBox6.Text

            obj.Cells(i, 7).Value = TextBox1.Text

            obj.Cells(i, 8).Value = TextBox2.Text

            obj.Cells(i, 9).Value = ComboBox9.Text

            Set obj = .FindNext(obj)

        Loop While Not obj Is Nothing And obj.Address <> firstAddress

    End If

End With

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub ComboBox1_Change()

Dim Exp As String

Exp = ComboBox1.Value

Set StrSearch = Sheets("лот аукциона").Columns(1).Find(Exp, lookat:=xlWhole)

If Not (StrSearch Is Nothing) Then

ComboBox1.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 1).Value

ComboBox2.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 2).Value

ComboBox3.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 3).Value

ComboBox4.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 4).Value

ComboBox5.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 5).Value

ComboBox6.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 6).Value

TextBox1.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 7).Value

TextBox2.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 8).Value

ComboBox9.Text = Sheets("лот аукциона").Cells(StrSearch.Row, 9).Value

Else

'ComboBox1.ListIndex = -1

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

ComboBox4.Text = ""

ComboBox5.Text = ""

ComboBox6.Text = ""

TextBox1.Text = ""

TextBox2.Text = ""

ComboBox9.Text = ""

End If

End Sub

Меню «Удаление участника»:

Dim StrSearch As Object

Private Sub ComboBox1_Change()

Dim fio As String

fio = ComboBox1.Value

Set StrSearch = Sheets("участники аукциона").Columns(1).Find(fio, lookat:=xlWhole)

If Not (StrSearch Is Nothing) Then

ComboBox1.Text = Sheets("участники аукциона").Cells(StrSearch.Row, 1).Value

ComboBox2.Text = Sheets("участники аукциона").Cells(StrSearch.Row, 2).Value

ComboBox3.Text = Sheets("участники аукциона").Cells(StrSearch.Row, 3).Value

Else

ComboBox1.ListIndex = -1

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

End If

End Sub

Private Sub CommandButton1_Click()

If Not (StrSearch Is Nothing) Then

'Sheets("участники аукциона").Range(Sheets("участники аукциона").Cells(StrSearch.Row, 1), Sheets("учатсники аукциона").Cells(StrSearch.Row, 5)).Copy

Sheets("участники аукциона").Range(Sheets("участники аукциона").Cells(StrSearch.Row, 1), Sheets("участники аукциона").Cells(StrSearch.Row, 3)).Delete

Unload Me

Else

MsgBox "Ошибка", vbCritical

End If

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Меню «Поиск»:

Private Sub CommandButton1_Click()

Dim zapros As String

Dim o_O As Object

Dim KolStr As Integer

Dim l As Integer

zapros = UserForm8.TextBox1.Value

KolStr = Sheets("Лот аукциона").Cells(1, 1).CurrentRegion.Rows.Count

For i = 1 To KolStr

    With Sheets("Найдено")

        .Cells(i, 1) = ""

        .Cells(i, 2) = ""

        .Cells(i, 3) = ""

        .Cells(i, 4) = ""

    End With

Next i

With Sheets("Найдено")

.Cells(1, 1).Value = "Название"

.Cells(1, 2).Value = "Автор"

.Cells(1, 3).Value = "Дата написания"

.Cells(1, 4).Value = "Дата аукциона"

End With

l = 2

For i = 2 To KolStr

    Set o_O = Sheets("Лот аукциона").Rows(i).Find(zapros, lookat:=xlWhole)

    If Not (o_O Is Nothing) Then

    With Sheets("Найдено")

    .Cells(l, 1) = Sheets("Лот аукциона").Cells(o_O.Row, 1).Value

    .Cells(l, 2) = Sheets("Лот аукциона").Cells(o_O.Row, 2).Value

    .Cells(l, 3) = Sheets("Лот аукциона").Cells(o_O.Row, 3).Value

    .Cells(l, 4) = Sheets("Лот аукциона").Cells(o_O.Row, 9).Value

   End With

    l = l + 1

    End If

Next i

    TextBox1.Value = ""

    Sheets("Найдено").Visible = -1

   Sheets("Найдено").Activate

   End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Меню «Отчет»:

Private Sub ComboBox1_Change()

Dim zapros As String

Dim o_O As Object

Dim KolStr As Integer

Dim l As Integer

Dim kol As Integer

Dim summ As Long

kol = 0

summ = 0

zapros = UserForm9.ComboBox1.Value

KolStr = Sheets("архив").Cells(1, 1).CurrentRegion.Rows.Count

For i = 1 To KolStr

Sheets("tempry").Cells(i, 1) = " "

Next i

l = 1

For i = 2 To KolStr

If Sheets("архив").Cells(i, 1) = zapros Then

   Sheets("tempry").Cells(l, 1) = Sheets("архив").Cells(i, 2)

      l = l + 1

   kol = kol + 1

   summ = summ + Sheets("архив").Cells(i, 11)

   End If

Next i

TextBox1.Text = kol

TextBox2.Text = summ

End Sub

Private Sub CommandButton1_Click()

Dim M(1 To 3) As Variant

Dim obj As Object

Dim N As Integer, i As Integer

Set obj = Worksheets("отчетность").Cells(1, 1).CurrentRegion

N = obj.Rows.Count + 1

With UserForm9

M(1) = .ComboBox1.Text

M(2) = .TextBox1.Text

M(3) = .TextBox2.Text

End With

For i = 1 To 3

Worksheets("отчетность").Cells(N, i).Value = M(i)

Next i

With UserForm9

.ComboBox1.Text = " "

.TextBox1.Text = " "

.TextBox2.Text = " "

'.TextBox1.SetFocus

End With

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Меню «Печать отчета»:

Private Sub CommandButton1_Click()

Sheets("Отчетность").PrintOut

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Блок-схема «Удаление участника аукциона»:

                                          ДА

                                   НЕТ   

25