Перенос значения ячеек от двойственного условия??

[chempion]

Полазил по конфам и ничего не нашел подходящего.
Может кто сталкивался?

Существует "основной лист" - на нем отражается информация о человеке (работнике). В столбце "В" - отражается один параметр (всего их 19)- это числа от 1 до 19. В столбце "С" отражается другой параметр (всего их 2) - это буквы либо "о" либо "в". В столбце "d" - отражается минимальное значение этого параметра, а в столбце "e" максимальное, т.е. на отдельном листе "Параметры о" существует библиотека этих самых параметров "о" - это 19 параметров мин и макс значений, а на листе "Параметры в" отражаютя также 19 праметров "в".

Знаю.... на слух тяжело воспринимается, поэтому вот прикрепил

[uhm]

Кхм... А вопрос-то в чем?

[chempion]

Вопрос в коде макроса.Как это реализовать?

[Bagathur]

Расшифруй плиз что тебе надо) а то даже в "наглядном" виде не воспринимается, только мозг кипит)

[chempion]

Написать макрос позволяющий проставить минимальные и максимальные значения параметров в лист "Основной" в соответствии со "ступенью" и "принадлежностью", т.е. если ячейка "В" = 1 а ячейка "С" = о, то с листа "Параметры о" нужно взять минимальное значение параметра соответствующего ступени 1 (т.к. "В" = 1) и поставить это на "Основной" лист в данной строке колонка "мин", а в колонку "макс", соотв-но максимальный параметр удовлетворяющий тому же условию.
Вариации соотв-но всякие: 1-о, 1-в, 14-в, 13-о и т.д. надеюсь понятно.

Другими словами если в столбце "С" - "о" то идем на лист "Параметры о" и осуществляем поиск по колонкам "ступень" и присваиваем соответствущий ступени "мин" и "макс" параметр на "Основной лист", а если столбец "С" - "в" то тоже самое только с листа "Параметры в"

[Bagathur]

Код: Выделить всё

Private Sub Кнопка1_Click()
Row = Application.CountA(Sheets("Основной лист").Columns(1)) 'находит последнюю незаполненную строку таблицы
For i=2 to Row
If ActiveWorkbook.Sheets ("Основной лист").Cells (i, 3).Value = "o" then 'Вариант для вида "о"
Select Case ActiveWorkbook.Sheets ("Основной лист").Cells (i, 2).Value 'Перебирает все значения стобца Б
Case 1 'Значение ступени - 1
ActiveWorkbook.Sheets ("Основной лист").Cells (i, 4).Value = ActiveWorkbook.Sheets ("Параметры о").Cells (2, 2).Value  'Случай "о", "1", минимальный параметр
ActiveWorkbook.Sheets ("Основной лист").Cells (i, 4).Value = ActiveWorkbook.Sheets ("Параметры о").Cells (2, 3).Value  'Случай "о", "1", максимальный параметр
Case 2
(...)
Сase 19
Ens select
Else
(тот же самый Selectf, можешь выделить в отдельную процедуру
If ActiveWorkbook.Sheets ("Основной лист").Cells (i, 3).Value = "в" then
Select Case ActiveWorkbook.Sheets ("Основной лист").Cells (i, 2).Value
Case 1 'Значение ступени - 1
ActiveWorkbook.Sheets ("Основной лист").Cells (i, 4).Value = ActiveWorkbook.Sheets ("Параметры в").Cells (2, 2).Value  'Случай "в", "1", минимальный параметр
Case 2
(...)
Сase 19
End Select
End if
End Sub


Это в том случае если ты хочешь чтобы можно было изменять 19 значения минимального и максимального параметров. Если же они остаются неизменными - вместо ссылок на соответствующие листы запросто можно поставить цифровое значение соответствующего параметра.
Громоздко, но работает. Хотя если сделать с 2мя массивами количество строк будет меньше, хотя быстродействие не увеличится.
Можно сделать с переменным имени листа, тоже по строкам меньше получится.

[Bagathur]

Хотя гораздо проще всё сделать без макросов и кнопок, используя стандартные формулы Excell - в частности, посмотри справку по логическим функциям типа "ЕСЛИ"
Получится такая же логическая конструкция, как и в коде - типа

=ЕСЛИ(C2="о";ЕСЛИ(B2=1;'Параметры о'!B2);ЕСЛИ('Основной лист'!B2="1";'Параметры в'!B2))

только для 19 значений. Единственная проблема - не всякий Excell сможет съесть длинную формулу. Но если цифры, записанные на листах параметров неизменны, то без ссылок на эти листы будет проще.

[chempion]

C формулой я пробовал, как раз мой Excel не проглатывает. Говорит слишком длинная формула (на описании 8 ступени), поэтому путь тупиковый.
Спасибо за макрос, но он не работает. ругается на Next. (в чем дело??? сам никак понять не могу)

[chempion]

Или вот ещё чего подумал, может это реализовать с помощью формы, т.е туда мин. и макс. вбивать, а не заморачиваться с другими листами?

[Bagathur]

Скорее всего, дело в том, что в приведённом мной коде есть For, и нету его вечного напарника Next
Поставь перед строчкой с End Sub, а лучше почитай что написано про циклы на http://www.mini-soft.ru/soft/vba/r_7.php

Забитые же в форме мин и макс значения тебе придётся где-то хранить чтобы потом их брать. Можно использовать переобъявление констант, но всё равно проще писать руками на листы (та же твоя форма) и делать их невидимыми.

Можно сделать цикл проще, поместив минимальные и максимальные значения для "о" и "в" на один лист и меняя переменную колонки для извлекания значений в соответствии с ними.

[KL]

Почему-то у меня ощущение, что это должно делаться так. И хотя функция ДВССЫЛ и делает формулы летучими, если файл не изобилует тяжелыми матричными формулами, то решение вполне сносное.

[KL]

вот уже не летучий вариант