Принятие решений: If-Then-Else

07-09-If-Then-Else.docm - пример к п. 7.11.

Программы на VBA умеют принимать решения - для этого существуют операторы условного перехода. Они объединены в конструкцию If - Then - Else.

В этой конструкции могут быть использованы следующие операторы сравнения (табл. 7.4.)

Таблица 7.4. Операторы сравнения
Оператор	Описание
=	Равно
<>	Не равно
>	Больше
<	Меньше
>=	Больше или равно
<=	Меньше или равно
Like	Сравнение строки с шаблоном
Is	Сравнение объектов

Напишем простую программу (листинг 7.13.), которая спрашивает у пользователя его возраст. Если введенный возраст меньше 18 - программа должна вывести надпись "Вам менее 18 лет", если больше или равен 18 - надпись "Вам 18 или больше".

a = InputBox("Введите ваш возраст") If a < 18 Then MsgBox ("Вам меньше 18") If a >= 18 Then MsgBox ("Вам 18 или больше")

Листинг 7.13. Оператор If - Then

Здесь представлен оператор в простейшем виде - проверка условия и выполнение однострочной команды. А что если нужно выполнить не одну команду, а несколько? Для этого служит команда End If (листинг 7.14.)

a = InputBox("Введите ваш возраст") If a < 18 Then MsgBox ("Вам меньше 18") MsgBox ("Вам не следует смотреть этот фильм") End If If a >= 18 Then MsgBox ("Добро пожаловать")

Листинг 7.14. Использование команды End If

Здесь программа выводит два сообщения, если пользователю меньше 18 лет.

Оператор может иметь вид If - Then - Else (листинг 7.15). Благодаря ему два оператора If - Then из листинга 7.13. можно объединить в один.

a = InputBox("Введите ваш возраст") If a < 18 Then MsgBox ("Вам меньше 18") _ Else MsgBox ("Вам больше 18")

Листинг 7.15. Использование команды Else

Применение команды Else так же позволяет исполнять многострочные команды. Например, вот так - листинг 7.16.

a = InputBox("Введите ваш возраст") If a < 18 Then MsgBox ("Вам меньше 18") MsgBox ("Вам не следует смотреть этот фильм") Else MsgBox ("Вам больше 18") MsgBox ("Добро пожаловать") End If

Листинг 7.16. Выполнение многострочных команд

В операторе If возможно использование сложных условий. Например, вы просите пользователя ввести имя и пароль. Если они соответствуют данным, хранящимся в системе, программа выводит приветствие, иначе - сообщает о том, что пользователь ввел неправильные сведения. Очевидно, что нам нужно проверить два условия, причем важно, чтобы и то и другое выполнялось. Для этого можно воспользоваться логическим оператором And, который трактуется как "И". Конструкция с And выглядит так - листинг 7.17.

UserName = InputBox("Введите имя пользователя") UserPass = InputBox("Введите ваш пароль") If UserName = "Александр" And UserPass = "12345" Then MsgBox ("Добро пожаловать в систему") Else MsgBox ("Неверное имя пользователя или пароль") End If

Листинг 7.17. Использование And

Словесно вышеприведенную конструкцию можно описать так: " Если имя равно Александр и пароль равен 12345…".

Логический оператор Or (переводится как "Или") позволяет принять положительное решение, если выполняется хотя бы одно из условий. Например, нам нужно узнать имя пользователя, и если оно соответствует одному из имен, зарегистрированных в системе, вывести приветствие, иначе - вывести информацию об отсутствии в системе такого пользователя - листинг. 7.18.

UserName = InputBox("Введите имя пользователя") If UserName = "Александр" Or UserName = "Сергей" Or _ UserName = "Николай" Then MsgBox ("Добро пожаловать в систему, " & UserName) Else MsgBox ("В системе нет такого пользователя!") End If

Листинг 7.18. Использование Or

And и Or можно использовать вместе. Оператор Not (Не) позволяет задавать условия с отрицанием. Например, вы можете пропустить в систему всех пользователей кроме пользователя с именем "Владимир".

