ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Формула, которая зависит от текущей даты.
17 сообщений из 17, страница 1 из 1
Формула, которая зависит от текущей даты.
    #36465562
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Здравствуйте.
Подскажите.
Есть формула которая зависит от текущий даты
Код: plaintext
=ЕСЛИ(A55<=СЕГОДНЯ();СУММ(C55+E55+F55+H55+R54); 0 )
В ячейки A55 установлена дата. Например, сегодня 12.02.2010 в ячейки A55 установлена дата 13.02.2010, в 00.00 часов формула должна показать результат, но она не покажет пока не произвести повторный ввод формулы, или необходимо закрыть файл и мо новому его открыть.
Как это можно исправить, чтобы формула в 00.00 автоматически показала результат?
...
Рейтинг: 0 / 0
12.02.2010, 12:54
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465742
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
segail, наверное, без VBA здесь не обойтись: используйте метод Application.OnTime.
Есть ещё вариант(ы): если обновление должно происходить много чаще раза в сутки, можно обновлять какую-нибудь ячейку в цикле:
Код: plaintext
1.
2.
3.
4.
On Error Resume Next
Do
DoEvents
Worksheets( 1 ).Cells( 1 ,  1 ) =  1 
Loop
Или подключить к обновлению таймер...
...
Рейтинг: 0 / 0
12.02.2010, 13:44
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465746
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segailЗдравствуйте.
Подскажите.
Есть формула которая зависит от текущий даты
Код: plaintext
=ЕСЛИ(A55<=СЕГОДНЯ();СУММ(C55+E55+F55+H55+R54); 0 )
В ячейки A55 установлена дата. Например, сегодня 12.02.2010 в ячейки A55 установлена дата 13.02.2010, в 00.00 часов формула должна показать результат, но она не покажет пока не произвести повторный ввод формулы, или необходимо закрыть файл и мо новому его открыть.
Как это можно исправить, чтобы формула в 00.00 автоматически показала результат?

если с листом в этот момент работают можно повесить обновление ячейки на событие selection change

если лист просто стоит -т.е. нужны типа часы в ячейке, которые сами идут, то нужно создать макрос который будет сам себя вызывать с любым интервалом от 1 сек. и обновлять ячейку
...
Рейтинг: 0 / 0
12.02.2010, 13:46
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465778
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
vlth,
В смысле кликом по кнопке обновить диапазон ячеек, которые зависят от текущей даты?
Примерно так?
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
    Application.OnTime.[Отчет!$AE$ 6 :$AE$ 443 ]
End Sub
Насчет таймера не знаю…
...
Рейтинг: 0 / 0
12.02.2010, 13:54
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465791
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanus[quot segail] нужны типа часы в ячейке, которые сами идут, то нужно создать макрос который будет сам себя вызывать с любым интервалом от 1 сек. и обновлять ячейку
Чего не знаю того не знаю.
...
Рейтинг: 0 / 0
12.02.2010, 13:57
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465809
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Нарыл в записках, можно наверное прикрутить:
Функция паузы:

Код:

Function Pauza(Tm As Double)
vrm! = Timer
Do While Timer - vrm! < Tm: DoEvents: Loop
End Function
Пример использования:

Код:

Sub Test1()
Dim ss As Double: ss = Timer
Pauza Val(Sheets("Лист1").TextBox3)
MsgBox "Время паузы составило " & Timer - ss & " сек."
End Sub


Вариант2 (с помощью функции WinApi):
Объявление функции:

Код:

Private Declare Function GetTickCount Lib "kernel32" () As Long
Пример использования:

Код:

Sub Delay_Paus()
MsgBox "Начнем?"
Tm = Val(Sheets("Лист1").TextBox3) 'время задержки (в миллисекундах)
ss = GetTickCount: DoEvents
Do While GetTickCount - ss < Tm: DoEvents: Loop
MsgBox "Конец."
End Sub
...
Рейтинг: 0 / 0
12.02.2010, 14:00
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465816
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
segail, нет - жать ничего не надо: OnTime в заданное время запускает процедуру, название которой задаётся вместе со временем её запуска. В этой процедуре надо будет принудительно пересчитать лист (вызвать Calculate, например)
...
Рейтинг: 0 / 0
12.02.2010, 14:02
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465821
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail,

апликейш он тайм вызывает процедуру в назначенное время

