Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2019, 14:42   #1
O!e&ka!
Новичок
Джуниор
 
Регистрация: 29.05.2011
Сообщений: 2
По умолчанию Максимальное значение

Добрый день, даны два столбца дробных значений (А1:А47 и В1:В47), нужно, с помощью макроса, из столбца В найти максимальное значение, а затем найти в А соответствующее значение для В максимального и вывести эти числа на экран в ячейки. Например значение из В вывести в H2, а соответсвующее значение числу в из столбца а в G2.
O!e&ka! вне форума Ответить с цитированием
Старый 14.05.2019, 02:14   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
в Н2 =МАКС(В1:В47)
в G2 =ИНДЕКС(А1:А47;ПОИСКПОЗ(H2;В1:В47;))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 14.05.2019, 02:25   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Можно так:
Код:
Sub qq()
    Dim x As Range: Set x = [B1:B47]
    Set x = x.Find(Application.Max(x))
    [H2] = x: [G2] = x.Offset(, -1)
End Sub
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Максимальное значение функции Орлов Никита Общие вопросы Delphi 7 21.04.2013 11:55
Дан массив целых чисел. Найти максимальное и минимальное значение. Вывести максимальное на 1-ое место, минимальное на последнее. Punk_Killer Паскаль, Turbo Pascal, PascalABC.NET 1 01.04.2013 09:38
Записать максимальное значение Aleksandr Общие вопросы Delphi 0 21.03.2013 11:52
Максимальное значение типа tools Помощь студентам 1 09.01.2010 03:15
Максимальное значение по дате ZUZA Microsoft Office Excel 5 05.07.2008 19:30