Требования к пользовательской форме

Указанное выше приложение пользователя должно быть создано на базе фактического материала, имеющегося в каталогах или на сайтах торговых организаций в сети Интернет;

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

В программах созданного приложения должны быть использованы основные средства управления, предоставляемые Toolbox, в частности: Label, TextBox, ComboBox, CommandButton, Image.

Примечание. Спроектированные формы и отчеты должны соответствовать формату экрана дисплея и содержать элементы цветового оформления, логотип магазина.

Пример главной кнопочной формы проекта

MS VBA

Упражнения 1

1. Создайте на VBA функцию пользователя «Стоимость».

2. Создайте на VBA приложение «Калькулятор», используя приведенные выше вид UserForm и текст процедуры.

3. Создайте на VBA приложение «Стоимость товара с учетом скидки», используя созданную в п.1 функцию «Стоимость».

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

При разработке приложения создайте UserForm по следующему образцу (рис. 11):

Рис. 11

Для вычисления цены товара с учетом скидок используйте функцию «Стоимость».

Для ввода специальной скидки используйте элемент управления Check Box.

4. Создайте на VBA приложение "Расчет маргинальной процентной ставки".

Условие задачи. Клиент просит дать ссуду размером P с условием возвращения в течение N лет, при размере одной выплаты А (конечно, A*N>P).Есть альтернатива - не давать ссуду клиенту, а положить деньги в банк под i процентов годовых.

Требуется рассчитать:

а) какую сумму нужно положить в банк, чтобы получить (ежегодно!) такой же доход, как и в случае предоставления ссуды;

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

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

1. При выполнении п.а) используйте стандартную функцию PV(I,N,-A): p=Application.PV(i,n,-a)

2. При составлении текста процедуры расчета используйте следующие типовые фрагменты:

а) Описание типов переменных Dim i As Double, Dim n As Integer;

б) функции чтения из окон ввода числовых значений с преобразованием текстового представления числа в число в формате Integer или Double:

i=CInt(TextBox1.Text)

p=CDbl(TextBox2.Text)

в) функции переформатирование вычисленных значений из числовой формы в текстовую и вывод их в диалоговые окна:

TextBox3.Text = CStr(Format(p,"Fixed"))

3. Для вычисления маргинальной процентной ставки создайте программным путем таблицу:

Табл. 20

Собственно вычисление маргинальной процентной ставки произведите при использовании метода GoalSeek объекта Range.

При разработке приложения создайте UserForm по следующему образцу (рис. 12):

Рис. 12

Создайте на VBA приложение для анализа доходов от издательской деятельности по разделу упражнений «Решение задач. Подбор параметра».

Примечание. Используйте при создании приложения элемент управления ComboBox, МЕТОД AddItem при заполнении, СВОЙСТВО ListRow для задания количества элементов списка.

Пример. ComboBox1.AddItem "КолЭкз"

ComboBox1.ListRow=4

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

При разработке приложения создайте UserForm по следующему образцу (рис. 13):

Здесь «Расчет доходов/расходов», «Подбор параметра» и «Сброс» - кнопки управления (Button), «Фактор» - поле со списком (ComboBox), остальные элементы - окна ввода/вывода (TextBox).

Рис. 13

Программа создаваемого приложения должна обеспечить:

а) создание таблицы: Табл. 17

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

Заполнение списка ComboBox производите программно, с помощью отдельной процедуры в модуле по следующему образцу:

Private Sub UserForm_Initialize()

With ComboBox1

.AddItem "КолЭкз"

.AddItem "НаклРасх"

.AddItem "ЦенаКниги"

.AddItem "СебестКниги"

.ListRows = 4

End With

End Sub

При составлении программы рекомендуется воспользоваться примерами, приведенными в разделе «Основные средства VBA» и приведенными ниже:

а) Чтение текста из окна ввода и преобразование его в числовой формат (Integer):

k = CInt(TextBox2.Text)

б) Запрет ввода в окно, предназначенное для вывода:

TextBox6.Enabled = False

в) Назначение функции кнопки CommandButton1 клавише Enter:

With CommandButton1

.Default = True

End With

г) Установка текста всплывающей подсказки для кнопки CommandButton1:

With CommandButton1

.ControlTipText = "Поиск значения"

End With

Дополните разработанные приложения по п. 1-5, предусмотрев в них следующие дополнительные средства:

• запрет ввода текста в окна, предназначенные для вывода (свойство Enabled=False);
• всплывающие таблички с комментариями к элементам управления на панели UserForm (свойство ControlTipText);
• кнопки для закрытия панелей UserForm (используйте метод Hide);
• встроенные диалоговые окна InputBox и MsgBox;
• присвоение клавишам Enter и Cancel функций кнопок на панели UserForm (свойства Default и Cancel соответственно);
• дополнительную процедуру, выполняющую предыдущую функцию при инициализации UserForm (событие Initialize).

Упражнения 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", "Всего", "Дата_опл.", "Оплата", "Остаток")

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

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

Рис. 14

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

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

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

Поиск по сайту: