Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA поиск столбца с минимальным значением
 
#1
02.08.2018 08:07:38
Добрый день!
мне нужно найти минимальное значение в диапазоне и присвоить переменной значение столбца
Код
column_MIN = Application.WorksheetFunction.Min(Worksheets(1).Range("B1083:E1083"))
 
 
 
#2
02.08.2018 08:10:27
Цитата
KindyakovEA написал:
присвоить переменной значение столбца
Может значение ячейки либо номер столбца?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#3
02.08.2018 08:12:46
Цитата
Nordheim написал:
Может значение ячейки либо номер столбца?
значение я вывожу а номер столбца этого значение ?
 
 
 
#4
02.08.2018 08:17:37
Цитата
KindyakovEA написал:
значение я вывожу а номер столбца этого значение ?
Прошу прощения, но вы сами поняли что написали, я к сожалению нет.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#5
02.08.2018 08:19:53
Цитата
Nordheim написал:
Прошу прощения, но вы сами поняли что написали, я к сожалению нет.
тогда поставлю вопрос так, найти столбец с минимальным значением  
 
 
 
#6
02.08.2018 08:22:42
Код
column_MIN = Application.WorksheetFunction.Min(Worksheets(1).Range("B1083:E1083"))
 Set column_MIN_nomer = Worksheets(1).Range("B1083:E1083").Find(column_MIN)
 column_MIN_nomer2 = column_MIN_nomer.Columns
Изменено: китин - 02.08.2018 08:24:19
Вполне такой нормальный кинжальчик. Процентов на 100
 
 
 
#7
02.08.2018 08:29:21
Можно так

Код
Sub Test()
    Dim column_MIN&, rng As Range, txt
    txt = Application.WorksheetFunction.Min(Worksheets(1).Range("B1083:E1083"))
    Set rng = Columns("B1083:E1083").Find(txt)
    If rng Is Nothing Then MsgBox "Ошибка", vbInformation: Exit Sub
    column_MIN = rng.Column
End Sub
Изменено: Nordheim - 02.08.2018 08:30:58
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#8
02.08.2018 08:30:52
Цитата
Цитата
Цитата
китин написал:
Set column_MIN_nomer = Worksheets(1).Range("B1083:E1083").Find(column_MIN)
column_MIN_nomer2 = column_MIN_nomer.Columns

нет так не выйдет
 
 
 
#9
02.08.2018 08:31:37
Цитата
KindyakovEA написал:
нет так не выйдет
Почему же?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#10
02.08.2018 08:38:25
Цитата
Nordheim написал:
Цитата KindyakovEA  написал:нет так не выйдетПочему же?
Цитата
Nordheim написал:
Почему же
все получилось, спасибо. columns - column
бесит этим basic
 
 
 
#11
02.08.2018 08:47:37
Цитата
KindyakovEA написал:
columns - column
ну да, писал без файла  :D  
Вполне такой нормальный кинжальчик. Процентов на 100
 
 
 
Страницы: 1
Наверх