Найти номер столбца, в котором находится минимальное число

@Илья9 · Регистрация: 26.11.2017

Студворк — интернет-сервис помощи студентам

Доброго времени суток, под вечер думается плохо, но очень нужен ответ, задача вроде бы простая
Как найти номер столбца в котором находится минимальное число ?
Вот как хотел сделать, но не выходит
Минимальное число он находит и правильно находит

Visual Basic
1
2
3
4
5
6
7
8
9
Z = Application.WorksheetFunction.Min(Range("i:bb"))
'MsgBox Z
'm = Z.Column.Count
'm = Z.Column.Value
'm = Z.Columns.Value
'm = Z.Columns.Count
'm = Z.Column
'm = Z.Columns
Cells(10, 6) = m

@Казанский · 13.05.2018, 20:57

Илья9, например так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Il()
Dim Z, c As Range
  With Range("i:bb")
    Z = WorksheetFunction.Min(.Cells)
    For Each c In .Columns
      If Not IsError(Application.Match(Z, c, 0)) Then
        MsgBox "номер столбца: " & c.Column
        Exit For
      End If
    Next
  End With
End Sub

@Илья9 · 13.05.2018, 21:05 **[ТС]**

Казанский, Как всегда выручаете, а я думал там пару строк надо и как обычно хочу сказать СПАСИБО

@pashulka · 13.05.2018, 21:15

Илья9, Если в указанном диапазоне всегда наличествуют числа, то можно и так :

Visual Basic
1
MsgBox Range("I:BB").Find(Application.Min(Range("I:BB")), , xlValues, xlWhole).Column

@Казанский · 13.05.2018, 21:31

pashulka, зависит от того, какие числа. Я тоже так сначала хотел, заполнил диапазон I1:BB99 с помощью СЛЧИС, поменял на значения и... облом. Мин. число 4,37242043176411E-05 находится, только если искать "4.37E-05" - то, как число отображается в ячейке (с учетом десятичного разделителя). Если раздвинуть границы столбца, чтобы отображалось больше значащих цифр - опять не находит. Получается, что .Find нормально работает только с текстом и целыми числами.

@pashulka · 13.05.2018, 21:55

Казанский, Посмотрите на первоначальный вариант моего сообщения, где говорится, что числа не должны быть результатом вычислений формул. Это ограничение связано именно с Вашим комментарием, проще говоря, при поиске 4,37242043176411E-05 нужно использовать не xlValues а xlFormulas и искать 0.0000437242043176411

@Илья9 · 14.05.2018, 08:11 **[ТС]**

pashulka, Казанский, то есть если за числами будут стоять формулы надо использовать вот это ?

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

MsgBox Range("I:BB").Find(Application.Min(Range ("I:BB")), , xlValues, xlWhole).Column

с этим

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

xlFormulas

У меня сейчас действительно стоит макрос который копирует значение формулы и вставляет в то же самое окно из которого была сделана копия
Но я еще не пробовал, то что написал Казанский, использовать на формулах
pashulka, спасибо что откликнулись

@pashulka · 14.05.2018, 08:20

Илья9, Если числа - есть результат вычисления формул, то мой первоначальный вариант сработает только для целых чисел.

@Илья9 · 14.05.2018, 14:36 **[ТС]**

pashulka, понял, спасибо

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Найти номер столбца, в котором находится минимальное число

Решение

Решение

@Илья9 16 / 43 / 3 Регистрация: 26.11.2017 Сообщений: 204
	13.05.2018, 21:05 [ТС]
	Казанский, Как всегда выручаете, а я думал там пару строк надо и как обычно хочу сказать СПАСИБО 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	13.05.2018, 21:31
	pashulka, зависит от того, какие числа. Я тоже так сначала хотел, заполнил диапазон I1:BB99 с помощью СЛЧИС, поменял на значения и... облом. Мин. число 4,37242043176411E-05 находится, только если искать "4.37E-05" - то, как число отображается в ячейке (с учетом десятичного разделителя). Если раздвинуть границы столбца, чтобы отображалось больше значащих цифр - опять не находит. Получается, что .Find нормально работает только с текстом и целыми числами. 1

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	13.05.2018, 21:55
	Казанский, Посмотрите на первоначальный вариант моего сообщения, где говорится, что числа не должны быть результатом вычислений формул. Это ограничение связано именно с Вашим комментарием, проще говоря, при поиске 4,37242043176411E-05 нужно использовать не xlValues а xlFormulas и искать 0.0000437242043176411 1

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	14.05.2018, 08:20
	Илья9, Если числа - есть результат вычисления формул, то мой первоначальный вариант сработает только для целых чисел. 1

@Илья9 16 / 43 / 3 Регистрация: 26.11.2017 Сообщений: 204
	14.05.2018, 14:36 [ТС]
	pashulka, понял, спасибо 0