Функция ЕЧЁТН
В этой статье описаны синтаксис формулы и использование функции ISEVEN. в Microsoft Excel.
Описание
Возвращает значение ИСТИНА, если число четное, и значение ЛОЖЬ, если число нечетное.
Синтаксис
Аргументы функции ЕЧЁТН описаны ниже.
- Число Обязательный. Проверяемое значение. Если число не является целым, оно усекается.
Замечания
Если число не является числом, ISEVEN возвращает #VALUE! значение ошибки #ЗНАЧ!.
Пример
Скопируйте образец данных из следующей таблицы и вставьте их в ячейку A1 нового листа Excel. Чтобы отобразить результаты формул, выделите их и нажмите клавишу F2, а затем — клавишу Enter. При необходимости измените ширину столбцов, чтобы видеть все данные.
Проверяет, является ли число -1 четным
Проверяет, является ли число 2,5 четным. Дробная часть (0,5) усекается, поэтому проверяется число 2.
Проверяет, является ли число 5 четным.
Нуль (0) считается четным.
Проверяет дату в ячейке A6. Десятичное представление даты 23.12.2011 — 40900.
Vba как определить четное число
Сообщения: 24
Благодарности: 1
Автор: zena
Дата: 18-12-2010
Понимаю. задачи очень простые, но я даже основ не знаю, а препод сказал чтобы всё составили к понидельнику. Помогие плз.
Условие:
1)17 вариант:
2) Определить является ли введённое число чётным-нечётным, положительным-отрицательным.
Нужно решить с обработкой ошибок и диалоговами окнами.
Сообщения: 446
Благодарности: 44
Моя плохая. Это же VBA)))
Dim a, b, c, d As Integer Dim y As Long Sub Main() a = InputBox("Введи значение a", "Введите значение") b = InputBox("Введи значение b", "Введите значение") c = InputBox("Введи значение c", "Введите значение") d = InputBox("Введи значение d", "Введите значение") y = (Abs(3 * a * a - b)) ^ (1 / 2) - (c - d) ^ 3 MsgBox("Ваше значение" & Chr(13) & Chr(10) & y) End Sub
Насчет 2. Задам наводящие вопросы.
Как проверить четность — нечетность?
Нечетное — это если при делении на 2 есть остаток. (это операция MOD)
Как проверить положительность — отрицательность?
Если чиcло > 0 — положительное
Менньше — отрицательное
(If Then Else)
Последний раз редактировалось Medic84, 19-12-2010 в 23:17 .
Четность не четность
Опрелить четность/нечетность чисел от С2 до С8
помогите плиз. я знаю как написать в VB а вот привязать это к exсel не получается. .
Написать программу, которая определяет на четность число c инструкцией Select Case
Добрые люди, помогите пожалуйста. Написать программу, которая определяет на четность число при.
Проверить функцию на четность и не четность
помогите проверить функцию на четность и не четность y=1-x2/4-x2
Четность
Ребята подскажите как поставить условие IF на проверку четности числа
es geht mir gut
11270 / 4752 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
1 2 3 4 5 6 7 8 9 10 11
Private Sub CommandButton1_Click() Dim a As String If val(TextBox1.Text) Mod 2 = 0 Then a = "четное" Else a = "не четное" End If label1.caption=a End Sub
Добавлено через 1 минуту
Сообщение от po4kalol 
Vba как определить четное число
Нравится ресурс?
Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение
Популярные разделы FAQ: Общие вопросы Особенности VBA-кода Оптимизация VBA-кода Полезные ссылки
1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость — сестра таланта.
3. Не забывайте использовать теги [сode=vba] . текст программы. [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Модераторы: Old Bat, MIF