Определить, какая цифра расположена левее – максимальная или минимальная

[мария2507]

Дано натуральное четырехзначное число. Определить, какая цифра расположена левее – максимальная или минимальная

[EducatedFool]

Sub КакаяЦифраЛевее(b As Integer)
    'Определить, какая цифра расположена левее – максимальная или минимальная
    txt = CStr(b)
    If Len(txt) = 4 Then
        МаксимальнаяЦифра = 0: МинимальнаяЦифра = 10

        For i = 1 To Len(txt)
            цифра = Val(Mid(txt, i, 1))
            If цифра > МаксимальнаяЦифра Then МаксимальнаяЦифра = цифра
            If цифра < МинимальнаяЦифра Then МинимальнаяЦифра = цифра
        Next
        
        If InStr(1, txt, МаксимальнаяЦифра) > InStr(1, txt, МинимальнаяЦифра) Then
            MsgBox "МинимальнаяЦифра левее"
        Else
            MsgBox "МаксимальнаяЦифра левее"
        End If
    Else
        MsgBox "введите 4-значное число"
    End If
End Sub

Sub test()
    КакаяЦифраЛевее 5927
End Sub

[The_Prist]

Или формулой массива:
В ячейке А1 Ваше четырехзначное число.
Формула

=ЕСЛИ(НАЙТИ(МАКС(ЗНАЧЕН(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1)));A1)<
НАЙТИ(МИН(ЗНАЧЕН(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1)));A1);
МАКС(ЗНАЧЕН(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1)));
МИН(ЗНАЧЕН(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))))

Эта формула выводит непосредственно само число.

=ЕСЛИ(НАЙТИ(МАКС(ЗНАЧЕН(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1)));A1)<
НАЙТИ(МИН(ЗНАЧЕН(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1)));A1);"максимальное";"минимальное")

А эта показывает какое число расположено левее.

Напомню, что формулы массива вводяться не как обычные. Завершается ввод формулы массива в ячейку сочетанием клавиш Ctrl+Shift+Enter. Формула тогда заключиться в фигурные скобки {}

[мария2507]

а я вот так начала делать:
Function maxmin(t, y As Integer)
If t > 1000 And t < 9999 Then
a = Int(t / 1000)
b = Int((t - a * 1000) / 100)
c = Int((t - a * 1000 - b * 100) / 10)
d = Int(t - a * 1000 - b * 100 - c * 10)
If a <> b And a <> c And a <> d And b <> c And b <> d And c <> d Then





MsgBox ("проверяемое число не содержится в заданном числе")
End If

Else
MsgBox ("Введите четырех значное число")
End If
End Function




вот где много enterов, я там не знаю че писать(((
а в программе EducatedFool ни че не пойму((( как там проверить????


The_Prist, мне надо в макросе

[The_Prist]

Сообщение от мария2507

The_Prist, мне надо в макросе

Этого Вы не написали в топике.