Помогите с созданием функции плиз

[Sergmodern]

Люди помогите с созданием собственной функции в Экселе,готовый код уже есть,но он не работает,что я мог сделать не так?Вот задание:
Нужно написать функцию которая бы для диапазона,передаваемого её в качестве параметра находила бы количество чисел,состоящих только из нечетных цифр.
Вот код:
Function ПоискЧисел(диапазон)
r = 0
For r1 = 1 To Len(диапазон.Count)
диапазон(r1) = Mid(диапазон.Count, r1)
If диапазон(r1) / 2 <> диапазон(r1) \ 2 Then
r = r + 1
End If
Next
ПоискЧисел = r
End Function

Что я сделал неправильно подскажите плиз,надеюсь на вашу помощь.

[EducatedFool]

Что я сделал неправильно подскажите плиз

Почти всё


Можно, например, так:

Sub проверка()
    Dim arr As Variant: arr = Array(133, 234, 56, 435, 24, 35, 75)
    MsgBox ПоискЧисел(arr)
End Sub


Function ПоискЧисел(диапазон)
    числа_с_нечетными_цифрами = 0
    For i = 0 To UBound(диапазон)
        число = CLng(диапазон(i))
        произведение_цифр = 1
        For j = 1 To Len(CStr(число))
            произведение_цифр = произведение_цифр * CInt(Mid$(число, j, 1))
        Next j
        If произведение_цифр Mod 2 = 1 Then числа_с_нечетными_цифрами = числа_с_нечетными_цифрами + 1
    Next i
    ПоискЧисел = числа_с_нечетными_цифрами
End Function

[EducatedFool]

Или так:

Sub проверка()
    Dim arr As Variant: arr = Array(133, 234, 53.5, 435, 24, 35, 75)
    MsgBox ПоискЧисел(arr)
End Sub


Function ПоискЧисел(диапазон)
    числа_с_нечетными_цифрами = 0
    For i = 0 To UBound(диапазон)
        число = CStr(диапазон(i))
        есть_чётные_цифры = False
        For j = 1 To Len(число)
            цифра = Mid$(число, j, 1)
            If IsNumeric(цифра) Then If CInt(цифра) Mod 2 = 0 Then есть_чётные_цифры = True
        Next j
        If Not есть_чётные_цифры Then числа_с_нечетными_цифрами = числа_с_нечетными_цифрами + 1
    Next i
    ПоискЧисел = числа_с_нечетными_цифрами
End Function

[IgorGO]

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

[Sergmodern]

EducatedFool:
А как запустить эту программу?Я её вообщем запускаю,а она выдает окно типа с цифрой 4 и все,но когда я изменяю числа на нечетные он все равно показывает 4.Что бы это могло быть,может я чего-то не правильно запускаю?

[EducatedFool]

А как запустить эту программу?

Запускаете макрос Проверка, точно так, как Вы это и делали...

когда я изменяю числа на нечетные

Вы же написали, что надо найти количество чисел, в которых все цифры нечётные.

Я её вообщем запускаю,а она выдает окно типа с цифрой 4 и все

Ну можно и так: (замените макрос Проверка на следующий)

Sub проверка()
    Dim arr As Variant: arr = Array(133, 234, 53.5, 135, 24, 35, 75)
    Msg = "Числа для проверки: " & Join(arr, "; ") & vbNewLine
    Msg = Msg & "Количество чисел для проверки: " & CStr(UBound(arr) + 1) & vbNewLine & vbNewLine
    Msg = Msg & "Среди них чисел со всеми нечетными цифрами: " & ПоискЧисел(arr)
    MsgBox Msg, vbInformation, "Поиск чисел с нечётными цифрами"
End Sub

Всё считается вроде правильно, в этом примере таких чисел 5.

Если заменить строку arr = Array(133, 234, 53.5, 135, 24, 35, 75)
на arr = Array(123, 234, 54.5, 135, 24, 35, 74), ответ будет 2


Я, кстати, сразу и не обратил внимания, что в Вашу функцию должен передаваться диапазон ячеек Excel, а не массив данных...

В Вашем случае лучше воспользоваться примером от IgorGO, вот только у меня при открытии приложенного им файла во всех ячейках (сразу после того, как они заполнятся случайными числами согласно формулам) отображается ошибка #ИМЯ?

[IgorGO]

на листе используется 3 функции: СЛУЧМЕЖДУ и написанные мною HowOdd и AllOdd.
HowOdd - подсчитывает количество чисел, которые состоят только из непарных цифр, в полученном в качестве аргумента интервале. Что, собственно, требовалось в задаче.
AllOdd - возвращает ИСТИНА или ЛОЖЬ для полученного в качестве аргумента числа, соответственно, когда число состоит только из нечетных или есть хоть одно четное.
Да, есть одно ограничение - проверяются только целые числа. Для рациональных чисел необходимо править код функции.

Откуда взяться #ИМЕнам знают только программисты Била Гейтса. Все было сделано в 2007, сохранено как 2003, каких-либо предостережений при сохранении эксель не выдавал...

[Sergmodern]

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

[Sergmodern]

IgorGO:
А вы можите мне помоч написать мой код?Я просто по Вашему примеру ничего понять не могу.

[EducatedFool]

Откуда взяться #ИМЕнам знают только программисты Била Гейтса.

Всё оказалось очень просто...

Прочитал в справке Excel:
СЛУЧМЕЖДУ
Возвращает случайное число между двумя заданными числами. При каждом вычислении рабочего листа возвращается новое случайное число.
Если данная функция недоступна или возвращает ошибку #ИМЯ?, установите и загрузите надстройку «Пакет анализа».

А у меня «Пакет анализа» отключен.
Хотя, если честно, не понимаю, какая тут связь, ведь сначала формулы успешно обсчитываются, ячейки заполняются значениями, и лишь после этого - ошибка ...