проблема с выводом максимального значения массива

RSS

grigju

Пользователь

Сообщений: 252 Регистрация: 03.06.2015

skype - angel0juliet

04.05.2024 00:41:23

Доброй ночи
подскажите, пожалуйста, есть код:

Код
w = Split("250x300", "x") Debug.Print Application.Max((w))

конечно же выдает 0. но как сделать чтобы выводил 300?

nilske

Пользователь

Сообщений: 841 Регистрация: 30.11.2018

04.05.2024 06:29:28

ИИ:

Код

...
    ' Поиск максимального значения в массиве
    For i = LBound(myArray) To UBound(myArray)
        If CDbl(myArray(i)) > maxValue Then
            maxValue = CDbl(myArray(i))
        End If
    Next i
    ...

Евгений Смирнов

Пользователь

Сообщений: 1116 Регистрация: 18.02.2021

04.05.2024 10:21:20

Здравствуйте Да странная картина, не хочет эксель сам изменять тип данных. Функция Split возвращает массив Variant/String. Как одним оператором изменить тип данных массива не знаю, только через цикл с доп переменной.

Код
W = Split("250x300", "x") ReDim ZZ(UBound(W)) For i = LBound(W) To UBound(W) ZZ(i) = CDbl(W(i)) Next i Debug.Print Application.Max(ZZ)