Найти минимальную цифру в целом числе

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти минимальную цифру в целом числе (Макросы Sub)

ikki

Дата: Суббота, 30.11.2013, 12:43 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

всем привет.
придумал (или "придумал"?) такой код:
[vba]

Код

Sub test3()
      Dim a() As Byte
      t = 1684567939: a = CStr(t)
      Debug.Print Application.Max(a) - 48
End Sub

[/vba]
это для максимальной.
можно ли аналогично найти минимальную цифру?
простая замена Max на Min, само собой, "не катит" - в полученном массиве есть нули.

пс. варианты с циклом не интересуют. ^_^

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Суббота, 30.11.2013, 12:54

Ответить

ikki

Дата: Суббота, 30.11.2013, 12:49 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

ппс. есть ещё такой вариант:
[vba]

Код

Sub test()
     t = "63956484684566486"
     s = "({" & Join(Split(Trim(Format(t, "@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @"))), ";") & "})"
     nMax = Evaluate("max" & s): nMin = Evaluate("min" & s)
     MsgBox nMin & vbCr & nMax
End Sub

[/vba]

не нравится

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

nilem

Дата: Суббота, 30.11.2013, 13:26 | Сообщение № 3

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

[vba]

Код

Sub test4()
      Dim a() As Byte, t As Long
      t = 265456783
      a = CStr(t)
      MsgBox Application.Max(a) - 48
      MsgBox Application.Small(a, Len(CStr(t)) + 1) - 48
End Sub

[/vba]
вот это a = CStr(t) просто удивительно

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Суббота, 30.11.2013, 13:27

Ответить

ikki

Дата: Суббота, 30.11.2013, 13:32 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Цитата nilem, 30.11.2013 в 13:26, в сообщении № 3

Application.Small

вот что значит не формулист я

совсем вылетела из головы функция наименьший.

спасибо, Николай.
хороший вариант.

пс. вместо Len(CStr(t)) + 1 можно написать UBound(a) / 2 + 2
от Option Base такой вариант зависеть не будет.