Vba excel четная или нечетная

Условные операторы и циклы

Условные операторы позволяют в зависимости от значения логического выражения выполнить отдельный участок программы или, наоборот, не выполнять его. Логические выражения возвращают только два значения True (истина) или False (ложь).

Логическое значение можно сохранить в переменной:

С помощью функции CBool() можно преобразовать число или строку в логический тип данных. Любое число не равное 0 будет преобразовано в значение True , а значение 0 — в False . Пример:

Операторы сравнения

Операторы сравнения используются в логических выражениях. Перечислим их:

• Is — проверяет, ссылаются ли две объектные переменные на один и тот же объект. Если переменные ссылаются на один и тот же объект, то оператор Is возвращает значение True :

Сравнивать можно не только числа, но и строки. При сравнении строк производится проверка кодов отдельных символов в строке слева направо. Строки считаются равными, если они имеют одну длину и содержат одинаковые символы на равном смещении от начала строки. Строки могут сравниваться в двух режимах:

• двоичный режим — сравнение производится по кодам символов и зависит от регистра символов (режим используется по умолчанию):

• тестовый режим — сравнение производится без учета регистра символов. Чтобы включить текстовый режим необходимо добавить инструкцию Option Compare Text в самое начало модуля:

Сравнить строку с заданным шаблоном позволяет оператор Like . Результат сравнения зависит от используемого режима. Если используется двоичный режим (по умолчанию), то регистр символов учитывается, а если текстовый режим (в начале модуля указана инструкция Option Compare Text ) — то регистр не учитывается. Оператор Like имеет следующий формат:

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

• * — произвольное количество любых символов:

• [ ] — один из указанных символов. Символы можно перечислить подряд или указать диапазон через тире. Обратите внимание на то, что буква ё не входит в диапазон а-я . Пример сравнения в двоичном режиме:

Пример сравнения в текстовом режиме:

• [! ] — любой символ, кроме указанных символов. Символы можно перечислить подряд или указать диапазон через тире. Пример:

Логические операторы

Значение логического выражения можно инвертировать с помощью оператора Not :

Если значения равны, то возвращается значение True , но так как перед выражением стоит оператор Not , выражение вернет False . Круглые скобки можно не указывать, т. к. оператор Not имеет более низкий приоритет выполнения, чем операторы сравнения.

Несколько логических выражений можно объединить в одно большое с помощью следующих логических операторов:

• And — логическое И. Вернет True только в случае, если оба выражения равны True :

• Or — логическое ИЛИ. Вернет True , если хотя бы одно из выражений равно True :

• Xor — логическое исключающее ИЛИ. Вернет True , если выражения имеют разные значения и False — если одинаковые:

• Eqv — логическая эквивалентность. Вернет True , если выражения имеют одинаковые значения и False — если разные:

• Imp — логическая импликация. Вернет False , если первое выражение имеет значение True , а второе выражение — False , и True — в остальных случаях:

Перечислим операторы сравнения и логические операторы в порядке убывания приоритета:

1. , > , , >= , = , <> .
2. Not — логическое отрицание.
3. And — логическое И.
4. Or — логическое ИЛИ.
5. Xor — логическое исключающее ИЛИ.
6. Eqv — логическая эквивалентность.
7. Imp — логическая импликация.

Оператор ветвления If. Else

Оператор ветвления If. Else позволяет в зависимости от значения логического выражения выполнить отдельный фрагмент программы или, наоборот, не выполнять его. Оператор имеет два формата. Первый формат является однострочным:

Если вернет значение True (истина), то выполняется , а если False (ложь) — то . Блока Else может не быть. Пример проверки числа, введенного пользователем:

Второй формат оператора If. Else является блочным:

Для примера напишем программу, которая проверяет, является ли введенное пользователем число четным или нет (листинг 4.1). После проверки выведем соответствующее сообщение. Чтобы упростить код проверку возможности преобразования введенного значения в число выполнять не будем.

Листинг 4.1. Проверка числа на четность

Оператор If. Else позволяет проверить сразу несколько условий. Рассмотрим это на примере (листинг 4.2).

Листинг 4.2. Проверка нескольких условий

Один условный оператор можно вложить в другой. В этом случае отступ вложенной инструкции следует сделать в два раза больше, чтобы это было видно (листинг 4.3).

Листинг 4.3. Вложенные инструкции

Оператор выбора Select

Оператор выбора Select имеет следующий формат:

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

• конкретное значение или выражение, возвращающее значение — в этом случае производится проверка равенства со значением параметра :

• диапазон значений — указывается значение в следующем формате:

