VPF::Проблема с выборкой! - Форум программистов

Oriander

Дата 6.10.2009, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 67
Регистрация: 1.8.2007

Репутация: нет
Всего: нет

Задача такая:
есть 2 столбца,
в первом текст,
во втором числа.

Пример:

Текст1 4523
Текст2 3457
..............................итд
(записей много)

НУЖНО: найти максимум
и по максимуму уже вывести
текст первого столбца той записи,
где число максимальное.

Например, нашло, что максимум 4523,
то выводит "Текст1"

Помогите срочно как реализовать,
вопрос жизни и смерти.

Добавлено через 47 секунд
Excel русской версии

ТоляМБА

Дата 6.10.2009, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: нет
Всего: 252

Код

Private Sub CommandButton1_Click()
Dim r, i As Long 'r- номер строки с которой идёт сравнение, i - для хранения номера строки макс. числа
Dim d As Double 'd - значение текущей ячейки

r = 2 'идём со второй строки
d = Cells(r, 2) 'берем за максимум первое значение из столбца B
i = r 'считаем что оно пока максимум
r = r + 1 'переходим к следующей строке
While Cells(r, 2) <> "" 'пока не встретится пустая ячейка делаем перебор
    If Cells(r, 2) > d Then 'если значение этой ячейки больше максимума
        d = Cells(r, 2) 'считаем что оно максимум на данный момент
        i = r 'и запоминаем индекс строки
    End If
    r = r + 1 'переходим к следующей строке
Wend
MsgBox Cells(i, 1) 'выводим из столбца А значение с максимальным значение столбца B
End Sub

Цитата(Oriander @ 6.10.2009, 19:06

)

Помогите срочно

Не первый год на форуме ведь, для таких возгласов есть ветка "Центр помощи".

Oriander

Дата 6.10.2009, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 67
Регистрация: 1.8.2007

Репутация: нет
Всего: нет

Та блин! Мне надо стандартным функционалом Экселя, без вижуал бейсика.
Помогите плиз :(
=ЕСЛИ(МАКС(...), то...)

Akina

Дата 6.10.2009, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Если поменять столбцы местами, то =ВПР(МАКС(A:A);A:B;2;ЛОЖЬ)

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Naghual

Дата 6.10.2009, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49

Цитата(Oriander @ 6.10.2009, 16:51

)

Та блин! Мне надо стандартным функционалом Экселя, без вижуал бейсика.

А где об этом сказано то было???
И потише, потише. Без "Та Блин"ов! Лучше спасибо человеку скажите.

--------------------

Я желаю всем Счастья!

Oriander

Дата 6.10.2009, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 67
Регистрация: 1.8.2007

Репутация: нет
Всего: нет

Akina, огромнейшее спасибо, ВЫРУЧИЛИ!
Прошу прощение за грубость, просто очень
сильно нужно была помощь. Эмоционально отреагировал.

RockClimber

Дата 7.10.2009, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15

Цитата(Oriander @ 6.10.2009, 16:51

)

Мне надо стандартным функционалом Экселя, без вижуал бейсика.

Тогда надо было сюда писать: Работа с MS Office

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

Freazeek

Дата 9.10.2009, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 8.9.2009

Репутация: нет
Всего: нет

=ИНДЕКС(A:B;ПОИСКПОЗ(МАКС(B1:B2);B:B;0);1)

чтобы не менять

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »