Часы в ячейке Excel

Как в ячейку Excel вставить активные часы с датой и временем! Пишем небольшой макрос.

[nroivas]

Спасибо большое за Ваше видео, очень помогло, Вы просто гений

[chill]

здравствуйте, как сделать так что бы настоящее время отнималось от определенного времени(к пример 18-00(это время уже будет в другой ячейке) - настоящие время (15-00) что бы оно показывалось сколько осталось )

[КириллБородин-кы]

Здравствуйте, выдаёт ошибку
"sub or function not defined" и подсвечивает первую строку, подскажите решение.

[СергейЗолотухин-ео]

Здравствуйте. Мне нужна такая программа на планшет . Я работаю на складе. Выдаю товар. Который забирают различные транспортные компании по времени. Все нужно держать в голове и следить за временем, тяжело. Нужно чтобы программа по таблице считала время и подавала какой-то сигнал что время закончится до того момента когда курьер должен забыть товар.

[topmazila]

подскажите пожалуйста, как создать excel для выполнения следующей задачи.
Объект 1) обслуживается пн ср пт, объём ежедневных работ равен 10 по цене 1
Объект 2) обслуживается пн сб, объём ежедневных работ равен 7, 5 по цене 1
Объект 3) обслуживается вт вс, объём ежедневных работ равен 3 по цене 2
Итог сумма цен 1 и 2 за месяц. Расчёт должен автоматически выполнятся за период, начало и конец месяца, можно даты вводить вручную.

[DrIrkoff]

Отличное видео но! Часы в ячейке отображаются НА ВСЕХ страницах (вкладках) сразу и на всех файлах сразу. Как сделать (прописать) чтобы часы отображались лиш на одной странице (вкладке)

[АлександрКравченко-но]

Ни чего не получилось, выдает окно с ошибкой, время не движется, вот эту фразу Application.OnTime varNextCall, «UpdateTime» выделяет жёлтым и слева стрелочка

[ferrycorsten]

В таблице задействовано 2 модуля, Sub UpdateTime()

Dim varNextCall As Variant


Cells(2, 16).Value = Now


varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)


Application.OnTime varNextCall, "UpdateTime"

End Sub
и этот
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <= 6 Then
Target.Offset(0, 1).Select
Else
Range("A" & Target.Row + 1).Select
End If
End Sub . Как сделать чтобы один обновлялся каждую сикунду как нужно для времени а второй когда нужно, в определенные действия.

[Александрковал-ях]

Спасибо, а как сделать так что б только время без даты?

[bahtiyormirzayev]

Сахранит не получится, ошибка невозможна сахранит без поддержки макрасов: что делать???

[SpaceEnterprise]

Доброе время суток! Ну у меня почему то со временем начинает ускоряться счёт, причём ставил уже "Second(Now) + 30)" А всё ровно со временем начинает ускоряться, т.е скрипт, словно начинает постепенно перезапускать свои копии не в геометрической прогрессии, но прибавляя темпы, за часа 3, эти 30 сек превращаются в 3-4 секунды. Чисто в теории - Т.е если его оставить на ночь открытым, к утру вы уже не разбудите компьютер. А так крайне полезный скрипт.

[bfteam]

Автоматически ничего не вставляется :(