Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Расчет формулы и вывод значения! Взависимости от состояния ячейки 
:(
    Опции темы
Displey
Дата 11.3.2006, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 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
PM MAIL   Вверх
Staruha
Дата 11.3.2006, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



Я не думаю,что тормозит из-за формулы.Просто ты загружаешь большую информацию и занимаешь память.Попробуй использовать формулу ВПР,а именно составь еще одну таблицу из двух столбцов 9 - минуты(D12689)
10 - 55+минуты(D12689) и т.д.
Макрос по такому же принцыпу с помощью Select Case.
Лучше конечно поместить данные в другой файл.


--------------------
Возмездие настигнет
PM MAIL   Вверх
Displey
Дата 14.3.2006, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 8.8.2005

Репутация: нет
Всего: нет



Staruha,
Сразу посче того как создал тему , подумал о варианте ВПР, сделал работает все

Чем дальше копаю, тем удобнее сделать хочется.
Если нетрудно с небольшим кусочком макроса подсобите, до него не как не додумаюсь. smile

Update: Нашел одну небольшую програмку в ней куча полезных исходников, но беда в том, что все запоролено. Как можно обойти это препятствие? Установил Password Recovery, но ему требуется сам файл , а где хранятся макросы? В папке оффисе10 поискал ненашел нечего похожего.

Это сообщение отредактировал(а) Displey - 14.3.2006, 09:12
PM MAIL   Вверх
Staruha
Дата 14.3.2006, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



Вот я ничего не поняла,что от меня треьуется.Давй по шагам


--------------------
Возмездие настигнет
PM MAIL   Вверх
Displey
Дата 15.3.2006, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 8.8.2005

Репутация: нет
Всего: нет



Staruha,
Я и сам себя порой с трудом понимаю )
Шаг 1. Нужен макрос, который будет просчитывая значения из ячеек по принципу формулы ВПР переходить , в последущую (нижнею) Пример: Расчитываемые ячейки C100 и D100 результат должен быть в ячейке Х100, после того как заполнится ячейка D101 , результат должен быть помещен в ячейку Х101 .
Сейчас скрин маленький закину по нему более понятнее наверняка будет.

Это сообщение отредактировал(а) Displey - 15.3.2006, 14:41

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  zadacha.GIF 111,23 Kb
PM MAIL   Вверх
Staruha
Дата 15.3.2006, 22:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 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


--------------------
Возмездие настигнет
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0647 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.