Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

End Sub. Do While Worksheets(«Товары»).Cells(k, 1) <> «»




End

End Sub

End Sub

UserForm1.Show

Loop

Loop

k = 2

Do While Worksheets(«Товары»).Cells(k, 1) <> «»

UserForm1.ComboBox2.AddItem Worksheets(«Товары»).Cells(k, 1)

k = k + 1

В тексте программы учтено, что первая строка на рабочих «Товары» и «Заказчики» содержит названия столбцов и поэтому цикл начинается со значения k = 2. При этом циклы для заполнения комбинированных списков «Заказчики» и «Товары» практически совпадают, однако их нельзя объединить в один, поскольку количество заказчиков и товаров может быть разным.

Командная кнопка «Очистка» на листе «Платеж» должна очищать те ячейки, которые будут заполняться после выполнения диалога на окне UserForm1. Для очистки ячеек используется метод ClearContents, а область очищаемых ячеек задается объектом Range:

Sub CommandButton2_Click()

Worksheets("Платеж").Range("b8:b10").ClearContents

Worksheets("Платеж ").Range("a13:d13").ClearContents

Worksheets("Платеж ").Range("b17").ClearContents

Поскольку кнопка «Очистка» находится на листе «Платеж», то указание листа (Worksheets("Платеж").)можно опустить.

В ходе выполнения диалога в окне UserForm1 необходимо раскрыть и выбрать из списка «Заказчик» фирму-заказчика, а из списка «Товар» наименование товара. В поле Количество заказчик определяет нужное ему количество товара.

Программа для командной кнопки «Принять заказ» на форме пользователя должна заполнить ячейки на рабочем листе «Платеж», подсчитать стоимость товара и заполнить поле даты. В программе учтено то, что нумерация элементов в комбинированном списке начинается с нуля.

Sub CommandButton1_Click()

n = ComboBox1.ListIndex + 1

Worksheets("Платеж").Range("b8") = Worksheets("Заказчи-ки").Cells(n + 1, 1)

Worksheets("Платеж").Range("b9") = Worksheets("Заказчи-ки").Cells(n + 1, 2)

Worksheets("Платеж").Range("b10") = Worksheets("Заказчи-ки").Cells(n + 1, 4)

m = ComboBox1.ListIndex + 1

Worksheets("Платеж").Range("a13") = Worksheets("Товары").Cells(m + 1, 1)

Worksheets("Платеж").Range("b13") = Worksheets("Товары").Cells(m + 1, 2)

Worksheets("Платеж").Range("c13") = TextBox1.Text

a1 = Worksheets("Платеж").Range("b13")

a2 = Worksheets("Платеж").Range("c13")

Worksheets("Платеж").Range("d13") = a1 * a2

Worksheets("Товары").Cells(m + 1, 3) = Workheets("Товары").Cells(m + 1, 3) - TextBox1.Text

Worksheets("Платеж").Range("b17") = Date

Worksheets("Платеж").Activate

Встроенная функция Date определяет текущую дату. При выполнении оператора End произойдет закрытиедиалогового окна пользовательской формы и на экране останется лист «Платеж».

После формирования листа «Платеж» его можно напечатать с помощью кнопки «Печать», которая может быть размещена на этом же листе вне ячеек с информацией:

Sub CommandButton3_Click()

Worksheets("Платеж").Range("a1:e18").PrintOut




Поделиться с друзьями:


Дата добавления: 2014-01-20; Просмотров: 324; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.009 сек.