ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / автоматически пересчитывать книгу или лист в excel
10 сообщений из 10, страница 1 из 1
автоматически пересчитывать книгу или лист в excel
    #36414274
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
как сделать так, чтобы excel пересчитывал данные каждую секунду или 10, ну т.е. чтобы каждую секунду нажималась кнопка F9?
...
Рейтинг: 0 / 0
17.01.2010, 01:37
| Ответить | Цитировать | Написать  
автоматически пересчитывать книгу или лист в excel
    #36414280
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
lbppb,

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

Я использую формулу в одной из ячеек тдата(), которая подставляет текущую дату и время, дальше расчет идет исходя из этой даты, мне нужно чтобы было всегда актульаное время.
...
Рейтинг: 0 / 0
17.01.2010, 01:47
| Ответить | Цитировать | Написать  
автоматически пересчитывать книгу или лист в excel
    #36414287
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
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:08
| Ответить | Цитировать | Написать  
автоматически пересчитывать книгу или лист в excel
    #36414290
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Фразу ниже я забыл убрать, просто поначалу когда жал F9 ничего не происходило, пока не понял, что просто по умолчанию только минуты показывает, поэтому значение формулы и не менялось.
Djon PlayerВобще-то F9 не заставляет пересчитывать значение с фунцией =ТДАТА(), там будт указано то время, которое было на момент ввода формулы.
...
Рейтинг: 0 / 0
17.01.2010, 02:11
| Ответить | Цитировать | Написать  
автоматически пересчитывать книгу или лист в excel
    #36414292
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
Djon Player,

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

Оно работает, но когда закрываю файл и открываю снова, то он пишет, что "...произошла ошибка...трали вали, давайте откроем вам копию с испарвлениями..." Что делать?
...
Рейтинг: 0 / 0
17.01.2010, 02:45
| Ответить | Цитировать | Написать  
автоматически пересчитывать книгу или лист в excel
    #36414462
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
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, 13:35
| Ответить | Цитировать | Написать  
автоматически пересчитывать книгу или лист в excel
    #36414649
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
У меня проблема с офисом видимо. Потому что при использовании VBA выдает ошибку, но не сразу, а когда сохраняю и закрываю файл, а потом открываю, то оффис говорит, что произошла ошибка, предлагает восстановить файл, отправить отчет, но когда восстанавливает файл то весь VBA пропадет. Кто-нибудь знает как с этим можно расправиться?
...
Рейтинг: 0 / 0
17.01.2010, 17:50
| Ответить | Цитировать | Написать  
автоматически пересчитывать книгу или лист в excel
    #36416350
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
lbppbУ меня проблема с офисом видимо. Потому что при использовании VBA выдает ошибку, но не сразу, а когда сохраняю и закрываю файл, а потом открываю, то оффис говорит, что произошла ошибка, предлагает восстановить файл, отправить отчет, но когда восстанавливает файл то весь VBA пропадет. Кто-нибудь знает как с этим можно расправиться?Если выдаёт ошибку открытия и предлагает восстановить файл, значит он у вас глюкнулся.
Лучше всего взять предыдущую версию, когда он ещё был жив.
Если такого нет, то тогда только восстановить файл и заново вставить на листах все форматы ячеек и VBA заново вставить код.

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

После открытия снова закрывать макрос, проще всего сделать, чтобы макрос при открытии сам запускался.
...
Рейтинг: 0 / 0
18.01.2010, 16:33
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / автоматически пересчитывать книгу или лист в excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36414274&tid=2178596]:
 0ms
get settings:
 7ms
get forum list:
 18ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 161ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 269ms
total:  533ms
созд. / загр.: 533ms
x
x
Закрыть


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