Dacă doriți să fiți actualizat automat ziua săptămânii de astăzi, acest articol este pentru dvs. Acest articol se concentrează pe actualizarea utilizatorului în ziua curentă a săptămânii prin msgbox în vba.
Întrebare): Vreau un cod pentru a determina ziua săptămânii.
Trebuie să urmăm pașii de mai jos pentru a lansa editorul VB
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Faceți clic pe Insert apoi Module
- Aceasta va crea un nou modul
- Introduceți următorul cod în modul
Sub TodaysDay ()
Selectați Case DatePart („w”, Data, vbLuni)
Cazul 1
MsgBox "Mon"
Cazul 2
MsgBox „Marți”
Cazul 3
MsgBox „Miercuri”
Cazul 4
MsgBox "Thur"
Cazul 5
MsgBox „Vineri”
Cazul 6
MsgBox „Sat”
Cazul 7
MsgBox „Soare”
Selectare sfârșit
Sfârșitul Sub
Notă: Data de astăzi este 5 iunie 2015, adică vineri
„VbMonday” este folosit pentru a reveni luni ca prima zi a săptămânii; în cazul în care duminica este prima zi a săptămânii, atunci trebuie să utilizați „VbSunday”
- Apăsați tasta de comandă rapidă ALT + F8 pentru a deschide fereastra Macro
- Selectați macrocomanda pe care tocmai ați creat-o acum
- Faceți clic pe Executare și vom obține numele datei de astăzi.
- Dacă doriți să schimbați formatul de vineri până vineri
- Trebuie să faceți modificări ușoare în cod
Sub TodaysDay ()
Selectați Case DatePart („w”, Data, vbLuni)
Cazul 1
MsgBox „luni”
Cazul 2
MsgBox „Marți”
Cazul 3
MsgBox „Miercuri”
Cazul 4
MsgBox „Joi”
Cazul 5
MsgBox „Vineri”
Cazul 6
MsgBox „Sâmbătă”
Cazul 7
MsgBox „duminică”
Selectare sfârșit
Sfârșitul Sub
- De data aceasta veți putea afișa numele complet al zilei.
În aceasta putem folosi caseta de mesaje VBA pentru a informa utilizatorul despre ziua curentă a săptămânii.
