Транспортная задача VBA - Microsoft Office Excel

vAsterNNN · 28.11.2015, 16:01

Добрый день форумчане, задача реализовать пошаговое решение транспортной задачи на VBA. Начал заниматься этим вопросом. Нормально находиться начальный план, подсчитываются потенциалы, но проблемы с матрицей перерасчета, ни как не получается понять, в чем проблема с функциями Find_Hor and Find_Ver, возвращают только 0 и -1. Буду благодарен за советы

Кросспост
http://programmersforum.ru/showthrea...91#post1556791

IgorGO · 28.11.2015, 16:39

что тут скажешь...
МОЩНО!!!

одни только функции Мin, Max - дорогого стоят (по количеству сосредоточенный в них идей)

если так уж хочется написать свою функцию:

Код:

Function min(a As Double, b As Double) As Double
  If a < b Then min = a else min = b
End Function
или просто
min = iif(a<b,a,b)

и можно без функции, а везде в коде где нужно меньшее из двух

28.11.2015, 16:39	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	что тут скажешь... МОЩНО!!! одни только функции Мin, Max - дорогого стоят (по количеству сосредоточенный в них идей) если так уж хочется написать свою функцию: Код: `Function min(a As Double, b As Double) As Double If a < b Then min = a else min = b End Function или просто min = iif(a<b,a,b)` и можно без функции, а везде в коде где нужно меньшее из двух Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Транспортная задача VBA	vAsterNNN	Microsoft Office Excel	2	28.11.2015 16:02
Транспортная задача с#	Klausms	Фриланс	4	07.04.2014 22:49
Транспортная задача	Ира08	Помощь студентам	1	30.05.2012 11:24
Транспортная задача	Ninmah	Помощь студентам	1	24.04.2012 22:07
Транспортная задача	Наташульчик	Microsoft Office Excel	21	20.12.2010 13:36