Инструкция для пользователя

модель программа торговый решение

Введите в A1

текст Накладная, в A3

- Стоимость груза, в A4

- Стоимость отправки, в A6

- Всего, в B6формулу =B3+B4

(сумма). Нажмите <Alt+F11

>, в окне Project Explorer

щелкните мышью на Этакнига. Выберите в меню Insert

Þ

Мodule

(Вставка

Þ

Модуль

). Введите кодОтправка ()

Dim iResponse As Integer= MsgBox («Нужно этот груз отправить?», bYesNo)iResponse = vbYes Then(«B4»).Value = 10(«B4»).Value = 0If

End Sub

Вставьте кнопку. Откроется окно Назначить макрос объекту

. В Имя макроса

выберите Отправка и ОК

. Название кнопки - Сумма. Введите в B3

число 120. Щелкните на Сумма

. Щелкните Да

. В B4появится число 10. Щелкните Нет

. В B4

появится 0.

Создайте процедуру МетодВводаiResult As Integer= Application. InputBox («Введите число», Type:=1)iResult. Value = iResult

Нажмите <F

5

>. Отобразится окно ввода. Введите букву А и <Enter

>. Теперь не будет сообщения об ошибке, а появится окно с сообщением о причине возникшей проблемы Неверное число. Введите число 7 и нажмите <Enter

>. Отобразится окно сообщения с числом 7.

Условные операторы проверяют логическое условие и в зависимости от результата проверки выполняют те или иные операторы. В синтаксисеусловие_1 Then [операторы_1] [ElseIf условие_2 Then [операторы_2] End If

Условие_1 - необходимая часть оператора.

Вложение операторов - структура, когда один оператор находится внутри другого. Введите в А1

текст Отдел, в A2

- Товар в продаже?, в A3

- Стаж работы в фирме, в A5

- Комиссионные. Введите код процедуры:Комиссионные ()sngCommission As SingleRange («B2») = «Нет» Then= 0.02Range («B3»).Value >= 5 And Range («B3»).Value < 10 Then= sngCommission +0.01Range («B3»).Value >= 10 Then= sngCommission +0.02If= 0.01If(«B5»).Value = sngCommission

End Sub

Для повторных вычислений используется операторсчетчик = начало To конец [Step шаг] [операторы]

[Exit For] [операторы] Next [счетчик]

Число повторений оператора определяют параметры начало и конец. Если шаг опущен, значение счетчика увеличивается на единицу. Необязательный оператор Exit For служит для экстренного прекращения цикла и вкладывается в оператор If или Select Case.

Для открытия встроенных окон Excel применяется оператор. Dialogs (xlDialogКонстанта).Show

Чтобы задать значение xlDialogКонстанта, откройте Object Browser

и в библиотеке Excel выберите класс XLBuiltInDialog. Константа - название окна (вводится на английском языке, но отображается на русском).

Щелчок на кнопке View Code

и щелчок на View Objectредактора. Перейдите в окно свойств. Убедитесь, выбрано Alphabetic(Сортировка по алфавиту). В левой части окна найдите Caption

. Справа установка свойства. Напечатайте текст новой надписи. Чтобы добавить или удалить панель инструментов редактора VB щелкните правой кнопкой мыши в любом месте строки меню. Появится меню панелей. Из списка выберите тип панели инструментов. Панель Debug