Pokud chcete automaticky aktualizovat dnešní den v týdnu, pak je tento článek pro vás. Tento článek se zaměřuje na aktualizaci uživatele aktuálního dne v týdnu prostřednictvím msgbox ve VBA.
Otázka): Chci kód pro určení dne v týdnu.
Ke spuštění editoru VB musíme postupovat podle následujících kroků
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Klikněte na Vložit a poté na Modul
- Tím se vytvoří nový modul
- Do modulu zadejte následující kód
Sub TodaysDay ()
Vyberte Case DatePart („w“, Date, vbMonday)
Případ 1
MsgBox „Po“
Případ 2
MsgBox "Út"
Případ 3
MsgBox "St"
Případ 4
MsgBox "Thur"
Případ 5
MsgBox „Pá“
Případ 6
MsgBox "So"
Případ 7
MsgBox „Slunce“
Konec Vybrat
End Sub
Poznámka: Dnešní datum je 5. června 2015, tj. Pátek
“VbMonday” slouží k návratu pondělí jako prvního dne v týdnu; v případě, že neděle je první den v týdnu, pak musíte použít “Vb Neděle”
- Stisknutím klávesové zkratky ALT + F8 otevřete okno Makro
- Vyberte makro, které jste právě vytvořili
- Klikněte na Spustit a my získáme název dnešního data.
- Pokud chcete změnit formát od pátku do pátku
- V kódu musíte provést drobné změny
Sub TodaysDay ()
Vyberte Case DatePart („w“, Date, vbMonday)
Případ 1
MsgBox „pondělí“
Případ 2
MsgBox „úterý“
Případ 3
MsgBox „Středa“
Případ 4
MsgBox „Čtvrtek“
Případ 5
MsgBox „Pátek“
Případ 6
MsgBox „sobota“
Případ 7
MsgBox „neděle“
Konec Vybrat
End Sub
- Tentokrát budete moci zobrazit celé jméno dne.
V tomto můžeme pomocí okna se zprávou VBA upozornit uživatele na aktuální den v týdnu.
