Студопедия

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника



If условие Then




Читайте также:
  1. Билет.Потребительское равновесие и условие его достижения.
  2. Бюджетные ограничения. Изменение покупательной способности потребителя. Условие потребительского равновесия
  3. Вина как условие гражданско-правовой ответственности
  4. Вина как условие гражданско-правовой ответственности
  5. Второе условие комфортности.
  6. Выигрыши от внешней торговли. Условие торговли и его проблемы
  7. Гипотеза –часть правовой нормы, содержащая условие ее действия.
  8. Другим условием для получения полного объема производства является применение лучших технологий (нельзя убирать зерно вручную, молоть жерновами и т.д.).
  9. Модернизация российской экономики как важное условие реализации стратегических интересов общественного развития в XXI столетии

Операторы, выполняемые в случае если условие истинно

Else

Операторы, выполняемые если условие ложно

End If

Где

If, Then, Else, End If –ключевые слова, необходимые интерпретатору VBA для определения условной конструкции.

Под операторамиподразумеваются любые другие конструкции языка VBA.

Блок Elseне является обязательным, если условие ложно, то операторы внутри блока If условие Then … End Ifпропускаются и программа продолжает выполняться дальше.

Если по условию необходимо выполнить всего один оператор, конструкция может принять вид If условие Then оператор.

'Проверяем, не ошибся ли пользователь (ввел максимум меньше минимума)

If MaxS < MinS Then

'Если ошибся то выдаем ошибку

MsgBox "Вы ошиблись при вводе, максимальное значение (от) должно быть больше минимального (до)", vbCritical + vbOKOnly, "Ошибка ввода"

Exit Sub ' и выходим

End If

 

В данном случае условный оператор срабатывает, если введенное максимальное значение оказывается меньше минимального, и в таком случае, выдается сообщение об ошибке с помощью функции MsgBox (vbCriticalуказывает функции MsgBoxна то, чтобы выдать стандартное окошко с символом ошибка, см. рис. 13.)

 

Рис. 13. Сообщение об ошибке ввода.

 

Оператор Exit Subпрерывает выполнение макроса.

 

Создание пользовательского элемента управления

Для создания пользовательского элемента управления сначала необходимо отобразить по умолчанию скрытую панель Элементы управления командой Вид - Панели инструментов – Элементы управления

Рис. 14. Панель инструментов «Элементы управления» с выбранной кнопкой.

 

Далее выбрать на панели инструментов элемент «Кнопка», щелкнув на него левой клавишей мыши. Далее, зажав левую кнопку мыши на любом свободном месте листа Excel, нарисовать кнопку примерно также как рисуют графические элементы, например, в редакторе Paint. Отпустив левую кнопку, мы увидим наш элемент управления.

 

Рис. 15. Готовый элемент управления

 

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



Для того, чтобы активировать контекстное меню кнопки для изменения ее свойств на панели «Элементы управления» должна быть активирована кнопка «Режим конструктора»

В появившемся окне свойств найдем пункт Caption и введем в поле рядом необходимый текст.

Рис. 16. Окно свойств элемента управления.

Также зададим в поле (name) осмысленное имя нашей кнопки. При грамотном подходе к программированию принято придерживаться определенных правил наименования элементов управления:

1. У каждого элемента управления имя начинается с определенного префикса, у кнопок это btn, у текстовых полей txt и т.д.

Элементу управления дается осмысленное имя. Желательно на английском языке. Поскольку наша кнопка будет выполнять Задание 5, назовем ее btnRunTask5

Аналогичную кнопку создадим и для задания 6.

Рис. 17. Готовые кнопки для выполнения макросов

Ассоциация функции макроса с созданным элементом управления

Для ассоциации функции макроса с пользовательским элементом управления необходимо щелкнуть по элементу управления правой кнопкой мыши и выбрать пункт «Исходный текст». Откроется окно редактора VBA и будет создан (если не был создан ранее) обработчик события Click



Обработчик события – специальная функция элемента управления, которая выполняется если с элементом управления происходит определенное событие: щелчок мыши, перетаскивание, двойной щелчок.

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

 

Private Sub btnRunTask5_Click()

Task5

End Sub

 

Private Sub btnRunTask6_Click()

Task6

End Sub


ВЫВОД

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


Список использованной литературы.

 

1. Байдина Н.В., Костянко Н.Ф.Автоматизация работы в Excel: Учебное пособие. – СПб.:Петербургский государственный университет путей сообщения, 2004. – 65с.

2. Абросимов А.В. Система управления базами данных Access: Учебное пособие.:Петербургский государственный университет путей сообщения, 2005. – 38с.

3. Симонович С. В., Евсеев Г. А. «WINDOWS: лаборатория мастера : практическое руководство по эффективным приемам работы с компьютером. » - М.:АСТ – ПРЕСС: Инфорком – Пресс,2000.

4. В. Пасько, А. Колесников «Самоучитель работы на персональном компьютере» -К.: Издательская группа BHV,2001. – 100с.

5. Стинсон К. Эффективная работа в MS Excel 2000 -3-е изд. - М.: Солон, 2001 г. – 200c.

6. Электронный ресурс http://msdn.com © Microsoft Corporation 2001 – 2013

7. Электронный ресурс http://wikipedia.com © Фонд Викимедиа 2001 - 2013

 


Дата добавления: 2015-01-05; просмотров: 21; Нарушение авторских прав





lektsii.com - Лекции.Ком - 2014-2020 год. (0.009 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав
Главная страница Случайная страница Контакты