Как в ячейку Excel вставить активные часы с датой и временем! Пишем небольшой макрос. Наш сайт: pcandlife.ru Статья целиком: pcandlife.ru/ch... TWITTER: / pcandlife VK: pcandlife
Отличное видео но! Часы в ячейке отображаются НА ВСЕХ страницах (вкладках) сразу и на всех файлах сразу. Как сделать (прописать) чтобы часы отображались лиш на одной странице (вкладке)
здравствуйте, как сделать так что бы настоящее время отнималось от определенного времени(к пример 18-00(это время уже будет в другой ячейке) - настоящие время (15-00) что бы оно показывалось сколько осталось )
Ни чего не получилось, выдает окно с ошибкой, время не движется, вот эту фразу Application.OnTime varNextCall, «UpdateTime» выделяет жёлтым и слева стрелочка
@@shlem8514 у меня заработало когда скопировал эту процедуру на другом сайте и вставил в свой макрос. хотя все тоже самое. возможно где-то какой-то символ заменен, типа латинская буква "а" на букву "а" из кириллицы.
Доброе время суток! Ну у меня почему то со временем начинает ускоряться счёт, причём ставил уже "Second(Now) + 30)" А всё ровно со временем начинает ускоряться, т.е скрипт, словно начинает постепенно перезапускать свои копии не в геометрической прогрессии, но прибавляя темпы, за часа 3, эти 30 сек превращаются в 3-4 секунды. Чисто в теории - Т.е если его оставить на ночь открытым, к утру вы уже не разбудите компьютер. А так крайне полезный скрипт.
подскажите пожалуйста, как создать excel для выполнения следующей задачи. Объект 1) обслуживается пн ср пт, объём ежедневных работ равен 10 по цене 1 Объект 2) обслуживается пн сб, объём ежедневных работ равен 7,5 по цене 1 Объект 3) обслуживается вт вс, объём ежедневных работ равен 3 по цене 2 Итог сумма цен 1 и 2 за месяц. Расчёт должен автоматически выполнятся за период, начало и конец месяца, можно даты вводить вручную.
Добрый день. Хм, примерный вариант: берёте 3 таблицы (на одном листе), записываете туда формулы умножения ваших работ на цены. Далее добавьте туда вот такой макрос, чтобы при открытии книги формулы автоматически пересчитывались: Private Sub Workbook_Open() If Application.Calculation = xlManual Then Application.Calculation = xlAutomatic End Sub
+Ivan Karpov спасибо, но уже нашёл гораздо более нет простой вариант. А вот как сделать, что бы считать число дней через интервал в промежутке? Например между 1.1.2018 и 31.1.2018 взяв за основу 2.1.2018 посчитать каждую вторую пятницу. это интервал в 14 дней и в итоге нужно получить 2.1.2018 и 16.1.2018, а в ячейке счёта число 2. За ранние спасибо, как минимум за преведущей комментарий.
Здравствуйте. Мне нужна такая программа на планшет . Я работаю на складе. Выдаю товар. Который забирают различные транспортные компании по времени. Все нужно держать в голове и следить за временем, тяжело. Нужно чтобы программа по таблице считала время и подавала какой-то сигнал что время закончится до того момента когда курьер должен забыть товар.
В таблице задействовано 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
@@ferrycorsten2069 , добрый вечер! Не забыл 😁 на первый взгляд можно использовать пользовательские события что-то вроде открытия книги, изменения диапазона. Ну или прикрутить к кнопке (любой) процедуру call, которая будет звать этот макрос.
Спасибо большое за Ваше видео, очень помогло, Вы просто гений
Отличное видео но! Часы в ячейке отображаются НА ВСЕХ страницах (вкладках) сразу и на всех файлах сразу. Как сделать (прописать) чтобы часы отображались лиш на одной странице (вкладке)
Василий, добрый вечер! Спасибо за найденный баг, буду смотреть! Будет результат - отпишусь!
здравствуйте, как сделать так что бы настоящее время отнималось от определенного времени(к пример 18-00(это время уже будет в другой ячейке) - настоящие время (15-00) что бы оно показывалось сколько осталось )
Ни чего не получилось, выдает окно с ошибкой, время не движется, вот эту фразу Application.OnTime varNextCall, «UpdateTime» выделяет жёлтым и слева стрелочка
У меня тоже время не идет. Вы решили этот вопрос?
@@shlem8514 И у меня та же проблема :(
То же самое и у меня :(
@@seba8420 Не понятно в чем касяк.
@@shlem8514 у меня заработало когда скопировал эту процедуру на другом сайте и вставил в свой макрос. хотя все тоже самое. возможно где-то какой-то символ заменен, типа латинская буква "а" на букву "а" из кириллицы.
Полезная функция.
Доброе время суток! Ну у меня почему то со временем начинает ускоряться счёт, причём ставил уже "Second(Now) + 30)" А всё ровно со временем начинает ускоряться, т.е скрипт, словно начинает постепенно перезапускать свои копии не в геометрической прогрессии, но прибавляя темпы, за часа 3, эти 30 сек превращаются в 3-4 секунды. Чисто в теории - Т.е если его оставить на ночь открытым, к утру вы уже не разбудите компьютер. А так крайне полезный скрипт.
Вячеслав, добрый день. Скрипт не тестировал на таком длительном отрезке времени. Так что "баги" возможны.
@@ivankarpov5177 я кажется нашёл причину. Отпишусь. Будет полезно знать. Надо код немного менять. ;) но за скрипт спасибо большое.
@@SpaceEnterprise супер!
Здравствуйте, выдаёт ошибку
"sub or function not defined" и подсвечивает первую строку, подскажите решение.
подскажите пожалуйста, как создать excel для выполнения следующей задачи.
Объект 1) обслуживается пн ср пт, объём ежедневных работ равен 10 по цене 1
Объект 2) обслуживается пн сб, объём ежедневных работ равен 7,5 по цене 1
Объект 3) обслуживается вт вс, объём ежедневных работ равен 3 по цене 2
Итог сумма цен 1 и 2 за месяц. Расчёт должен автоматически выполнятся за период, начало и конец месяца, можно даты вводить вручную.
Добрый день. Хм, примерный вариант: берёте 3 таблицы (на одном листе), записываете туда формулы умножения ваших работ на цены. Далее добавьте туда вот такой макрос, чтобы при открытии книги формулы автоматически пересчитывались:
Private Sub Workbook_Open()
If Application.Calculation = xlManual Then Application.Calculation = xlAutomatic
End Sub
+Ivan Karpov спасибо, но уже нашёл гораздо более нет простой вариант. А вот как сделать, что бы считать число дней через интервал в промежутке? Например между 1.1.2018 и 31.1.2018 взяв за основу 2.1.2018 посчитать каждую вторую пятницу. это интервал в 14 дней и в итоге нужно получить 2.1.2018 и 16.1.2018, а в ячейке счёта число 2. За ранние спасибо, как минимум за преведущей комментарий.
Добрый день! Нужно время на эксперимент. Если дождётесь сегодняшнего вечера - прикреплю файл.
Здравствуйте. Мне нужна такая программа на планшет . Я работаю на складе. Выдаю товар. Который забирают различные транспортные компании по времени. Все нужно держать в голове и следить за временем, тяжело. Нужно чтобы программа по таблице считала время и подавала какой-то сигнал что время закончится до того момента когда курьер должен забыть товар.
Сергей, добрый день. Это уже интеграция, сам эксель на планшете не может так.
В таблице задействовано 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
Александр, добрый день, отвечу вам несколько позднее.
Александр, добрый день, отвечу вам несколько позднее.
@@ivankarpov5177 Здравствуйте, Вы обо мне забыли?
@@ferrycorsten2069 , добрый вечер! Не забыл 😁 на первый взгляд можно использовать пользовательские события что-то вроде открытия книги, изменения диапазона. Ну или прикрутить к кнопке (любой) процедуру call, которая будет звать этот макрос.
Сахранит не получится, ошибка невозможна сахранит без поддержки макрасов: что делать???
А как в Эксель создать таймер?
Сергей, допилите этот макрос и будет вам счастье.
Спасибо, а как сделать так что б только время без даты?
Александр, нужно исключить из макроса соответствующую часть.
@@ivankarpov5177 а вот и нет. Решение нашел в свойствах ячейки, там выставляешь что хочешь что б показывалось
@@user-gj8jo1wn6y Ну вот и здорово))
Пожалуйста
Автоматически ничего не вставляется :(
Скорее всего вы выставили не тот диапазон в макросе, проверьте сначала его.