чет\нечет

[Михаил2261]

Здравствуйте
Подскажите как фунцией прописать в числовой строке четные\нечетные
Есть строка
6 17 22 25 30 37
Нужно после строки фунцией прописать
6 17 22 25 30 37 Ч Н Ч Н Ч Н четные нечетные
спасибо

[doober]

например так.использование во вложении

Function H_N(Rn As Range)
Dim dd, Sl As String, n As Integer, m As Integer
dd = Split(Rn.Value , " ", -1): Sl = " "
For n = 0 To UBound(dd)
On Error Resume Next
m = dd(n) Mod 2
Select Case m
Case 0
Sl = Sl & "Ч "
Case 1
Sl = Sl & "Н "
End Select
Next: H_N = Rn.Value & Sl
End Function

[The_Prist]

Или стандартной функцией:

=ЕСЛИ(ОСТАТ(A1;2);"Н";"Ч")

В A1:F1 - Ваши числа.

Если все числа в одной ячейке - то предварительно можно воспользоваться Данные-Текст по столбцам(разделитель Пробел).

[Михаил2261]

здравствуйте
не могу посмотреть вложенный файл - чет нечет
почему то не пускает меня программа

[Михаил2261]

здравствуйте
не могу посмотреть вложенный файл - чет нечет
почему то не пускает меня программа

[doober]

Скачайте здесь не заархивированый.посмотрите ячейку D2

[Михаил2261]

спасибо благодарности чуть позже счет пополню

[Михаил2261]

стандартной функцией:

=ЕСЛИ(ОСТАТ(A1;2);"Н";"Ч")
она не выдает значения для 6 столбцов , а только для одного ,так что ли
или как ей пользоваться?

[Teslenko_EA]

Здравствуйте Михаил2261.
формула предложенная The_Prist, будет работать как функция массива.
"..как ей пользоваться?" : выделите ячейки B1:B6, введите формулу:
=ЕСЛИ(ОСТАТ(A1:A6;2);"Н";"Ч"),
нажмите Ctrl + Shift + Enter, и у Вас всё получится.
Евгений.

[vikttur]

Сообщение от Михаил2261

она не выдает значения для 6 столбцов , а только для одного ,так что ли...?

Да, она выдает значение для одной ячейки. Для других - просто скопировать эту формулу в соседние ячейки, ссылка автоматически поменяется.