Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск минимального или максимального из несмежных ячеек
 
#1
12.06.2019 18:07:23
Код
Acti = Union(Cells(n, 6), Cells(n, 10), Cells(n, 14), Cells(n, 18), Cells(n, 22)).Select
 x = Aplication.Function.Min(Acti)

Есть не смежные ячейки и надо найти у них минимальное как понял MIn работает только с массивом. Нужно писать цикл? Или есть какой другой вариант. Подскажите помогите кто чем может?
 
 
 
#2
12.06.2019 18:15:15
Цитата
Vojjd написал: Подскажите помогите кто чем может?
Чем мог (сообщение #5)
и ноль реакции...
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
12.06.2019 18:30:00
Vojjd, с таким подходом Вам не будут помогать.
 
 
 
#4
12.06.2019 18:32:03
Цитата
Sanja написал:
и ноль реакции...
Исправил, погрузился в работу и забыл отписаться.
 
 
 
#5
12.06.2019 18:55:46
Код
Set Acti = Union(Cells(n, 6), Cells(n, 10), Cells(n, 14), Cells(n, 18), Cells(n, 22))
x = Aplication.Min(Acti)
y = Aplication.Max(Acti)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
12.06.2019 19:09:17
Min Max не работают с  Union
 
 
 
#7
12.06.2019 19:14:49
Раз Вы в этом так уверены, то зачем вопросы задаете?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
12.06.2019 19:15:15
Цитата
Vojjd написал:
Min Max не работают с  Union
Уверены?
 
 
 
#9
12.06.2019 19:22:06
Проверял не работает. Офис 2013.
Изменено: Vojjd - 14.06.2019 09:25:58
 
 
 
#10
12.06.2019 19:24:06
Я тоже проверял - работает.
 
 
 
#11
12.06.2019 19:25:47
Цитата
Vojjd написал: Проверял не работает
Что Вы проверяли?
Код в сообщении #5 рабочий, проверял
Файл в сообщении #7 сделан для Вас, что Вы еще раз проверили.
То, как Вы работаете с Union, вызывает вопросы. Это точно не работает, и проверять не нужно
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
12.06.2019 19:28:56
Код
Dim a1, a2, a3, a4, a5 As Range
Dim Min, a As Variant

    Set a2 = Cells(n, 6)
    Set a3 = Cells(n, 10)
    Set a4 = Cells(n, 14)
    Set a5 = Cells(n, 18)
    Set a6 = Cells(n, 18)
    
    n = 2
    Min = a2
    For i = 2 To 6
        If a(i) < a3 Then a3 = Min
        End If
    Next i
    
Cells(1, 1) = Min

С циклом тоже не получается, помогите исправить.  
 
 
 
#13
12.06.2019 19:31:12
Тихо сам с собою я веду беседу...
Вы вообще читаете ответы которые Вам дают?  
Согласие есть продукт при полном непротивлении сторон
 
 
 
#14
12.06.2019 19:32:54
Цитата
Sanja написал:
Файл в сообщении #7 сделан для Вас, что Вы еще раз проверили.
При запуске выходит окно " Can't exccute code in brace mode"
Изменено: Vojjd - 14.06.2019 09:26:13
 
 
 
#15
12.06.2019 19:35:28
Vojjd, не нужно вставлять скопированную картинку: показывайте её прикреплённым файлом. Исправьте своё сообщение.
А на досуге почитайте, как правильно объявлять переменные и присваивать им тип.
 
 
 
#16
12.06.2019 19:38:14
Цитата
Юрий М написал: как правильно объявлять переменные и присваивать им тип
Судя по коду с циклом, и о массивах Вы имеете весьма далекое представление. Подучите мат.часть
Изменено: Sanja - 12.06.2019 19:38:35
Согласие есть продукт при полном непротивлении сторон
 
 
 
#17
12.06.2019 19:43:50
Извиняюсь за свою тупость все работает, большое спасибо
Изменено: Vojjd - 12.06.2019 19:44:14
 
 
 
#18
14.06.2019 02:15:46
Таким образом мы нашли значение в виде цифры, а можно его определить как ячейку, чтобы отталкиваться дальше и захватить значения соседних ячеек?
 
 
 
#19
14.06.2019 05:52:02
Цитата
Vojjd написал:
можно его определить как ячейку
можно, но что с дублями делать?
Код
Sub Vojjd()
Set r = Union(Cells(1, 1), Cells(2, 2), Cells(3, 3), Cells(4, 4), Cells(5, 5))
For Each cell In r
If cell = Application.Max(r) Then maxadress = maxadress & cell.Address
If cell = Application.Min(r) Then minadress = minadress & cell.Address
Next
MsgBox "Max - " & maxadress & vbCrLf & _
        "Min - " & minadress
End Sub
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#20
14.06.2019 08:21:48
Цитата
buchlotnik написал:
можно, но что с дублями делать?
одинаковые значения маловероятны в моем случае.
При запуске вашего кода - ошибка Out of memory
 
 
 
#21
14.06.2019 08:24:44
Цитата
Vojjd написал:
одинаковые значения маловероятны
а по вашему примеру не скажешь
Цитата
Vojjd написал:
ошибка Out of memory
показывайте в файле - у меня всё работает
Изменено: buchlotnik - 14.06.2019 08:25:37
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#22
14.06.2019 09:18:18
Вариант
Код
Sub Vojjd()
Dim R As Range, iMax, iMin
Dim clMax As Range, clMin As Range, afterCell As Range
Set R = Union(Cells(1, 1), Cells(2, 2), Cells(3, 3), Cells(4, 4), Cells(5, 5))
iMax = Application.Max(R)
iMin = Application.Min(R)
Set afterCell = R.SpecialCells(xlCellTypeLastCell)
Set clMax = R.Find(What:=iMax, After:=afterCell, SearchDirection:=xlPrevious)
Set clMin = R.Find(What:=iMin, After:=afterCell, SearchDirection:=xlPrevious)
MsgBox "Max - " & Application.Max(R) & ", в ячейке - " & clMax.Address(0, 0) & vbCrLf & _
        "Min - " & Application.Min(R) & ", в ячейке - " & clMin.Address(0, 0)
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#23
14.06.2019 09:43:17
Цитата
buchlotnik написал: а по вашему примеру не скажешь
buchlotnik, это мой пример :) , ТС так и неудосужился  
Согласие есть продукт при полном непротивлении сторон
 
 
 
#24
14.06.2019 10:50:41
Цитата
buchlotnik написал:
а по вашему примеру не скажешь
да дубли есть, посмотри что получиться.
 
 
 
Страницы: 1
Наверх