For Each i In ActiveSheet.Shapes

 

I.Delete

Next i

' Создаем новую диаграмму

 

ActiveSheet.ChartObjects.Add(25, 25, 500, 300).Select

 

' Задаем тип диаграммы (объемная гистограмма)

 

.ChartType = xl3DBarClustered

' Находим, сколько записей в таблице

 

M = 2 Do

If Sheets(" База ").Cells(M, 1).Value = "" Then Exit Do M = M + 1

 

Loop

 

' Определяем источник данных для построения диаграммы:

 

' с листа «База» от ячейки I2 до ячейки IM

SetSourceData

 

Source:=Sheets(" База ").Range("I2:I" + Trim(Str(M))), PlotBy:=xlRows

 

' Выбираем подписи к данным из первого столбца таблицы

 

For i = 2 To M

.SeriesCollection(i - 1).Name = "= База!R" + Trim(Str(i)) + "C1"

 

Next

'Размещение диаграммы на отдельном листе

 

.Location Where:=xlLocationAsObject, Name:= " Диаграмма " With ActiveChart

 

' Заголовок

.HasTitle = True

.ChartTitle.Characters.Text = " Сумма оплаты _ за электроэнергию "

 

'Легенда

.HasLegend = True

 

Legend.Select

Selection.Position = xlLeft

.HasDataTable = False

 

.Axes(xlCategory).MajorTickMark = xlNone

.Axes(xlCategory).MinorTickMark = xlNone

.Axes(xlCategory).TickLabelPosition = xlNone

End With

End With

 

End Sub

 

Затем нам нужно изменить процедуру кнопки Выход так, чтобы при выходе активным оставался лист с диаграммой. Для этого в окне Project-VBAProject два раза щелкнем по UserForm1, затем, в появившейся форме, два раза щелкнем по кнопке Выход. Запишем там следующее:

 

Private Sub CommandButton3_Click()

'Активизируем рабочий лист с именем «Меню»

 

Sheets(" Диаграмма ").Activate

‘Завершаем выполнение программы

End

 

End Sub

 

Затем перейдем в рабочую книгу и протестируем наш макрос. Запустим форму, нажмем на кнопку Диаграмма. На листе Диаграмма появится диаграмма, построенная по табличным данным (Рисунок 5.16).

 

 

 

 

Рисунок 5.16 — Лист Excel с диаграммой

Задание 5.8. Создание базы данных

 

Разработайте программу с удобным диалоговым окном для создания на рабочем листе базы данных в соответствии с выбранным вариантом. Выбор элементов управления, соответствующего каждому полю базы данных, оставляется на ваше усмотрение. Написать макрос формирования диаграммы данных.

Задание по вариантам

 

Номер варианта	ФИО	ФИО
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

 

 

Вариант 1. База данных по учету выданных кредитов. Таблица базы данных должна содержать: фамилию, имя, отчество, адрес заемщика, срок кредита, сумму кредита, пол заемщика, сведения о залоге и его сумме (или о поручителях), дату совершения операции.

 

Вариант 2. База данных по учету банковских вкладов физических лиц.

 

Таблица базы данных должна содержать: фамилию, имя, отчество, адрес вкладчика, дату вклада, вид вклада (до востребования, срочный, выигрышный), отделение банка (названия или номера), текущую сумму на счете.

 

Вариант 3. База данных по учету оплаты за услуги водоснабжения и водоотведения.

 

Таблица базы данных должна содержать следующие поля: фамилия, имя, отчество, адрес плательщика, дата платежа, показания счетчиков холодной воды, показания счетчиков горячей воды, объем водопотребления, платежные тарифы (холодная вода, водоотведение), долг (либо переплата), сумма.

 

Вариант 4. База данных по учету оплаты за услуги отопления и горячего водоснабжения.

 

Таблица базы данных должна содержать следующие поля: фамилия, имя, отчество, адрес плательщика, дата платежа, показания счетчиков горячей воды, объем потребления горячей воды, количество кв. м жилой площади, норматив потребления тепловой энергии (Гкал/кв.м), платежные тарифы (горячая вода (руб./куб.м), тепловая энергия (руб./Гкал)), долг (либо переплата), сумма платежа.

 

Вариант 5. База данных по учету оплаты за жилищно-коммунальные услуги.

Таблица базы данных должна содержать поля: фамилия, имя, отчество адрес плательщика, дата платежа, площадь квартиры, количество жильцов, вид платежа (содержание имущества, текущий ремонт, уборка подъезда, лифт, домофон), стоимость за единицу услуги, долг (переплата), сумма, дата операции.

 

Вариант 6. База данных по учету оплаты телефонных услуг. Таблица базы данных должна содержать поля: фамилия, имя, отчество, адрес плательщика, дата платежа, вид платежа (абонентская плата за телефон, абонентская плата за радио, услуги Интернет, межгород), стоимость за единицу услуги, долг (переплата), сумма.

 

Вариант 7. База данных по реализации товаров со склада. Таблица базы данных должна содержать поля: наименование товара, артикул товара, количество товара, цена, тип продаж (оптом, в розницу), покупатель, отпущено товара, остаток, дата операции.

 

Вариант 5. База данных по продаже железнодорожных билетов.

 

Таблица базы данных должна содержать поля: тип поезда (скорый, пассажирский), наименование поезда, номер поезда, тип вагона (плацкартный, купейный, мягкий), номер вагона, место, фамилия, имя пассажира, стоимость проезда в зависимости от типа вагона и купе, дата продажи.

 

Вариант 9. База данных по учету комплектующих на складе компании, торгующей вычислительной техникой.

 

Таблица базы данных должна содержать поля: группа товаров (мониторы, процессоры, материнские платы, прочее), фирма-производитель, наименование, цена, количество, дата поступления.

 

Вариант 10. База данных по результатам экзаменационной сессии в университете.

 

Таблица базы данных должна содержать поля: номер группы, предметы (Информатика, Математика, Физика, История, Литература, Иностранный язык, Химия, …), фамилия, имя, отчество студента, оценка (или зачет), результат (переведен на следующий курс, назначен на стипендию, назначен на повышенную стипендию, отчислен).