VBA-8_счет-фактура

VBA-8. Разработка сложного проекта с использованием форм пользователя в приложении Excel

две базы данных:

• список заказчиков

• список товаров

Три основных листа:

• Бланк

• Товары

• Заказчики

Переименуем:

• Лист1 – в Бланк

• Лист2 – в Товары

• Лист3 – в Заказчики

Убрать сетку ячеек, нумерацию строк и столбцов:

Разметка страницыСетка

Разметка страницыЗаголовки

База данных Товары:

База данных Заказчики:

Форма пользователя:

Для кнопки «Заказать»:

Private Sub CommandButton1_Click()

Dim k As Integer

k = 5

Do While Worksheets("Заказчики"). _

Cells(k, 3) <> ""

UserForm1.ComboBox1.AddItem _ Worksheets("Заказчики").Cells(k, 3)

k = k + 1

Loop

Для кнопки «Очистить»:

Private Sub CommandButton2_Click()

Range("d8").ClearContents

Range("d10:d12").ClearContents

Range("b15:f19").ClearContents

Range("e21:e23").ClearContents

Range("g6").ClearContents

End Sub

Для кнопки «Принять»:

Private Sub CommandButton1_Click()

Dim k As Integer, n As Integer

k = ComboBox1.ListIndex + 1

Range("d8")=Worksheets("Заказчики").Cells(k+4,3)

Range("d10")=Worksheets("Заказчики").Cells(k+4,4)

Range("d11")=Worksheets("Заказчики").Cells(k+4,5)

Range("d12")=Worksheets("Заказчики").Cells(k+4,6)

Для кнопки «Отменить»:

Private Sub CommandButton2_Click()

End

End Sub

Для кнопки «Печать»:

Private Sub CommandButton2_Click()

Range(«a1:e16»).PrintOut

End Sub