powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Для каждого значения из второго столбца найти минимум из первого и поместить в третий
3 сообщений из 3, страница 1 из 1
Для каждого значения из второго столбца найти минимум из первого и поместить в третий
    #38006160
Дим777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!

Подскажите, пожалуйста, есть следующая задача: есть 2 столбца, надо найти минимальное значение из первого столбца, для каждого значения из второго столбца и вывести минимальное значение в тертий столбец, т.е например для
знач мин
2 41 1
1 41 1
3 40 3
3 40 3

вот вырезка из программы именно для этой задачи

Код Visual Basic


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
for i=1 to strokalast
If Cells(i, 24) = Empty Then
 Cells(1, 19).AutoFilter field:=19, Criteria1:=a

 strokalast1 = Cells(Rows.Count, 19).End(xlUp).Row
 Range(Cells(2, 14), Cells(strokalast1, 14)).Select
 Set rng = Selection.SpecialCells(xlVisible)
 kolz = rng.Count
 Min = rng.Cells(1)
 For j = 1 To kolz
 If rng.Cells(j) < Min Then
 Min = rng.Cells(j)
 End If
 Next j
 Range(Cells(2, 24), Cells(strokalast1, 24)).Select
 Set rng1 = Selection.SpecialCells(xlVisible)
 rng1 = Min
 Cells(1, 19).AutoFilter field:=19

End If
Next i 



Модератор: Учимся использовать тэги оформления кода - FAQ


Более легкой программы придумать не смогла. Встроенные функции тоже использовать не знаю как. Эта программа при разных значениях либо работает, либо работает не правильно, либо выдает ошибку (kolz overflow). В чем причина понять не могу. В vba не специалист, поэтому прошу помочь разобраться.
...
Рейтинг: 0 / 0
Для каждого значения из второго столбца найти минимум из первого и поместить в третий
    #38006235
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Потеряли свою тему?
http://www.cyberforum.ru/vba/thread672455.html
...
Рейтинг: 0 / 0
Для каждого значения из второго столбца найти минимум из первого и поместить в третий
    #38006322
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дим777,

Такие вещи делаются через sql запросы.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Для каждого значения из второго столбца найти минимум из первого и поместить в третий
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]