
- •Автоматизация графического отображения данных на диаграммах Excel с помощью vba
- •Теоретические сведения
- •Функция MsgBox
- •Окно ввода
- •Функция InputBox
- •InputBox(Сообщение[, Заголовок ] [, Умолчание]).
- •Объединение текстовых строк
- •Создание окон сообщений
- •Вставка диаграммы на лист Excel
- •Создание обычной гистограммы
- •Свойство HasLegend
- •Свойство HasTitle: создание заголовка диаграммы
Объединение текстовых строк
При объединении нескольких текстовых строк в одну используется символ конкатенации “&” (амперсенд) или “+” (плюс). Можно объединять числовые и символьные значения.
Создание окон сообщений
Пример проектирования окна сообщений с помощью MsgBox.
1. На листе Excel создать кнопку “Сообщения”.
2. Присоединить к кнопке программу, в результате которой появятся окна с различными сообщениями.
Private Sub CommandButton1_Click()
MsgBox "Очистить папку?", 32 + 4, "Очистка папки"
MsgBox "У Вас заканчиваются деньги!",
48, "Предупреждение"
MsgBox "До конца работы осталось 30 минут", 64,
"Информационное сообщение"
MsgBox "Спасите наши души!!!", 18, "SOS"
End Sub
|
|
Рис.1 Пример проектирования окна сообщений
Для графического отображения данных используются диаграммы Excel, позволяющие отображать одни и те же данные в самых различных форматах в зависимости от потребностей пользователя.
Excel предоставляет самые широкие возможности для варьирования формой представления данных. Диаграммы могут быть плоскими и объемными, двумерными и трехмерными, круговые и цилиндрические, данные можно отображать в виде графиков или гистограмм различного типа.
На одной диаграмме может отображаться несколько групп, где каждая группа содержит один или несколько рядов данных (серий), отображаемых в одном формате. Диаграммы выделяются цветом, имеют оси, сопровождаются заголовком, подписями, легендой.
Легенда - это надпись на предмете, например, на монете. На диаграммах, содержащих несколько рядов данных, легенда задает название каждого ряда.
По типу диаграммы делятся на стандартные и нестандартные или настраиваемые (Custom). Стандартных типов - 14, но каждый из них имеет до десяти форматов, так что в общей сложности их около 100. Настраиваемые типы в свою очередь разделяются на встроенные и определенные пользователем. С их помощью на одной диаграмме можно задать комбинацию нескольких стандартных типов.
По сути, диаграммы предназначены для отображения графиков функций и гистограмм. Если по точкам строится график функции Y=F(X), то, как известно, необходимо задать два множества - аргументов и значений. Например, функция, определяющая количество слов разных частей речи, подсчитанное для разных текстов, имеет аргументами название частей речи (Сущ., прилаг, глаг), а значениями - количество слов. Множество значений называется в Excel рядом данных, а аргументы называются категориями. Соответственно, ось X (аргументов) называется осью категорий, а ось Y - осью значений.
Очень часто на одной диаграмме отображается несколько графиков. Если эти графики отражают некоторую тенденцию, например динамику объема продаж во времени, то лучше использовать трехмерную диаграмму, в которой появляется третья ось, чаще всего это ось времени. В Excel она называется осью рядов данных, так как фиксирует изменения ряда данных.
В рабочей книге Excel могут существовать листы диаграммы, но на обычный рабочий лист Excel также можно поместить внедренную диаграмму.
Вставка диаграммы на лист Excel
Внедренная диаграмма, с точки зрения VBA, представлена объектом типа Chart, причем содержится она в своеобразном контейнере, роль которого играет объект типа ChartObject.
Для создания на листе контейнера для диаграммы и для создания собственно диаграммы, потребуются две переменные:
Dim cho As ChartObject
Dim ch As Chart
Чтобы создать на листе контейнер для диаграммы в заданной позиции и с заданными размерами, необходимо, при обращении к методу Add семейства ChartObjects рабочего листа, указать координаты верхнего левого угла диаграммы и ее размеры.
Set Sh = ThisWorkbook.Worksheets(1)
Set cho = ChartObjects.Add(200, 200, 400, 300)
На том же рабочем листе, создана область диаграммы, которая будет отображать содержащиеся в таблице данные в виде графика (диаграммы):
Set ch = cho.Chart
В результате, в переменную MyChart будет помещена пустая диаграмма, которую можно настроить любым требующимся образом. Но, прежде чем перейти непосредственно к диаграмме, можно отформатировать область диаграммы, в которой она содержится, то есть объект MyChartObject.
Пусть рамка контейнера обладает скругленными углами (свойство RoundedCorners) и отбрасывает тень (свойство Shadow)
With cho
.RoundedCorners = True
.Shadow = True
End With