Пример указания диапазона от 5 до 10 включительно:

• ключевое слово Is и условие после него:

В одном операторе Case допустимо указание сразу нескольких условий через запятую:

Пример использования оператора Select приведен в листинге 4.4.

Листинг 4.4. Использование оператора Select

Функции выбора

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

• IIf( , , ) — если вернет значение True (истина), то выполняется , а если False (ложь) — то . Функция возвращает результат выполнения одного из выражений. Пример:

• Choose( , [, . , ]) — возвращает одно из заданных значений по указанному индексу. Если указан индекс 1, то возвращается первое значение из списка, если 2 — то второе значение и т.д. Функция возвращает значение Null , если индекс меньше 1 или больше числа значений в списке. Пример:

• Switch() — возвращает значение, которое соответствует первому логическому выражению, вернувшему значение True . Если нет логического выражения, возвращающего истинное значение, то функция возвращает значение Null . Формат функции:

Если пользователь введет число 1 , то в окне Immediate отобразится значение «Один» , если число 2 — то значение «Два» , а если 3 — то значение «Три» . Любое другое целочисленное значение приведет к отображению значения Null , а попытка ввести не число станет причиной ошибки времени выполнения, так как функция CInt() не сможет преобразовать значение в число.

Статьи по Visual Basic for Applications (VBA)

Помощь сайту

ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов

Источник

Vba как определить четное число

Vba как определить четное число

Сообщения: 24
Благодарности: 1

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

Условие:
1)17 вариант:

2) Определить является ли введённое число чётным-нечётным, положительным-отрицательным.

Нужно решить с обработкой ошибок и диалоговами окнами.

Сообщения: 446
Благодарности: 44

Насчет 2. Задам наводящие вопросы.
Как проверить четность — нечетность?
Нечетное — это если при делении на 2 есть остаток. (это операция MOD)

Как проверить положительность — отрицательность?
Если чиcло > 0 — положительное
Менньше — отрицательное
(If Then Else)

Программа проверяющая четность числа в VBA

драствуйте, наткнулся на проблему, с заданием .
Создать в редакторе VBA форму и разместить на ней два текстовых поля. Добавить к ним подписи «Введите число» и «Вывод». Запретите изменение пользователем содержимого второго поля. При вводе в первое окно числа во втором окне должно выводиться слово «Чётное» если число четное и «Нечетное» если число нечетное. Если введено не число – во втором окне должна быть отображена фраза «Неверный ввод».
Ошибку при вводе в форму чего-то дру-го сделал, а с четностью не четностью не получается
помогите, вот код программмыКод Visual Basic

Dim l
Dim y As Single
Dim e As Single
l = Ltxt.Text
y = l / 2
If Not IsNumeric(l) Or IsNull(l) Then
MsgBox («Неверный символ! Введите число»)
s.Text = «»
Ltxt.Text = «»

Else
s.Text = «нечетное»
End If
End If

Четность проверяется отсутствием остатка от деления на 2, а остаток находится функцией MOD

x = Val(InputBox(«Число»))
If x Mod 2 = 0 then
MsgBox («Четное»)
Else
MsgBox («Не четное»)
endif

Условные операторы и циклы

Условные операторы позволяют в зависимости от значения логического выражения выполнить отдельный участок программы или, наоборот, не выполнять его. Логические выражения возвращают только два значения True (истина) или False (ложь).

Логическое значение можно сохранить в переменной:

С помощью функции CBool() можно преобразовать число или строку в логический тип данных. Любое число не равное 0 будет преобразовано в значение True , а значение 0 — в False . Пример:

Операторы сравнения

Операторы сравнения используются в логических выражениях. Перечислим их:

• = — равно:

• <> — не равно:

• — больше:

• = — больше или равно:

• Is — проверяет, ссылаются ли две объектные переменные на один и тот же объект. Если переменные ссылаются на один и тот же объект, то оператор Is возвращает значение True :

Сравнивать можно не только числа, но и строки. При сравнении строк производится проверка кодов отдельных символов в строке слева направо. Строки считаются равными, если они имеют одну длину и содержат одинаковые символы на равном смещении от начала строки. Строки могут сравниваться в двух режимах:

• двоичный режим — сравнение производится по кодам символов и зависит от регистра символов (режим используется по умолчанию):

• тестовый режим — сравнение производится без учета регистра символов. Чтобы включить текстовый режим необходимо добавить инструкцию Option Compare Text в самое начало модуля:

