• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Zdravím,

lámu si hlavu s problémem nastavení podmínek viz. níže :

Funkce: Pokud je aktuální čas v definovaném intervalu mezi limitem A a limitem B pak zobrazit "ano" v textovém okně na slidu prezentace. Pokud je mimo interval zobrazit "ne".

Kód:

Sub Test()

Dim time As Date
Dim limit_A As Date
Dim limit_B As Date

time = Now()

limit_A = "23:50"
limit_B = "23:30"

If limit_A > time And time > limit_B Then
ActivePresentation.Slides(1).Shapes("1").TextFrame.TextRange.Text = Format("Ano")

Else
ActivePresentation.Slides(1).Shapes("1").TextFrame.TextRange.Text = Format("Ne")

End If


End Sub

Víte někdo jak na to?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse