![]() |
Модераторы: mihanik |
![]() ![]() ![]() |
|
Displey |
|
|||
Новичок Профиль Группа: Участник Сообщений: 23 Регистрация: 8.8.2005 Репутация: нет Всего: нет |
Доброго времени суток!
Возникла вот такая задача: Есть несколько столбцов с заголовками, при изменении значения в последней строчке столбца "дата " в столбце "Время" должен произвестись расчет и результат разместить в последней ячейке столбца "Время" Дата.....................Нач. вр.................... Кон.вр........................ Время 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))))) При помощи формул если все работает, но жутко тормозит комп, можно ли это сделать при помощи макросов, чтобы не забивать лишний раз таблицу формулами? Это сообщение отредактировал(а) Displey - 11.3.2006, 14:11 |
|||
|
||||
Staruha |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
Я не думаю,что тормозит из-за формулы.Просто ты загружаешь большую информацию и занимаешь память.Попробуй использовать формулу ВПР,а именно составь еще одну таблицу из двух столбцов 9 - минуты(D12689)
10 - 55+минуты(D12689) и т.д. Макрос по такому же принцыпу с помощью Select Case. Лучше конечно поместить данные в другой файл. -------------------- Возмездие настигнет |
|||
|
||||
Displey |
|
|||
Новичок Профиль Группа: Участник Сообщений: 23 Регистрация: 8.8.2005 Репутация: нет Всего: нет |
Staruha,
Сразу посче того как создал тему , подумал о варианте ВПР, сделал работает все Чем дальше копаю, тем удобнее сделать хочется. Если нетрудно с небольшим кусочком макроса подсобите, до него не как не додумаюсь. ![]() Update: Нашел одну небольшую програмку в ней куча полезных исходников, но беда в том, что все запоролено. Как можно обойти это препятствие? Установил Password Recovery, но ему требуется сам файл , а где хранятся макросы? В папке оффисе10 поискал ненашел нечего похожего. Это сообщение отредактировал(а) Displey - 14.3.2006, 09:12 |
|||
|
||||
Staruha |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
Вот я ничего не поняла,что от меня треьуется.Давй по шагам
-------------------- Возмездие настигнет |
|||
|
||||
Displey |
|
|||
Новичок Профиль Группа: Участник Сообщений: 23 Регистрация: 8.8.2005 Репутация: нет Всего: нет |
Staruha,
Я и сам себя порой с трудом понимаю ) Шаг 1. Нужен макрос, который будет просчитывая значения из ячеек по принципу формулы ВПР переходить , в последущую (нижнею) Пример: Расчитываемые ячейки C100 и D100 результат должен быть в ячейке Х100, после того как заполнится ячейка D101 , результат должен быть помещен в ячейку Х101 . Сейчас скрин маленький закину по нему более понятнее наверняка будет. Это сообщение отредактировал(а) Displey - 15.3.2006, 14:41 Присоединённый файл ( Кол-во скачиваний: 6 ) ![]() |
|||
|
||||
Staruha |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
for i=1 to 15000
с=3 Range("X" & i).Value=(Range("D" & i).value-Range("C" & i).value)*c хотя несомненно поиск можно сузить Это сообщение отредактировал(а) Staruha - 15.3.2006, 22:14 -------------------- Возмездие настигнет |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Программирование, связанное с MS Office" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |