Makros sprawozdanie czasu
Potrzebny jest makro dla punktu mocy, który pokazuje, ile czasu minęło od danej daty.
W makro należy przewidzieć możliwość dostosowania typu minionego czasu:
liczba dni, godzin, minut, sekund, które minęły od danej daty;
Liczba lat, miesięcy, dni, minut, sekund, które minęły od danej daty.
-
Дата, от которой отсчитывать, откуда берется?
Куда выводить результат?
По какому событию обновлять показания?
-
Добрый день!
Дата задаётся пользователем, обновляется тоже пользователем.
Результат выводить нужно на слайд 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
-
Щиро дякую, көп рақмет)сейчас попробую
-
Aktualne zlecenia dla freelancerów w kategorii Opracowanie prezentacji
Dzieci Chrystusa
82 PLN
Jestem autorem książki "Dzieci Chrystusa" - to nowoczesna filozoficzna opowieść o kształtowaniu się człowieka i jego wartości. Realizacja książki będzie przebiegać poprzez projekt charytatywny, w ramach którego każdy sprzedany egzemplarz automatycznie trafi na fundusz… Projektowanie dla poligrafii, Opracowanie prezentacji ∙ 1 dzień 14 godzin temu ∙ 26 ofert |
Opracowanie prezentacji korporacyjnej
91 PLN
Należy opracować profesjonalną prezentację w języku angielskim, poświęconą porównaniu tradycyjnych generatorów diesla i rozwiązań CNG-to-Power (Sprężony Gaz Ziemny na Energię).Głównym celem prezentacji jest przekonujące pokazanie klientowi ekonomicznych, ekologicznych i… Opracowanie prezentacji ∙ 1 dzień 21 godzin temu ∙ 34 oferty |
Stworzenie strukturalnego PDF Przewodnika na podstawie autorskiej metodyki regeneracji brwiSzukam specjalisty z doświadczeniem w tworzeniu materiałów edukacyjnych oraz produktów cyfrowych. Posiadam własną autorską metodologię odbudowy brwi po wieloletnim ich wyrywaniu, opracowaną w formie dokumentu o objętości 126 stron. Należy przeanalizować materiał, wyodrębnić… Edycja i korekta tekstu, Opracowanie prezentacji ∙ 3 dni 8 godzin temu ∙ 29 ofert |
Prezentacje dla kursów motocyklowychTrzeba stworzyć krótkie prezentacje dla kursów jazdy na motocyklu, bazując na już napisanym tekście, który będzie dostarczony. Prezentacje mają być lakoniczne. Ogólnie to 16 prezentacji, które trzeba będzie wykonać. Opracowanie prezentacji ∙ 6 dni 15 godzin temu ∙ 57 ofert |
Grafik / Wizualizator 3D (Ultra-Premium Nieruchomości)Dopracowanie prezentacji (Premium/Ultra-Luxury Real Estate) Szukam silnego projektanta 3D do dopracowania istniejącej prezentacji w dziedzinie premium/ultra-luksusowej nieruchomości. Zadanie: Należy dopracować 1 prezentację (do 60 slajdów), która już ma podstawową strukturę i… Projektowanie dla poligrafii, Opracowanie prezentacji ∙ 8 dni 11 godzin temu ∙ 14 ofert |
Szachtinsk