Для каждого значения из второго столбца найти минимум из первого и поместить в третий / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / 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

19.10.2012, 17:50

| Ответить | Цитировать | Написать

Для каждого значения из второго столбца найти минимум из первого и поместить в третий

#38006235

Казанский

Гость

Потеряли свою тему?
http://www.cyberforum.ru/vba/thread672455.html

...

Рейтинг:

0 / 0

19.10.2012, 18:46

| Ответить | Цитировать | Написать

Для каждого значения из второго столбца найти минимум из первого и поместить в третий

#38006322

VladConn

Участник

Сообщения: 20 099

Рейтинг: 0 / 0

Дим777,

Такие вещи делаются через sql запросы.

...

Рейтинг:

0 / 0

19.10.2012, 20:27

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=68&tid=2157386]:	0ms
get settings:	11ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	91ms
get topic data:	13ms
get forum data:	3ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	235ms

total:	424ms