Для проверки дополнительных условий можно использовать оператор If - Then - Else.

ГЛОССАРИЙ

Русский язык	Английский язык	Казахский язык
Текст	Text	мәтін
Шрифт	Font	қаріп
Свойства	properties	қасиеттері
Объект	An object	зат
Метод	Method	әдіс
Обьект	An object	зат
Оброботка	Treatment	өңдеу

 

 

Вопросы.

1. Что такое синтаксическое описание?
2. Переменные, и их виды?
3.  Хранение информации?
4. Что такое типы данных?
5. Значение функции?
6. Расскажите что такое операторы сравнения?

Тестовые задания

1. ____ протокол для перемещения файлов гипертекста в сети Интернета:

1. HTTP
2. HTML
3. Download
4. IP

 

2. Который из тэгов используется для зачеркивания слов и предложений?

1. <S>
2. <TR>
3. <BR>
4. <P>

 

3. Можем ли мы нарисовать таблицу на странице HTML?

1. Да, с тэгом <table>
2. Да, с тэгом <draw table>
3. Нет, страница HTML содержит только текст
4. Нет, это не MS Word

 

4. <H1 Align=”center”> Что это значит?

1. Самый большой заголовок в центре
2. Самый маленький заголовок слева
3. Самый большой заголовок справа
4. Самый маленький заголовок в центре

 

5. Где сохраняются процедуры VBA, сопутствующие документу Office?

1. В самом Office документе
2. В подобной папке, но отдельным файлом
3. В специальной папке VBA на диске C
4. В специальной папке VBA локального пространства сети

 

1. 6. Какой символ типично используется в VBA как «shorthand» для оператора PRINT? $$ Знак вопроса(?)
2. Символ “P”
3. Восклицательный знак (!)
4. Знак доллара

 

7. Объявление переменных, предполагающих хранение чисел с нормальной точностью:

1. Single
2. Long
3. Integer
4. Double

 

8. Для данной части кода функции MySalary(IF Revenue>=1000000 THEN MySalary=500000 ELSE MySalary=”Poor me!” END IF), необходимо решить какой верный тип данных следует использовать для объявления функции:

1. Variant
2. Currency
3. Single
4. Double

Задания СРС и СРСП

Подготовить реферат на тему: «Основы VBA» (5-6 стр)

Список рекомендуемой литературы.

1. Экономическая информатика и информационные системы. В. Яворский, А.Амиров, Фолиант, 2008.

2 Internet ресурс: http://www.intuit.ru/studies/courses/3735/977/info

 

 

Информационные технологии в Экономике 3 кредита Лекционное занятие №19-20 Редактирование документов, автоматически выполняемые макросы ассист. профессора Токсанбекова Арайлым Айдаровна

4ФЭП-Ф, 3УиА 5,7 семестры 2018-2019 уч.год

Объект Selection

Выше нам уже встречался и объект Selection, и объект Range. Здесь пришло время поговорить о них подробнее, обсудить особенности их использования.

Напомню, что объект Application.Selection представляет собой выделенный участок документа или, если ничего не выделено, позицию курсора. Именно этим объектом пользуется макрорекордер при записи макроса, выполняющего какие-либо операции с текстом.

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

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

Предположим, мы используем такую конструкцию в шаблоне для автоматического форматирования текста. Если мы правильно рассчитаем номер слова, которое нужно отформатировать (или отредактировать, вставить в документ и т.д.) — то все будет работать правильно. Но стоит нам отредактировать шаблон — даже совсем немного, но так, что количество слов в нем изменится, наш макрос будет работать неправильно.

Объект Selection обычно используют без объявления объектной переменной.

Selection.Text = "Привет"

Минус использования Selection при автоматической обработке текста зависит от того, что он слишком чувствителен к действиям пользователя. Например, мы напишем программу, которая, имитируя выделение фрагментов текста с клавиатуры, обрабатывает текст. Если во время обработки текста пользователь вмешается, случайно кликнув мышью в документе, работа такой программы будет нарушена.

Рассмотрим основные свойства и методы объекта Selection.

Методы объекта Selection