Ja vēlaties automātiski atjaunināt šodienas nedēļas dienu, šis raksts ir domāts jums. Šis raksts koncentrējas uz lietotāja atjaunināšanu pašreizējā nedēļas dienā, izmantojot msgbox in vba.
Jautājums): Es gribu kodu, lai noteiktu nedēļas dienu.
Lai palaistu VB redaktoru, mums jāveic šādas darbības
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Noklikšķiniet uz Ievietot, pēc tam uz moduļa
- Tādējādi tiks izveidots jauns modulis
- Modulī ievadiet šādu kodu
Šodienas diena ()
Atlasiet lietas datuma daļu ("w", datums, vbMonday)
1. gadījums
MsgBox "pirmdiena"
2. gadījums
MsgBox "otrdiena"
3. gadījums
MsgBox "trešdiena"
4. gadījums
MsgBox "Thur"
5. gadījums
MsgBox "piektdiena"
6. gadījums
MsgBox "Sestdiena"
7. gadījums
MsgBox "Saule"
Beigas Atlasīt
Beigt apakš
Piezīme: Šodienas datums ir 2015. gada 5. jūnijs, t.i., piektdiena
“VbPirmdiena” tiek izmantota, lai atgrieztos pirmdien kā nedēļas pirmo dienu; ja svētdiena ir nedēļas pirmā diena, jums tas jāizmanto “VbSvētdiena”
- Nospiediet īsinājumtaustiņu ALT + F8, lai atvērtu makro logu
- Atlasiet tikko izveidoto makro
- Noklikšķiniet uz Palaist, un mēs iegūsim šodienas datuma nosaukumu.
- Ja vēlaties mainīt formātu no piektdienas uz piektdienu
- Jums ir jāveic nelielas izmaiņas kodā
Šodienas diena ()
Atlasiet lietas datuma daļu ("w", datums, vbMonday)
1. gadījums
MsgBox "pirmdiena"
2. gadījums
MsgBox "Otrdiena"
3. gadījums
MsgBox "trešdiena"
4. gadījums
MsgBox "ceturtdiena"
5. gadījums
MsgBox "piektdiena"
6. gadījums
MsgBox "Sestdiena"
7. gadījums
MsgBox "svētdiena"
Beigas Atlasīt
Beigt apakš
- Šoreiz jūs varēsit parādīt pilnu dienas nosaukumu.
Šajā gadījumā mēs varam izmantot VBA ziņojumu lodziņu, lai informētu lietotāju par pašreizējo nedēļas dienu.
