![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Пример - разработка бланка заказа
Рис.25. Здесь столбцы А и В содержат соответственно описание системного блока и его стоимость. Следующие два столбца – название принтера со стоимостью, и далее монитор с ценой. Наша задача – обеспечить на другом рабочем листе (на первом) удобный электронный бланк заказа с использованием информации из прайса. Вид этого бланка представлен на рис. 26.
Рис. 26.
Разберем теперь технические действия для обеспечения рис.26. Расширим столбцы A и B, а затем в ячейку В2 введем текст - Бланк заказа. Обеспечим необходимое форматирование этого текста и далее разместим на рабочем листе элемент надпись. Мы ранее не рассматривали элемент управления надпись, но он достаточно прост и его роль заключается в создании поясняющего текста к какому-либо другому объекту (рис.27).
Рис. 27.
Поменяйте значения свойств элемента Надпись следующим образом: свойство Caption установим - Заказ №, а свойство BackColor сделайте серым. Далее разместите на листе текстовое окнодля отображения номера заказа. Имя (свойство Name) этого тестового окна можно оставить – TextBox1. Установите также серый фон текстового окна (с помощью свойства BackColor). Далее установите также свойство AutoSize этого окна в значение True. В этом случае ширина текстового поля будет автоматически увеличиваться при вводе символов. Теперь заполните текстом (как показано на рис. 26) содержимое ячеек A5, B5, C5, A7, A8, A9, A12. После этого уберите сетку с экрана (меню Сервис, раздел Параметры и далее следует убрать отметку с отображения сетки). Для прямоугольного диапазона A5 – C14 установите внешние и внутренние границы так, как показано на рис.26. Также установите серую заливку для рассматриваемого диапазона и выберите подложку для листа. Теперь разместите три элемента управления – Поле со списком. Имена этим спискам дайте Spisok1, Spisok2 и Spisok3. Теперь мы подошли к написанию программного кода. Для этого перейдите в редактор VBA. Наша задача заключается в том, чтобы при открытии книги списки автоматически заполнялись содержимым листа – Прайс. Существует процедура Workbook_Open(), которая автоматически выполняется при открытии книги. Эта процедура выполняется над объектом Workbook (текущая рабочая книга). На рис. 28 показано окно редактора кода с заголовком данной процедуры и далее приводится подробное описание с комментариями.
Рис. 28.
‘Worksheets(1) – первый лист нашей книги, Spisok1 – первый список, ‘Clear – метод, заключающийся в очистке списка. Worksheets(1).Spisok1.Clear ‘ Далее производится подсчет количества видов системных блоков. N = 0 While Worksheets(2).Cells(N + 2, 1).Value < > “” N = N + 1 Wend ‘ N – переменная, в которой мы таким образом подсчитали количество ‘ записей в первом столбце прайса. В качестве условия у нас ‘ используется следующая конструкция ‘ Worksheets(2).Cells(N + 2, 1).Value < > " ". ‘ Здесь Worksheets(2) – второй лист книги и этот лист - Прайс. ‘ Cells (…) – функция выбора ячейки. ‘ В скобках указывается номер строки и номер столбца. ‘ Знак < > обозначает не равно. ‘Далее " " – обозначает, что ячейка пустая. Таким образом в ‘ совокупности эта запись обозначает выполнение цикла, пока ‘ значение в очередной ячейки в списке системных блоков не окажется ‘ пустым. ‘ В итоге мы подсчитали количество непустых ячеек в ‘ списке системных блоков (фактически сколько системных блоков ‘ в прайсе). For i = 2 To N + 2 Worksheets(1).Spisok1.AddItem Worksheets(2).Cells(i, 1).Value Next ‘ В записи Worksheets(1).Spisok1 используется список Spisok1 на первом ‘ рабочем листе. Метод AddItem добавляет в список строку. Далее через ‘ пробел записывается строка, которая добавляется, а именно значение ‘ (свойства Value) ячейки (Cells(i, 1)) из листа Worksheets(2). ‘ В следующем фрагменте производится аналогичное заполнение второго ‘ списка. Worksheets(1).Spisok2.Clear N = 0 While Worksheets(2).Cells(N + 2, 3).Value < > " " N = N + 1 Wend For i = 2 To N + 2 Worksheets(1).Spisok2.AddItem Worksheets(2).Cells(i, 3).Value Next ‘В следующем фрагменте производится заполнение третьего списка. Worksheets(1).Spisok3.Clear N = 0 While Worksheets(2).Cells(N + 2, 5).Value < > " " N = N + 1 Wend For i = 2 To N + 2 Worksheets(1).Spisok3.AddItem Worksheets(2).Cells(i, 5).Value Next End Sub
Таким образом процедура Workbook_Open() обеспечивает заполнение списков данными со второго листа (из прайса). Далее на рис.29 описывается процедура, выполняемая при щелчке по первому полю со списком (когда мы выбираем из списка ту или иную строку). Рис. 29.
На рис.29 строка Range(" c7").Value=Worksheets(2). Cells(Spisok1.ListIndex + 2, 2). Value позволяет заполнить ячейку С7 ценой системного блока. А именно значение ячейки С7 (в ней должна располагаться цена на первом листе) заполняется информацией из прайса. При этом Spisok1.ListIndex – индекс элемента, который выделен щелчком мыши. Щелчки по двум другим спискам приводят к аналогичным действиям (они приводят к заполнению цен монитора и принтера). Эти процедуры приводятся далее.
Private Sub Spisok2_Click() Range(" c8").Value = Worksheets(2).Cells(Spisok2.ListIndex + 2, 4).Value End Sub
Private Sub Spisok3_Click() Range(" c9").Value = Worksheets(2).Cells(Spisok3.ListIndex + 2, 6).Value End Sub Таким образом, в результате мы получили автоматизированное заполнение бланка заказа. Осталось только в ячейку С12 поставить формулу для вычисления суммы: СУММ(C7: C9). Теперь рассмотрим действия при нажатии на кнопку Печать. Наша цель заключается в том, чтобы на 3-м листе создать печатную (автоматически заполняемую) форму. Вид этой формы может иметь примерно следующий вид (рис. 30). Рис. 30. Первая задача чисто техническая – обеспечить форматирование листа подобное рис.30. Далее необходимо написать процедуру, выполняемую по щелчку по кнопке Печать. Для этого перейдите в режим конструктора и дважды щелкните по кнопке Печать. В этом случае Вы автоматически попадаете в процедуру, обрабатывающую щелчок по кнопке, и далее проказан текст данной процедуры. В этом тексте, как и ранее, название процедуры – это совокупность имени кнопки (CommandButton1) и действия – щелчок Click. Private Sub CommandButton1_Click() Worksheets(3).Cells(10, 2).Value = Worksheets(1).Cells(7, 1).Value + " " + Spisok1.Text ‘ На третьем листе будет автоматически формироваться ‘ печатная форма бланка. Ячейка на пересечении 10-й строки ‘ и второго столбца будет содержать информацию о системном ‘ блоке. В эту ячейку записывается информация с первого ‘ листа – о названии системного блока. Worksheets(3).Cells(10, 3).Value = Worksheets(2).Cells(Spisok1.ListIndex + 2, 2).Value ‘Ячейка на пересечении 10-й строки и третьего столбца ‘ будет содержать информацию о стоимости системного блока. ‘ В эту ячейку записывается информация из ‘ второго листа с учетом выбора из списка. Worksheets(3).Cells(11, 2).Value = Worksheets(1).Cells(8, 1).Value + " " + Spisok2.Text Worksheets(3).Cells(11, 3).Value = Worksheets(2).Cells(Spisok2.ListIndex + 2, 4).Value ‘ Ячейка на пересечении 11-й строки и второго столбца будет ‘ содержать информацию о принтере. В эту ячейку записывается ‘ информация с первого листа – название принтера. ‘ Ячейка на пересечении 11-й строки и третьего столбца ‘ будет содержать информацию о стоимости принтера. ‘ В эту ячейку записывается информация из ‘ второго листа, соответствующая выбранному названию из списка. Worksheets(3).Range(" c3").Value = TextBox1.Text Worksheets(3).Activate End Sub
В приведенной процедуре не предусматривается заполнения параметров монитора и доработать данную возможность следует самостоятельно.
|