Jeśli chcesz automatycznie aktualizować dzisiejszy dzień tygodnia, ten artykuł jest dla Ciebie. Ten artykuł koncentruje się na aktualizowaniu użytkownika w bieżący dzień tygodnia za pośrednictwem msgbox w vba.
Pytanie): Potrzebuję kodu określającego dzień tygodnia.
Aby uruchomić edytor VB, musimy wykonać poniższe kroki
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Kliknij Wstaw, a następnie Moduł
- Spowoduje to utworzenie nowego modułu
- Wprowadź następujący kod w module
Pod Dzisiejszy dzień()
Wybierz Case DatePart("w", Date, vbMonday)
Przypadek 1
MsgBox "Pon"
Przypadek 2
MsgBox "Wt"
Przypadek 3
MsgBox "Śr"
Przypadek 4
MsgBox "Cz."
Przypadek 5
MsgBox "Pt"
Przypadek 6
MsgBox "Sob"
Przypadek 7
MsgBox "Słońce"
Koniec Wybierz
Napis końcowy
Notatka: Dzisiejsza data to 5 czerwca 2015, czyli piątek
“vbPoniedziałek” służy do zwracania poniedziałku jako pierwszego dnia tygodnia; w przypadku, gdy niedziela jest pierwszym dniem tygodnia, należy użyć “vbNiedziela”
- Naciśnij klawisz skrótu ALT + F8, aby otworzyć okno makra
- Wybierz makro, które właśnie utworzyłeś
- Kliknij Uruchom, a otrzymamy nazwę dzisiejszej daty.
- Jeśli chcesz zmienić format z piątku na piątek
- Musisz dokonać drobnych zmian w kodzie
Pod Dzisiejszy dzień()
Wybierz Case DatePart("w", Date, vbMonday)
Przypadek 1
MsgBox "Poniedziałek"
Przypadek 2
MsgBox "Wtorek"
Przypadek 3
MsgBox "Środa"
Przypadek 4
MsgBox "Czwartek"
Przypadek 5
MsgBox "Piątek"
Przypadek 6
MsgBox "Sobota"
Przypadek 7
MsgBox "Niedziela"
Koniec Wybierz
Napis końcowy
- Tym razem będziesz mógł wyświetlić pełną nazwę dnia.
W tym celu możemy użyć okna wiadomości VBA, aby powiadomić użytkownika o bieżącym dniu tygodnia.
