VBA работа с формами

[DeDoK]

Помогите пожалуйста!

Пользовательсяка форма содержит Кнопку Выполнить, переключатели " С крайними" и "Друг с другом", поле выбора ячекк "Диапазон". В Поле диапазон указывается диапазон ячеек, заполненный числами. При нажатии кнопки "Выполнить" в каждой строке определяется минимальное и максимальное число. Если установлен флажок "С крайними" то числа меняются местами с крайними элементами строки: максимальные - с первым, минимальный с последним, если установлен флажок (переключатель)"друг с другом" то числа меняются местами друг с другом

Если кто знает помогите! очень нужно. Отблагодарю!

[kuklp]

И Вам здравствуйте. "Помогите" и "сделайте вместо меня" вещи радикально разные. Как же мы можем Вам помочь не видя, что у Вас не получается. Может у Вас числа не те и не так расположены... Много всяких "может". Вы нам покажите, что Вы сами сделали, а мы поможем поправить чего надо.

[IgorGO]

см.вложение
разбирал пример R Dmitry, обнаружил принципиальную ошибку у себя, подправил...

[R Dmitry]

Sub test()
Dim opt As Boolean, mx&, mn&, i&, j&, x&, n&, c&, b&
opt = True 'сюда значение переключателя
a = [a1:i10].Value 'сюда значение рефа
For i = 1 To UBound(a)
   mn = a(i, 1): mx = a(i, 1): x = 1: n = 1
    For j = 1 To UBound(a, 2)
        If mx > a(i, j) Then x = j: mx = a(i, j)
        If mn < a(i, j) Then n = j: mn = a(i, j)
    Next j
    If opt Then
    c = a(i, x): b = a(i, n): a(i, x) = b: a(i, n) = c
    Else
    c = a(i, x): b = a(i, UBound(a, 2)): a(i, x) = b: a(i, UBound(a, 2)) = c
    c = a(i, n): b = a(i, 1): a(i, n) = b: a(i, 1) = c
    End If
Next
[a1:i10] = a 'сюда значение рефа
End Sub

без формы не люблю рисовать

[IgorGO]

Дима,
сделайте строчку: 5, 9, 4, 1 и обработайте своей процедурой при условии "поменять с крайними".

    Else
    c = a(i, x): b = a(i, UBound(a, 2)): a(i, x) = b: a(i, UBound(a, 2)) = c
    c = a(i, n): b = a(i, 1): a(i, n) = b: a(i, 1) = c
    End If

по моим прикидкам получится 9, 1, 4, 5
что немного расходится с условиями

Если установлен флажок "С крайними" то числа меняются местами с крайними элементами строки: максимальные - с первым, минимальный с последним

моя процедура дает: 1, 5, 4, 9
Когда прочитал что написано, понял - я тоже "мимо кассы" расставил значения (минимальное в начале, максимальное в конце, а надо наоборот)))

[doober]

По моим прикидкам из
5 9 4 1
получаеся
9 5 4 1
1 и так стоит на своем месте,9 меняется с 5


Игорь теперь только увидел твою корректировку

[R Dmitry]

Сообщение от IgorGO

Дима,
сделайте строчку: 5, 9, 4, 1 и обработайте своей процедурой при условии "поменять с крайними".

    Else
    c = a(i, x): b = a(i, UBound(a, 2)): a(i, x) = b: a(i, UBound(a, 2)) = c
    c = a(i, n): b = a(i, 1): a(i, n) = b: a(i, 1) = c
    End If

по моим прикидкам получится 9, 1, 4, 5
что немного расходится с условиями моя процедура дает: 1, 5, 4, 9
Когда прочитал что написано, понял - я тоже "мимо кассы" расставил значения (минимальное в начале, максимальное в конце, а надо наоборот)))

да вроде все сходиться
из
5 9 4 1
получаеся
9 5 4 1

[IgorGO]

то ли лыжи не катять... то ли я чего-то не понимаю...
строчку 5, 9, 4, 1 пробовали обработать?
втянул Ваш тест, навесил кнопку на него, пробуйте, смотрите...

[R Dmitry]

Сообщение от IgorGO

то ли лыжи не катять... то ли я чего-то не понимаю...
строчку 5, 9, 4, 1 пробовали обработать?
втянул Ваш тест, навесил кнопку на него, пробуйте, смотрите...

да уже нашел.........

[R Dmitry]

Утро вечера мудренее.......
Sub test()
Dim opt As Boolean, mx&, mn&, i&, j&, x&, n&, c&, b&
Dim Rng As Range, a()
opt = [l15] 'сюда значение переключателя
Set Rng = [a17:j29] 'сюда значение рефа
a = Rng.Value
For i = 1 To UBound(a)
mn = a(i, 1): mx = a(i, 1): x = 1: n = 1
For j = 1 To UBound(a, 2)
If mx < a(i, j) Then x = j: mx = a(i, j)
If mn > a(i, j) Then n = j: mn = a(i, j)
Next j
If opt Then
c = a(i, x): b = a(i, n): a(i, x) = b: a(i, n) = c
Else
If mx = a(i, UBound(a, 2)) Then
a(i, 1) = mx: a(i, UBound(a, 2)) = mn
Else
c = a(i, n): b = a(i, UBound(a, 2)): a(i, n) = b: a(i, UBound(a, 2)) = c
c = a(i, x): b = a(i, 1): a(i, x) = b: a(i, 1) = c

End If: End If
Next
Rng = a 'сюда значение рефа
End Sub