| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Программирование, связанное с MS Office > Расчет формулы и вывод значения! |
| Автор: Displey 11.3.2006, 12:58 |
| Доброго времени суток! Возникла вот такая задача: Есть несколько столбцов с заголовками, при изменении значения в последней строчке столбца "дата " в столбце "Время" должен произвестись расчет и результат разместить в последней ячейке столбца "Время" Дата.....................Нач. вр.................... Кон.вр........................ Время 1.01.05................. 9:00......................... 17:45 ..................... =верх ячейка =верх ячейка ............................................................................результат (формульный расчет) 10.02.06 Формула такого типа: =ЕСЛИ(ЧАС(D12689)=9;МИНУТЫ(D12689);ЕСЛИ(ЧАС(D12689)=10;55+МИНУТЫ(D12689);ЕСЛИ(ЧАС(D12689)=11;105+МИНУТЫ(D12689);ЕСЛИ(ЧАС(D12689)=12;160+МИНУТЫ(D12689);ЕСЛИ(ЧАС(D12689)=13;210+МИНУТЫ(D12689);0))))) При помощи формул если все работает, но жутко тормозит комп, можно ли это сделать при помощи макросов, чтобы не забивать лишний раз таблицу формулами? |
| Автор: Staruha 11.3.2006, 20:36 |
| Я не думаю,что тормозит из-за формулы.Просто ты загружаешь большую информацию и занимаешь память.Попробуй использовать формулу ВПР,а именно составь еще одну таблицу из двух столбцов 9 - минуты(D12689) 10 - 55+минуты(D12689) и т.д. Макрос по такому же принцыпу с помощью Select Case. Лучше конечно поместить данные в другой файл. |
| Автор: Displey 14.3.2006, 09:10 |
| Staruha, Сразу посче того как создал тему , подумал о варианте ВПР, сделал работает все Чем дальше копаю, тем удобнее сделать хочется. Если нетрудно с небольшим кусочком макроса подсобите, до него не как не додумаюсь.  Update: Нашел одну небольшую програмку в ней куча полезных исходников, но беда в том, что все запоролено. Как можно обойти это препятствие? Установил Password Recovery, но ему требуется сам файл , а где хранятся макросы? В папке оффисе10 поискал ненашел нечего похожего. |
| Автор: Staruha 14.3.2006, 20:36 |
| Вот я ничего не поняла,что от меня треьуется.Давй по шагам |
| Автор: Displey 15.3.2006, 14:34 |
| Staruha, Я и сам себя порой с трудом понимаю ) Шаг 1. Нужен макрос, который будет просчитывая значения из ячеек по принципу формулы ВПР переходить , в последущую (нижнею) Пример: Расчитываемые ячейки C100 и D100 результат должен быть в ячейке Х100, после того как заполнится ячейка D101 , результат должен быть помещен в ячейку Х101 . Сейчас скрин маленький закину по нему более понятнее наверняка будет. |
| Автор: Staruha 15.3.2006, 22:13 |
| for i=1 to 15000 с=3 Range("X" & i).Value=(Range("D" & i).value-Range("C" & i).value)*c хотя несомненно поиск можно сузить |