Сравнить строку с заданным шаблоном позволяет оператор Like . Результат сравнения зависит от используемого режима. Если используется двоичный режим (по умолчанию), то регистр символов учитывается, а если текстовый режим (в начале модуля указана инструкция Option Compare Text ) — то регистр не учитывается. Оператор Like имеет следующий формат:

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

• ? — один любой символ:

• * — произвольное количество любых символов:

• # — любая цифра от 0 до 9:

• [ ] — один из указанных символов. Символы можно перечислить подряд или указать диапазон через тире. Обратите внимание на то, что буква ё не входит в диапазон а-я . Пример сравнения в двоичном режиме:

Пример сравнения в текстовом режиме:

• [! ] — любой символ, кроме указанных символов. Символы можно перечислить подряд или указать диапазон через тире. Пример:

Логические операторы

Значение логического выражения можно инвертировать с помощью оператора Not :

Если значения равны, то возвращается значение True , но так как перед выражением стоит оператор Not , выражение вернет False . Круглые скобки можно не указывать, т. к. оператор Not имеет более низкий приоритет выполнения, чем операторы сравнения.

Несколько логических выражений можно объединить в одно большое с помощью следующих логических операторов:

• And — логическое И. Вернет True только в случае, если оба выражения равны True :

• Or — логическое ИЛИ. Вернет True , если хотя бы одно из выражений равно True :

• Xor — логическое исключающее ИЛИ. Вернет True , если выражения имеют разные значения и False — если одинаковые:

• Eqv — логическая эквивалентность. Вернет True , если выражения имеют одинаковые значения и False — если разные:

• Imp — логическая импликация. Вернет False , если первое выражение имеет значение True , а второе выражение — False , и True — в остальных случаях:

Перечислим операторы сравнения и логические операторы в порядке убывания приоритета:

1. , = , = , <> .
2. Not — логическое отрицание.
3. And — логическое И.
4. Or — логическое ИЛИ.
5. Xor — логическое исключающее ИЛИ.
6. Eqv — логическая эквивалентность.
7. Imp — логическая импликация.

Оператор ветвления If. Else

Оператор ветвления If. Else позволяет в зависимости от значения логического выражения выполнить отдельный фрагмент программы или, наоборот, не выполнять его. Оператор имеет два формата. Первый формат является однострочным:

Если вернет значение True (истина), то выполняется , а если False (ложь) — то . Блока Else может не быть. Пример проверки числа, введенного пользователем:

Второй формат оператора If. Else является блочным:

Для примера напишем программу, которая проверяет, является ли введенное пользователем число четным или нет (листинг 4.1). После проверки выведем соответствующее сообщение. Чтобы упростить код проверку возможности преобразования введенного значения в число выполнять не будем.

Листинг 4.1. Проверка числа на четность

Оператор If. Else позволяет проверить сразу несколько условий. Рассмотрим это на примере (листинг 4.2).

Листинг 4.2. Проверка нескольких условий

Один условный оператор можно вложить в другой. В этом случае отступ вложенной инструкции следует сделать в два раза больше, чтобы это было видно (листинг 4.3).

Листинг 4.3. Вложенные инструкции

Оператор выбора Select

Оператор выбора Select имеет следующий формат:

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

• конкретное значение или выражение, возвращающее значение — в этом случае производится проверка равенства со значением параметра :

• диапазон значений — указывается значение в следующем формате:

Пример указания диапазона от 5 до 10 включительно:

• ключевое слово Is и условие после него:

В одном операторе Case допустимо указание сразу нескольких условий через запятую:

Пример использования оператора Select приведен в листинге 4.4.

Листинг 4.4. Использование оператора Select

Функции выбора

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

• IIf( , , ) — если вернет значение True (истина), то выполняется , а если False (ложь) — то . Функция возвращает результат выполнения одного из выражений. Пример:

• Choose( , [, . , ]) — возвращает одно из заданных значений по указанному индексу. Если указан индекс 1, то возвращается первое значение из списка, если 2 — то второе значение и т.д. Функция возвращает значение Null , если индекс меньше 1 или больше числа значений в списке. Пример:

• Switch() — возвращает значение, которое соответствует первому логическому выражению, вернувшему значение True . Если нет логического выражения, возвращающего истинное значение, то функция возвращает значение Null . Формат функции:

Если пользователь введет число 1 , то в окне Immediate отобразится значение «Один» , если число 2 — то значение «Два» , а если 3 — то значение «Три» . Любое другое целочисленное значение приведет к отображению значения Null , а попытка ввести не число станет причиной ошибки времени выполнения, так как функция CInt() не сможет преобразовать значение в число.

Статьи по Visual Basic for Applications (VBA)

Помощь сайту

ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов

Источник