Macro's time report
You need a power-point macro that shows how much time has passed from a given date.
In the macro, it is necessary to provide the possibility of setting the type of past time:
the number of days, hours, minutes, seconds passed from the given date;
the number of years, months, days, minutes, seconds that have passed from the given date.
-
Дата, от которой отсчитывать, откуда берется?
Куда выводить результат?
По какому событию обновлять показания?
-
Добрый день!
Дата задаётся пользователем, обновляется тоже пользователем.
Результат выводить нужно на слайд 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
-
Щиро дякую, көп рақмет)сейчас попробую
-
Current freelance projects in the category Presentations
Design of cases on the marketing agency's website
112 USD
We are looking for a person with experience in creating and designing B2B agency case studies. Here is a good example: https://adacted.com/pages/svaha-usa The website and design are already ready, we need: To develop the case study design as a template. Create it in the… Web Design, Presentations ∙ 1 day 12 hours back ∙ 21 proposals |
Creating a presentation in PowerPoint
58 USD
There are diagrams, photos, video materials, as well as a template with a master slide. A presentation with animated elements and transitions needs to be created. Essentially, all elements will be added to PowerPoint, they need to be aligned and animation added. Presentations ∙ 1 day 22 hours back ∙ 39 proposals |
Children of Christ
22 USD
I am the author of the book "Children of Christ" - a modern philosophical narrative about the formation of a person and their values. The implementation of the book will take place through a charitable project, where each sold copy will automatically go to a charity fund to… Print Design, Presentations ∙ 4 days back ∙ 28 proposals |
Development of a corporate presentation
25 USD
A professional presentation in English is required, dedicated to comparing traditional diesel generators and CNG-to-Power (Compressed Natural Gas to Power) solutions. The main goal of the presentation is to convincingly demonstrate to the client the economic, environmental, and… Presentations ∙ 4 days 7 hours back ∙ 37 proposals |
Creation of a structured PDF Guide based on the author's eyebrow restoration methodologyI'm looking for a specialist with experience in creating educational materials and digital products. I have my own authorial methodology for eyebrow restoration after years of over-plucking, formatted as a 126-page document. It is necessary to analyze the material, highlight the… Text Editing & Proofreading, Presentations ∙ 5 days 18 hours back ∙ 31 proposals |
Shahtinsk