Бланк замовлення на офісні товари
Розглянемо ще одну подібну задачу.
Наша мета - розробити зручний додаток для складання заявки на канцелярські товари для офісу. Почнемо з того, що створимо нову робочу книгу Excel і на другому аркуші сформуємо список товарів з їх цінами (рис. 2.8). Цей список організований досить просто - назва і поруч його ціна.
Тепер на першому робочому аркуші створимо зручну форму для введення інформації про замовлення (рис.2.9).
Розглянемо спочатку технічні дії з оформлення першого листа.
По-перше, приберемо сітку з екрану (це дію вже зустрічалося вище). Після цього оформимо стовпці A, B, C і D наступним чином: встановимо зовнішні кордони, поставимо внутрішні кордони, введемо підписи стовпців в осередку A3, B3, C3 і D3.
Тепер перейдемо до розташування елементів управління на аркуші.
Самий правий елемент на цьому малюнку - Поле зі списком. Ім'я цього об'єкта нам далі потрібно, і тому для його властивості Name встановимо "наше" значення - Spk.
Крім поля зі списком на аркуші розташовується напис вище якої в осередку робочого аркуша розташовується слово Підсумок. Сама напис використовується для підрахунку суми. Її ім'я буде використовуватися в подальших процедурах, і тому встановимо Symma як значення її властивості Name.
Рис.2.8.
У верхній частині екрану розташовуються ще три кнопки - Очистити, Перерахунок та Друк. Їх імена виберемо відповідно Clr, Calc і Prn.
На цьому дизайн інтерфейсу завершено, і нам можна перейти до програмування.
По-перше, необхідно зробити так, щоб список Spk автоматично заповнювався при відкритті книги. Тому оформимо процедуру, виконувану при відкритті книги, в такий спосіб (лістинг 2.10).
Лістинг 2.10. процедура Workbook_Open
Private Sub Workbook_Open ()
'Підрахунок кількості записів в прайсі на другому аркуші
While Worksheets (2) .Cells (N + 1, 1) .Value <> ""