Упражнения 2

1. Дополните программу «Расчет маргинальной процентной ставки» средствами обработки ошибок:

а) выход из процедуры с установкой фокуса на окно ввода (TextBox1) при ошибке в формате данных;

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

2. Дополните программу «Расчет доходов от издательской деятельности» средствами обработки ошибок ввода данных в окна ввода.

Упражнения 3 Создайте приложение пользователя для ведения базы данных продаж продукции, используя данные табл. 21.

Указания по выполнению задания

1. UserForm рекомендуется создать по приведенной ниже форме рис. 14 и с приведенным набором окон ввода/вывода и кнопок управления.

2. При программном создании в Excel приведенной выше таблицы используйте следующие объекты, методы, свойства и события VBA:

а) Определение текущей пустой строки БД:

НомерСтроки = Application.CountA(ActiveSheet.Columns(1)) + 1

б) Внесение очередной записи в БД:

With ActiveSheet

.Cells(НомерСтроки, 1).Value = Дата

в) Очистка ячеек активного листа рабочей книги Excel:

ActiveSheet.Cells.Clear

г) Заполнение строки заголовков таблицы базы данных:

Range("A1:L1").Value = Array("Дата", "НаимОрганиз", "Кол1", "Цена1", "Сумма1", "Кол2", "Цена2", "Сумма2", "Всего", "Дата_опл.", "Оплата", "Остаток")

Табл. 13

Дата	Наим. организ.	Кол. 0.5	Цена	Сумма	Кол. 1.0	Цена	Сумма	Всего	Дата	Оплата	Оста-ток
01.янв	ВИЛАРД	50	29,4	1470			0	1470	15. янв	1400	70
01.янв	КАРАТ	80	28,8	2304			0	2304			2304
01.янв	КОНДАС	50	29,4	1470	2	39,6	79,2	1549,2	05. янв	1000	549,2
01.янв	ЛИГА	20	30	600			0	600			600
02.янв	ЛОРА	100	31,2	3120	1	38,7	38,7	3158,7	07. янв	3000	158,7
02.янв	СОЛО	50	27,6	1380			0	1380			1380
02.янв	ТИГР	50	30	1500			0	1500			1500
03.янв	АЛЬЯНС	50	30	1500			0	1500			1500
03.янв	АННА-МАРИЯ	200	28,8	5760			0	5760			5760
03.янв	АЯКС	50	27,6	1380			0	1380			1380
03.янв	ВИЛАРД	100	27,6	2760			0	2760			2760
03.янв	КОНДАС	100	30	3000			0	3000			3000
03.янв	СТО	50	30	1500			0	1500			1500
03.янв	ТИГ	100	29,4	2940			0	2940	10. янв	2900	40
04.янв	ОЛФОЮ	50	27,6	1380			0	1380			1380
05.янв	БЕЛЬКАНТ	30	29,4	882			0	882			882
05.янв	ВОЛАНД	20	30,2	624			0	624			624
05.янв	КАРАТ	150	27,6	4140			0	4140			4140
06.янв	ЛИГА	100	30	3000			0	3000			3000

Примечание: В именах не должны содержаться символы точки и запятой.

3. Для создания модулей формирования отчетов после создания базы данных создайте макросы в Excel, используя MacroRecorder, затем скопируйте тексты макросов через буфер обмена.

Рис. 7

Дополнительные возможности VBA

1. Использование пакета анализа. Выполнение статистической обработки данных. Построение интервальных гистограмм и кумулятивных функций распределения.

2. Управление построением диаграмм по данным, имеющимся на рабочем листе Excel.

Пример программы вывода диаграммы с листа Excel в окно Image панели UserForm

Private Sub CommandButton1_Click()

'Пометка строки с данными для графика

Range("A2:K2").Select

'Построение диаграммы. Перенесен текст макроса

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source:=Range("Лист1!$A$2:$K$2")

ActiveChart.ChartType = xlLineMarkers

'Преобразование диаграммы в изображение формата bmp и запись в файл

ActiveChart.Export Filename:="grafic1.bmp", FilterName:="BMP"

'Загрузка изображения из файла в окно Image1

Image1.Picture = LoadPicture("grafic1.bmp")

'Установка режима отображения Stretch в окне

Image1.PictureSizeMode = 1

End Sub

3. Управление копированием формул в столбце таблицы (до заданного номера строки)

Пример

Range(“B1”).Select

Selection.Copy

For i=2 to N

Cells(i,2).Select

ActiveSheet.Paste

Next i

Microsoft Word . Требования к проекту

Проект по разделу Microsoft Word должен представлять собой многостраничный текстовый документ (технический или научный отчет, статью, оригинал-макет брошюры и т.д.) и включать по содержанию следующие обязательные элементы:

1. Титульный лист.

2. Таблицы и диаграммы, перенесенные из другого приложения (MS Excel).

3. Математические формулы MS Equation.

4. Таблицу с вычисляемыми полями.

5. Таблицу с полями со списком.

6. Рисунки с различными вариантами вставки в текст.

7. Рисунок, выполненный в векторной графике WORD.

8. Документ, получаемый путем слияния.

9. Гиперссылки в тексте.

Требование к форматированию многостраничного документа.

В многостраничном документе должны быть представлены следующие примеры форматирования:

1. Структурирование текста на 3-х уровнях, заголовки разделов, подразделов д.б. оформлены с использованием стилей Heading1, Heading2, и.т.д..

2. Автоматически сформированное оглавление.

3. Оформленные колонтитулы.

4. Сноски.

5. Пронумерованные страницы.

6. Автоматическая нумерация таблиц, рисунков и формул.

7. Предметный указатель

Microsoft Excel . Требования к проекту

Проект по разделу Microsoft Excel должен представлять собой несколько табличных документов, отражающих:

1. Учет товаров (изделий), производимых (закупаемых) предприятием с указанием даты (месяца), наименований, количества и себестоимости изделий по каждой позиции.

2. Калькуляцию продажной цены изделия с учетом % накладных расходов и НДС.

3. Сводную таблицу по учету продаж.

4. Итоговую калькуляцию затрат на производство, рекламу и прибыль за год.

5. Анализ данных по продажам, выполненную по датам и потребителям.

6. Счет (накладную) отгрузки изделий потребителям с полем со списком.