Макрос звіт часу
Потрібна макрос для power-point, що показує, скільки часу минуло з певної дати.
У макросі необхідно передбачити можливість налаштування типу минулого часу:
кількість днів, годин, хвилин, секунд, що пройшли з зазначеної дати;
Кількість років, місяців, днів, хвилин, секунд, що пройшли з зазначеної дати.
-
Дата, от которой отсчитывать, откуда берется?
Куда выводить результат?
По какому событию обновлять показания?
-
Добрый день!
Дата задаётся пользователем, обновляется тоже пользователем.
Результат выводить нужно на слайд power point текстом, доступным для настройки шрифта, цвета и размера
-
На какой конкретно слайд?
-
обновляется тоже пользователем.
Имелось в виду обновление не начальной даты, а разницы
-
Обновление нужно посекундное в идеале, чтобы таймер был как часы, только считает с заданного момента
-
Дата задаётся пользователем
Каким способом: на каком-то слайде, в каком-то диалоговом окне, в самом тексте макроса или как-то еще?
-
Пользователь задает только дату или дату + время?
-
Пользователь задаёт дату и время, а вывод нужен на любой слайд презентации power point
-
вывод нужен на любой слайд презентации
На любой, указанный пользователем, или на текущий или какой?
-
+ вывод должен осуществляться в подготовленное текстовое поле или в новое?
-
Вывод на текущий слайд, отдельным текстовым блоком.
-
Так?
-
Кроме слова "прошло".
В остальном всё так
-
Могу отдать за спасибо. Слово "Прошло" замените сами:
Sub Unb()
Dim время As Date
Dim дата_начала As Date
' Запросить дату начала отсчета у пользователя
дата_начала = InputBox("Введите дату начала отсчета в формате ДД.ММ.ГГГГ", "Дата начала отсчета")
' Проверить, что пользователь ввел корректную дату
If IsDate(дата_начала) = False Then
MsgBox "Вы ввели некорректную дату. Попробуйте еще раз."
Exit Sub
End If
' Преобразовать введенную дату в формат Date
дата_начала = CDate(дата_начала)
Do While True
время = Now() - дата_начала
' Тут важно указать номер слайда и имя Текстового бокса - сейчас установлено соответственно "2" и "TextBox"
ActivePresentation.Slides(2).Shapes("TextBox").TextFrame.TextRange = "Прошло " & Format(время, "yy") & " л. " & Format(время, "m") & " м. " & Format(время, "d") & " д. " & Format(время, "hh:mm:ss")
DoEvents
Loop
End Sub
-
Щиро дякую, көп рақмет)сейчас попробую
-
Актуальні фриланс-проєкти в категорії Розробка презентацій
Дизайн кейсів на сайті маркетингової агенції
5000 UAH
Шукаємо людину з досвідом оформлення та дизайну кейсів B2B агенцій. Ось хороший приклад: https://adacted.com/pages/svaha-usa Сайт і дизайн у нас вже готові, потрібно: Розробити дизайн кейсів як шаблон. Створити його у WordPress адмінці самостійно або за допомогою нашого… Дизайн сайтів, Розробка презентацій ∙ 1 день 15 годин тому ∙ 21 ставка |
Створення презентації у PowerPoint
2573 UAH
Є діаграми, фото, відео матеріали, а також шаблон з майстер слайдом. Треба зробити презентацію з анімованими елементами і переходами. По суті, усі елементи будуть додані в PP, їх треба буде вирівняти та додати анімацію. Розробка презентацій ∙ 2 дні 1 година тому ∙ 40 ставок |
Діти Христа
1000 UAH
Я автор книги "Діти Христа" - це сучасне філософське оповідання про становлення людини і її цінностей. Реалізація книги буде проходити через благодійний проект, де кожен проданий екземпляр автоматично буде йти на благодійний фонд для підтримки дітей, які опинились в складних… Поліграфічний дизайн, Розробка презентацій ∙ 4 дні 3 години тому ∙ 28 ставок |
Розробка корпоративної презентації
1123 UAH
Необхідно розробити професійну презентацію англійською мовою, присвячену порівнянню традиційних дизельних генераторів та рішень CNG-to-Power (Стиснений природний газ для енергетики). Основна мета презентації — переконливо показати клієнту економічні, екологічні та операційні… Розробка презентацій ∙ 4 дні 11 годин тому ∙ 37 ставок |
Створення структурованого PDF Guide на основі авторської методики відновлення брівШукаю спеціаліста з досвідом створення навчальних матеріалів та digital-продуктів. Маю власну авторську методику відновлення брів після багаторічного перещипування, оформлену у вигляді документа обсягом 126 сторінок. Необхідно проаналізувати матеріал, виділити найважливішу… Редагування та коректура текстів, Розробка презентацій ∙ 5 днів 21 година тому ∙ 31 ставка |
Шахтинск