StavRiadok

Dátum a čas do stavového riadku

Ak chcete mať v stavovom riadku dátum a čas s presnosťou na sekundy, použite nasledujúce procedúry:


Option Explicit
Dim ano As Boolean
Sub StartObnov()
    ano = True
    Obnov 'voláme procedúru Obnov
End Sub
Sub Obnov()
Dim StavRiad As String
    If Application.International(xlCountrySetting) = 421 Then
        StavRiad = "Dátum a čas:: " ' 421 ...Slovensko
    Else
        StavRiad = "Current date and time: "
    End If
    If ano Then
        ' vykonaj
        Application.StatusBar = StavRiad & Format(Now, "d.m.yyyy  hh:mm:ss")
        Application.OnTime Now + TimeValue("00:00:01"), "Obnov", , True
    Else
        ' zmazať
        Application.StatusBar = False
    End If
End Sub
Sub StopObnov()
    ano = False
    Obnov
End Sub

Môžete tieto procedúry spojiť s ovládacím prvkom tlačidlo s príkazom. V režime návrhu:

Ak rychle dvakrát kliknete na tlačidlo, otvorí sa editor jazyka Visual Basic.
Vytvorí sa makro:
Private Sub CommandButton1_Click()
End Sub
Medzi tieto dva riadky vložte volanie programu: Call StartObnov Podobne postupujte aj u druhého tlačidla, s tým rozdielom, že vložíme volanie programu StopObnov, a v stavovom riadku už nebude dátum a čas.

Takže budete tam mať tieto dva programy:

Private Sub CommandButton1_Click()
Call StartObnov
End Sub


Private Sub CommandButton2_Click()
Call StopObnov
End Sub

Kliknutím na tlačidlo Dátum a čas sa v stavovom riadku zobrazí dátum a čas, tak ako na obrázku. Zrušiť to môžete kliknutím na tlačidlo STOP.

Kontakty

Stránka je v súlade s aktuálnymi normami.