Всем добрый день. Столкнулся с проблемой и решить ее самостоятельно не хватает знаний, уже и терпения. Перечитал много тем на форумах (Планета, Киберфорум, у нас ...), но так и не смог написать код. Суть вопроса, для оперативности работы нужно производить расчет среднетехнической скорости движения поезда (как бы интегрирование на маленькие участки). Если нужно 2-3 расчета результа сделал на листе формулами, а если 10-20 решил сделать на форме с выводом результата на ListBox. Но вывести следующий результат расчета, сохранив старый (с накоплением) не получается. Массив, цыклы вроде по отдельности все просто и понятно, а объеденить воедино не получилось. Прошу помогите и очень большая просьба, если не затруднит, с комментарями. Благодарю заранее.
Всем добрый день. Столкнулся с проблемой и решить ее самостоятельно не хватает знаний, уже и терпения. Перечитал много тем на форумах (Планета, Киберфорум, у нас ...), но так и не смог написать код. Суть вопроса, для оперативности работы нужно производить расчет среднетехнической скорости движения поезда (как бы интегрирование на маленькие участки). Если нужно 2-3 расчета результа сделал на листе формулами, а если 10-20 решил сделать на форме с выводом результата на ListBox. Но вывести следующий результат расчета, сохранив старый (с накоплением) не получается. Массив, цыклы вроде по отдельности все просто и понятно, а объеденить воедино не получилось. Прошу помогите и очень большая просьба, если не затруднит, с комментарями. Благодарю заранее.Shylo
Елена, здравствуйте. Во время "эксплуатации" выяснилось некоторое неудобство, на которое я не обратил внимания. После расчета данные помещаються в ListBox1 "последний под предыдущим", а удобнее "последний над предыдущим". Попытался по совойству прописать в[vba]
Код
Me.ListBox1.AddItem , Index = 0
[/vba] но среверсировать запись не получилось. Подскажите пожалуйста.
Елена, здравствуйте. Во время "эксплуатации" выяснилось некоторое неудобство, на которое я не обратил внимания. После расчета данные помещаються в ListBox1 "последний под предыдущим", а удобнее "последний над предыдущим". Попытался по совойству прописать в[vba]
Код
Me.ListBox1.AddItem , Index = 0
[/vba] но среверсировать запись не получилось. Подскажите пожалуйста.Shylo
nilem, спасибо работает. Ребята, поясните код последнего приема. Я считал, что первая строка ListBox'а имеен нулевой номер (индекс), и код Елены просто расставляет значения в позиции ListBox'а, (как в ячейки листа). А тут нулевой индекс только у пятого ТекстБокса. Хочу понять, заранее спасибо.
nilem, спасибо работает. Ребята, поясните код последнего приема. Я считал, что первая строка ListBox'а имеен нулевой номер (индекс), и код Елены просто расставляет значения в позиции ListBox'а, (как в ячейки листа). А тут нулевой индекс только у пятого ТекстБокса. Хочу понять, заранее спасибо.Shylo
немного не так. свойство List имеет в скобках два параметра, индекс строки и столбца (по аналогии с ячейкой Cells). В моём варианте индекс строки для всех Текстбоксов равен ListBox1.ListCount - 1, то есть это последняя строка, а у Николая индекс строки для всех Текстбоксов равен 0, то есть это первая строка
немного не так. свойство List имеет в скобках два параметра, индекс строки и столбца (по аналогии с ячейкой Cells). В моём варианте индекс строки для всех Текстбоксов равен ListBox1.ListCount - 1, то есть это последняя строка, а у Николая индекс строки для всех Текстбоксов равен 0, то есть это первая строкаPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816