Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / автоматически пересчитывать книгу или лист в excel / 10 сообщений из 10, страница 1 из 1
17.01.2010, 01:37
    #36414274
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
как сделать так, чтобы excel пересчитывал данные каждую секунду или 10, ну т.е. чтобы каждую секунду нажималась кнопка F9?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2010, 01:45
    #36414280
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
lbppb,

для какой цели это нужно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2010, 01:47
    #36414282
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
Djon Player,

Я использую формулу в одной из ячеек тдата(), которая подставляет текущую дату и время, дальше расчет идет исходя из этой даты, мне нужно чтобы было всегда актульаное время.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2010, 02:08
    #36414287
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
lbppbDjon Player,

Я использую формулу в одной из ячеек тдата(), которая подставляет текущую дату и время, дальше расчет идет исходя из этой даты, мне нужно чтобы было всегда актульаное время.Вобще-то F9 не заставляет пересчитывать значение с фунцией =ТДАТА(), там будт указано то время, которое было на момент ввода формулы.

Поидее можно написать макрос, который бы каждые 10 секунд просто заново вводил текущую дату и время. А всё остальное итак автоматом наверно пересчитается.


Например можно так извратиться, запускается макрос в бесконечный цикл и каждые 10 секунд он вводит в ячейку текущее время.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Повтор()
 Dim PauseTime As Single
 Dim Start As Single
 
 PauseTime =  10  ' Период в секундах
 
 Do While True
   Range("A1").FormulaLocal = "=ТДАТА()"
   
   Start = Timer
     
   Do While Timer < Start + PauseTime
    DoEvents
   Loop
 Loop
 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2010, 02:11
    #36414290
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
Фразу ниже я забыл убрать, просто поначалу когда жал F9 ничего не происходило, пока не понял, что просто по умолчанию только минуты показывает, поэтому значение формулы и не менялось.
Djon PlayerВобще-то F9 не заставляет пересчитывать значение с фунцией =ТДАТА(), там будт указано то время, которое было на момент ввода формулы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2010, 02:23
    #36414292
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
Djon Player,

Большое спасибо! Работает!
При нажатии F9 у меня обновлялось.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2010, 02:45
    #36414301
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
Djon Player,

Оно работает, но когда закрываю файл и открываю снова, то он пишет, что "...произошла ошибка...трали вали, давайте откроем вам копию с испарвлениями..." Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2010, 13:35
    #36414462
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
lbppb, в коде не предусмотрен выход из процедуры, поэтому возможна такая ошибка.

Предлагаю такой макрос:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub my_Procedure()
  Dim DateEnd As Date

  DateEnd = "04.05.2010 10:13:10" 'Дата и время окончания рекурсивной процедуры

    If Now > DateEnd Then Exit Sub ' Проверка по дате и выход из рекурсии
    If [A2] <> "" Then Exit Sub ' Проверка. Если в ячейке что-либо записано то выход из рекурсии
    TimVal = ("00:00:03") ' Время через которое происходит рекурсия
       Application.OnTime Now + TimeValue(TimVal), "my_Procedure"
            'здесь наша процедура
             Calculate
End Sub
В этом макросе прописано две проверки:
по времени и если в в ячейке А2 что-либо занесено, то марос перестает работать..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2010, 17:50
    #36414649
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
У меня проблема с офисом видимо. Потому что при использовании VBA выдает ошибку, но не сразу, а когда сохраняю и закрываю файл, а потом открываю, то оффис говорит, что произошла ошибка, предлагает восстановить файл, отправить отчет, но когда восстанавливает файл то весь VBA пропадет. Кто-нибудь знает как с этим можно расправиться?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2010, 16:33
    #36416350
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
автоматически пересчитывать книгу или лист в excel
lbppbУ меня проблема с офисом видимо. Потому что при использовании VBA выдает ошибку, но не сразу, а когда сохраняю и закрываю файл, а потом открываю, то оффис говорит, что произошла ошибка, предлагает восстановить файл, отправить отчет, но когда восстанавливает файл то весь VBA пропадет. Кто-нибудь знает как с этим можно расправиться?Если выдаёт ошибку открытия и предлагает восстановить файл, значит он у вас глюкнулся.
Лучше всего взять предыдущую версию, когда он ещё был жив.
Если такого нет, то тогда только восстановить файл и заново вставить на листах все форматы ячеек и VBA заново вставить код.

Как написал Сергей06, в моём макросе действительно не был предусмотрен код выхода, предполагалось, чтобы вы просто перед выходом сами остановите макрос, обычно помогают сочетания клавиш либо Ctrl+ Pause, либо Ctrl + C, по очереди пробовать и то и другое, возможно не с первого раза, но макрос должен остановиться, выдаст сообщение с кнопками, в нем выбрать End. После этого можно файл сохранять и закрывать.

После открытия снова закрывать макрос, проще всего сделать, чтобы макрос при открытии сам запускался.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / автоматически пересчитывать книгу или лист в excel / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 576ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178596]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 278ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 249ms
total:  576ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]