Код кнопки добавить и последующий форме

Этот код выводит одноименную форму содержащую TextBox для добавления в таблицу записи. Подобная система вывода форма выбрана мной для того чтобы основные окна формы не были переполнены различными элементами.

‘выводится форма добавления

Private Sub CommandButton1_Click()

Unload UserForm3

UserForm4.Show

End Sub

 

 

Данная форма имеет 2 TextBox и 2 CommandButton.

 

Код кнопки «Добавить»:

Private Sub CommandButton1_Click()

Sheets("Сотрудники").Activate

Dim i As Integer

i = Sheets("Сотрудники").UsedRange.Rows.Count + 1

Sheets("Сотрудники").Cells(i, 1) = TextBox5.Value

MsgBox ("Сотрудник добавлен")

TextBox5.Value = ""

TextBox4.Value = ""

Exit Sub

End Sub

 

Используя присваивание, после нажатия на кнопку «Добавить», введенный текст помещается в первую пустую строчку листа «Сотрудники».

 

Код кнопки «Назад».

Private Sub CommandButton2_Click()

Unload UserForm4

UserForm3.Show

End Sub

Закрывает форму добавления и возвращает нас на форму «Список сотрудников».

Далее на форме «Список сотрудники» есть кнопка «Удалить».

Её код:

Private Sub CommandButton3_Click()

Worksheets(1).Activate

Dim n As Integer

n = 0

n = MsgBox("Данные будут удалены" & Chr(10) & "Хотите продолжить?", vbOKCancel, "Удаление")

If n = 1 Then

i = ListBox1.ListIndex

ActiveSheet.Rows(i + 2).Delete

MsgBox ("Данные удалены")

Else

MsgBox ("Удаление отменено")

End If

i = Sheets("Сотрудники").UsedRange.Rows.Count

ListBox1.RowSource = "A2:B" + Trim(Str(i))

Unload UserForm3

UserForm3.Show

End Sub

 

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

Кнопка «Изменить»

Изменяет выделенную строку в Listbox

 

Её код:

Private Sub CommandButton2_Click()

Dim i As Integer, j As Integer, s As String, a()

a = ListBox1.List: i = ListBox1.ListIndex

For j = 0 To 1

s = InputBox("Столбец " & j + 1, "Введите новые данные", a(i, j))

If s <> "" Then Sheets("Сотрудники").Cells(i + 1, j + 1) = s

Next

i = Sheets("Сотрудники").UsedRange.Rows.Count

ListBox1.RowSource = "A2:B" + Trim(Str(i))

End Sub

Поочередно на экран выводятся запросы с изменением записи в таблице в порядке заполнения. Обновление происходит после закрытия последнего окна.

Кнопка «Оформить продажу»

Кнопка выводит на экран форму для заполнения:

Private Sub CommandButton5_Click()

Unload UserForm3

UserForm5.Show

Sheets("Сотрудники").Activate

ListBox1.ColumnWidths = "200;90"

ListBox1.Clear

i = 0

Do

i = i + 1

ListBox1.AddItem Cells(i, 1)

For j = 1 To 2

ListBox1.List(i - 1, j - 1) = Cells(i, j)

Next j

Loop While Cells(i + 1, 1) <> ""

 

End Sub

 

В данной форме мы заполняем данные для оформления продажи.

 

Код формы:

Private Sub CommandButton1_Click()

i = 2

Do Until Worksheets("Продажи").Cells(i, 1) = Empty

i = i + 1

Loop

Sheets("Продажи").Select

'Dim i As Integer

'i = Sheets("Продажи").UsedRange.Rows.Count + 1

 

Sheets("Продажи").Cells(i, 1) = ComboBox1.Value

Sheets("Продажи").Cells(i, 2) = TextBox2.Value

Sheets("Продажи").Cells(i, 3) = ComboBox3.Value

Sheets("Продажи").Cells(i, 4) = TextBox3.Value

Sheets("Продажи").Cells(i, 5) = TextBox4.Value

Sheets("Продажи").Cells(i, 6) = TextBox1.Value

MsgBox ("Продажа добавлена")

 

ComboBox1.Value = ""

TextBox2.Value = ""

ComboBox3.Value = ""

TextBox3.Value = ""

TextBox4.Value = ""

TextBox1.Value = ""

End Sub

 

Для ускорения процесса заполнения при выборе сотрудника его данные автоматически заполняют соответствующие текстовые поля.

Private Sub UserForm_Initialize()

i = 2

Do Until Worksheets("Сотрудники").Cells(i, 1) = Empty

i = i + 1

Loop

For j = 2 To i

ComboBox1.AddItem (Worksheets("Сотрудники").Cells(j, 1))

Next j

 

i = 2

Do Until Worksheets("Телефоны").Cells(i, 1) = Empty

i = i + 1

Loop

For j = 2 To i

ComboBox3.AddItem (Worksheets("Телефоны").Cells(j, 2))

Next j

End Sub

Текстовые поля с выбором даты связаны с формами на которых находится календари. При нажатии на них пользователю будет выводится удобный календарь. После выбора даты она автоматически будет помещена в текстовое поле с указанном формате.

 

 

 

Private Sub Calendar1_DblClick()

UserForm5.TextBox1.Value = Format(Calendar1.Value, "dd.mm.yyyy")

Unload UserForm8

End Sub

То есть если выбрана первая ячейка какой-то строки, то в каждое из текстовых полей заполняется соответствующими данными этой же строки.

Кнопка «Оформить продажу»:

Private Sub CommandButton1_Click()

i = 2

Do Until Worksheets("Продажи").Cells(i, 1) = Empty

i = i + 1

Loop

Sheets("Продажи").Select

'Dim i As Integer

'i = Sheets("Продажи").UsedRange.Rows.Count + 1

 

Sheets("Продажи").Cells(i, 1) = ComboBox1.Value

Sheets("Продажи").Cells(i, 2) = TextBox2.Value

Sheets("Продажи").Cells(i, 3) = ComboBox3.Value

Sheets("Продажи").Cells(i, 4) = TextBox3.Value

Sheets("Продажи").Cells(i, 5) = TextBox4.Value

Sheets("Продажи").Cells(i, 6) = TextBox1.Value

MsgBox ("Продажа добавлена")

 

 

ComboBox1.Value = ""

TextBox2.Value = ""

ComboBox3.Value = ""

TextBox3.Value = ""

TextBox4.Value = ""

TextBox1.Value = ""

End Sub

 

На рабочем листе ищется первая пустая строка в которую заносятся данные.

2.3 Форма «Телефоны»

Эта форма содержит в себе ListBox в который выводится список телефонов с одноименного листа рабочей книги. Позволяет добавлять, изменять, удалять, оформлять продажу. Для этого используются соответствующие кнопки «Добавить», «Изменить», «Удалить», «Назад», «Оформить продажу»

Кнопки «Добавить», «Оформить продажу» и «Удалить» описаны ранее. Поэтому поговорим о кнопках «Изменить»

Код кнопки «Изменить»:

Private Sub CommandButton2_Click()

Dim i As Integer, j As Integer, s As String, a()

a = ListBox1.List: i = ListBox1.ListIndex

For j = 0 To 1

s = InputBox("Столбец " & j + 1, "Введите новые данные", a(i, j))

If s <> "" Then Sheets("Телефоны").Cells(i + 1, j + 1) = s

 

Next

i = Sheets("Телефоны").UsedRange.Rows.Count

ListBox1.RowSource = "A2:B" + Trim(Str(i))

End Sub