Информационный сайт

 

Реклама
bulletinsite.net -> Книги на сайте -> Программисту -> Васильев А. -> "VBA в Office 2000 учебный курс" -> 69

VBA в Office 2000 учебный курс - Васильев А.

Васильев А., Андреев А. VBA в Office 2000 учебный курс — Спб.: Питер, 2001. — 432 c.
ISBN 5-8046-0193-8
Скачать (прямая ссылка): vbauchebniykurs2001.djvu
Предыдущая << 1 .. 63 64 65 66 67 68 < 69 > 70 71 72 73 74 75 .. 154 >> Следующая

Sub CreateChartO
'Создаем пустой лист диаграммы ’с именем "Диаграмма].",
'расположенный предпоследним
ActiveWorkbook.Charts.Add _
Before:“Worksheets(Worksheets.Count)
'Задаем параметры диаграммы с помощью метода ChartWizard ChartsC Диаграмма!." ).ChartWizard Source:= _
Worksheets("Лист1”).Range("al:dl3"),Gallery:=xl3DColumn,_
HasLegend:=True, CategoryTitle:="Kypc”.
ValueTi tle:="Период"
End Sub
В результате выполнения данной процедуры будет построена диаграмма, изображенная на рис. 7.4.
186
Урок 7. Создание приложений для MS Excel
Microsoft Excel - Пример диаграммы
Mi*8' ?* ьп-jrv» Esrpwa !>•*>*
FfeT<i • • - ' [юнЗ **" * :-j.
| AiiatCyr » 10 - X Л У v- ;%g ф4 v? - » ч> - A • .
Область диа... ^1 af_______________________ _________________________________________________________________________
-ItfM
.Л.-Vv—iTTa
-I
iv
. li
И
ПР*Л1
¦ Р«2 ¦
аРядз
ОР*д4 .
В
та ?
.. . л ^ * V.-:
Ш**В1в.........
штжшжт
Рис. 7.4. Диаграмма, создаваемая в результате выполнения приведенной выше процедуры
Создание форм
В уроке 3 мы уже говорили о формах. Сейчас пришло время рассмотреть их использование на примере MS Excel.
На рис. 7.5 приведен пример формы, которая будет использована для ввода данных в рабочий лист MS Excel. Эта форма содержит два списка: один для выбора организации, другой — для выбора товара. На ней также присутствует текстовое поле для ввода количества товара и кнопка, предназначенная для фиксирования конца ввода.
Рис. 7.5.
Пример формы, используемой для ввода данных в, рабочий лист MS Excel
Создание форм
187
Для вызова формы из MS Excel можно выполнить одно из следующих действий: О поместить кнопку на рабочий лист;
О создать кнопку на панели инструментов;
О создать команду меню.
тановимся на реализации первого действия.
Чтобы поместить кнопку на рабочий лист, необходимо вызвать панель инструментов Формы (UserForm), которая содержит элементы управления, идентичные панели элементов в редакторе VB. Поэтому технология размещения кнопки на рабочем листе аналогична размещению кнопки на форме.
Чтобы кнопка, расположенная на рабочем листе, могла вызвать форму, ей необходимо назначить макрос, листинг которого представлен ниже:
Sub Кнопка!. Щелкнуть О
'Метод Show загружает и отображает форму на экране UserForml.Show End Sub
Чтобы сделать форму работоспособной, необходимо создать две процедуры обработки события:
О первая — для обработки события Initialize формы;
О вторая — для обработки события Click кнопки.
Ниже приведены листинги программ, реализующих указанные процедуры.
Процедура обработки события Initialize формы UserForml
Private Sub UserFormlnitializeO
'Для списка организаций в присоединенном столбце задаем
’первый столбец
ComboBoxl.ColumnCount = 1
'Активизируем рабочий лист Организации
Worksheets("Организации").Activate
'Определяем диапазон, являющийся
'источником строк для списка организаций
ComboBoxl.RowSource = "al:a5"
'Активизируем рабочий лист Лист2 WorksheetsC'ftocTZ") .Activate 'Задаем ячейку, в которую помещается значение 'свойства Value элемента управления ComboBoxl.ControlSource = "а2"
'Для списка товаров в присоединенным столбце задаем 1 ComboBox2.ColumnCount = 1
Второй и третий варианты будут рассмотрены в следующем уроке. Здесь мы ос-
СО ВЕТ Кроме кнопок на робочем листе можно разместить и другие элементы управле-
ния. В елучое небольшого количества элементов удобно не создавоть форму, о разместить элементы непосредственно на рабочем листе.
188
Урак 7. Создание приложений для MS Excel
'Свойство TextColumn определяет, какой столбец 'содержит значение.
’являющееся значением свойства Text данного элемента 'управления
'В данном случае это будет цена товара
ComboBox2. TextColumn = 2
'Активизируем рабочий -лист Товары
Worksheets("Товары”).Activate
'Определяем источник строк для списка товаров
'В качестве источника строк списка берем название
'и цену товара
ComboBox2.RowSource = "а2:Ь6''
'Активизируем рабочий лист Лист2 Worksheets("JlncT2”) .Activate
'Задаем ячейку в которую помещается значение свойства 'Value элемента управления ComboBox2 ComboBox2.Control Source = "Ь2"
' Задаем ячейку, в которую помещается значение свойства ' Value элемента управления TextBoxl, то есть ячейку,
'куда вводится количество товара TextBoxl.Control Source = "с2"
End Sub
Дадим некоторые комментарии к представленной выше процедуре. Здесь источник строк для списка задается свойством RowSource. Значением данного свойства является строка, например, а2:Ьб.
Свойство BounColumn задает присоединенный столбец списка, то есть столбец, значения которого являются значением элемента управления.
Процедура обработки события Click кнопки CommandButton 1
Private Sub CommandButtonlClickO
'Определяем значение суммы и помещаем его в 'ячейку d2 рабочего листа Лист2 Worksheets( "Лист2"). Range Cd2"). Value = _
ComboBox2.Text * TextBoxl.Value 'Выгружаем форму с помощью инструкции Unload Unload UserForml End Sub
Необходимые комментарии к данной процедуре представлены в тексте программы.
Предыдущая << 1 .. 63 64 65 66 67 68 < 69 > 70 71 72 73 74 75 .. 154 >> Следующая
Реклама
Авторские права © 2009 AdsNet. Все права защищены.
Rambler's Top100