Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Private Sub CommandButton2_Click()
|
|
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
|
|