Программирование

Помогите, плиз, макросом

Anetrek 17-01-2012 08:32

quote:
Originally posted by Anetrek:
Посмотри вот здесь, если я тебя правильно понял. Останется только добавить функцию сравнения и все. А основные моменты там описанны. http://excelvba.ru/code/GetCell[/B]

kammm 24-01-2012 12:57

Sub Поиск()
For i = 1 To 256 ' если строка содержит 256 ячеек как в 2003м офисе
If Cells(2, i).Value = Cells(1, 8).Value Then Cells(2, i).Select: Exit Sub
next i
End Sub
Примерно как-то так можно.
Но это слишком простой способ.
Может опишешь, что мудришь?
Возможно тупой перебор не самый удачный вариант.
Есть варианты другие, например поиск позиции в списке (таблице)
Тогда можно найти значение искомое не только в конкретно второй строке, а ещё и получить номер строки и столбца где его нашли.
kammm 28-01-2012 11:24

Вот тоже неплохая ссылка по макросам.
http://www.msoffice.nm.ru/faq/macros.htm
777psn777 31-01-2012 12:59

Большое спасибо за участие.
Вкратце: часть программки предназн. для выбора наиболее подходящей по размерам (длина, ширина) заготовки для изготовления детали, с минимизацией отходов. Дальше там еще наворочены всякие там приходы, расходы и пр: В общем, программка довольно неплохо склепалась и уже используется.
Рассматриваемая проблема решилась способом, похожим на пример уважаемого KAMMM, правда немного с другого боку, но смысл тот-же. Кстати, и функция <поиск позиции> тоже использована в другой части проги. Удивительно полезная вещь.
Удачи всем, и мне тоже.