вот код часов в ячейке

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Листинг  2 . 28 . Размещение в ячейке электронных часов
Sub UpdateTime()
   Dim varNextCall As Variant
   ' Записываем в ячейку текущее время
   Cells( 1 ,  1 ).Value = Now
   ' Записываем в varNextCall время, когда вызвать этот макрос _
    в следующий раз (через  1  секунду)
   varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) +  1 )
   ' Уведомляем Excel в необходимости вызова макроса
   Application.OnTime varNextCall, "UpdateTime"
End Sub


А вообще дайте мыло вышлю Вам набор полезных примеров на VBA откуда я в т.ч. взял этот
...
Рейтинг: 0 / 0
12.02.2010, 14:02
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465849
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Пример

Код: plaintext
1.
2.
3.
4.
5.
Sub Example()
Application.OnTime TimeValue("00:00:00"), "Обновить"
End Sub
Sub Обновить()
MsgBox ""
End Sub
...
Рейтинг: 0 / 0
12.02.2010, 14:08
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36465954
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanussegail,

апликейш он тайм вызывает процедуру в назначенное время

вот код часов в ячейке

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Листинг  2 . 28 . Размещение в ячейке электронных часов
Sub UpdateTime()
   Dim varNextCall As Variant
   ' Записываем в ячейку текущее время
   Cells( 1 ,  1 ).Value = Now
   ' Записываем в varNextCall время, когда вызвать этот макрос _
    в следующий раз (через  1  секунду)
   varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) +  1 )
   ' Уведомляем Excel в необходимости вызова макроса
   Application.OnTime varNextCall, "UpdateTime"
End Sub

А если уже известный диапазон ячеек с формулами, которые зависят от текущей даты =Отчет!$K$6:$L$443
В данный диапазон входят и ячейки с формулами которые не зависят от текущей даты.
...
Рейтинг: 0 / 0
12.02.2010, 14:33
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36466020
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail,

ну Вам же написал vlth код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Example()
Application.OnTime TimeValue("00:00:00"), "Обновить"
Set ActSheet=ActiveWorkbook.ActiveSheet
End Sub
Sub Обновить()
ActSheet.Calculate
Application.OnTime TimeValue("00:00:00"), "Обновить"
End Sub

если Вы запустите макрос Example, он запустит процедуру Обновить,

В эту процедуру пишем 2 кода,
строка Calculate которая запускает расчет всех формул на листе

и Application.OnTime TimeValue("00:00:00"), "Обновить"
которая посадит себя в цикл т.е. каждые 0:00:00 будет запускаться процедура "обновить"
...
Рейтинг: 0 / 0
12.02.2010, 14:50
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36466067
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shamanus
если Вы запустите макрос Example,
В смысле как я его запущу.
А где должен располагаться макрос ЭтаКнига или Лист где формулы
...
Рейтинг: 0 / 0
12.02.2010, 15:00
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36466071
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
segail,

обе процедуры достаточно расположить в коде модуля
...
Рейтинг: 0 / 0
12.02.2010, 15:00
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36466214
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
По самой формуле.
Конструкцией СУММ(C55+E55+F55+H55+R54) Вы суммируете уже суммированное :)
Нужно или СУММ(C55;E55;F55;H55;R54) или C55+E55+F55+H55+R54 (без СУММ).
Вся формула может иметь вид:
=(A55<=СЕГОДНЯ())*СУММ(C55;E55;F55;H55;R54)
...
Рейтинг: 0 / 0
12.02.2010, 15:43
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36467074
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
viktturПо самой формуле.
Конструкцией СУММ(C55+E55+F55+H55+R54) Вы суммируете уже суммированное :)
Нужно или СУММ(C55;E55;F55;H55;R54) или C55+E55+F55+H55+R54 (без СУММ).
Вся формула может иметь вид:
=(A55<=СЕГОДНЯ())*СУММ(C55;E55;F55;H55;R54)
понятно
но она работает же...
...
Рейтинг: 0 / 0
12.02.2010, 22:11
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36468038
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
segail, работает, конечно, но душа красоты просит :)
...
Рейтинг: 0 / 0
14.02.2010, 00:22
| Ответить | Цитировать | Написать  
Формула, которая зависит от текущей даты.
    #36468179
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
segail

Вам к нам в избушку) посмотреть до чего эти маньяки доводят "лишь бы красиво было" )))))
...
Рейтинг: 0 / 0
14.02.2010, 03:10
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Формула, которая зависит от текущей даты.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36468038&tid=2178494]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 193ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 223ms
total:  513ms
созд. / загр.: 513ms
x
x
Закрыть


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