Αν θέλετε να ενημερώνεστε αυτόματα τη σημερινή ημέρα της εβδομάδας, τότε αυτό το άρθρο είναι για εσάς. Αυτό το άρθρο εστιάζει στην ενημέρωση του χρήστη την τρέχουσα ημέρα της εβδομάδας μέσω του msgbox στο vba.
Ερώτηση): Θέλω έναν κωδικό που θα καθορίζει την ημέρα της εβδομάδας.
Πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κώδικα επιλέξτε Visual Basic
- Κάντε κλικ στην επιλογή Εισαγωγή και στη συνέχεια ενότητα
- Αυτό θα δημιουργήσει νέα ενότητα
- Εισαγάγετε τον ακόλουθο κώδικα στη μονάδα
Sub TodaysDay ()
Επιλέξτε Case DatePart ("w", Date, vbMonday)
Περίπτωση 1
MsgBox "Δευτέρα"
Υπόθεση 2
MsgBox "Τρίτη"
Υπόθεση 3
MsgBox "Τετ"
Υπόθεση 4
MsgBox "Thur"
Υπόθεση 5
MsgBox "Παρ"
Υπόθεση 6
MsgBox "Sat"
Υπόθεση 7
MsgBox "Sunλιος"
Τέλος Επιλογή
Τέλος υπο
Σημείωση: Η σημερινή ημερομηνία είναι 5 Ιουνίου 2015, δηλαδή Παρασκευή
“VbMonday” χρησιμοποιείται για επιστροφή τη Δευτέρα ως πρώτη ημέρα της εβδομάδας. σε περίπτωση που η Κυριακή είναι η πρώτη ημέρα της εβδομάδας τότε πρέπει να χρησιμοποιήσετε “VbSunday”
- Πατήστε το πλήκτρο συντόμευσης ALT + F8 για να ανοίξετε το παράθυρο μακροεντολής
- Επιλέξτε τη μακροεντολή που μόλις δημιουργήσατε
- Κάντε κλικ στο Εκτέλεση και θα λάβουμε το όνομα της σημερινής ημερομηνίας.
- Αν θέλετε να αλλάξετε τη μορφή από Παρ σε Παρασκευή
- Πρέπει να κάνετε μικρές αλλαγές στον κώδικα
Sub TodaysDay ()
Επιλέξτε Case DatePart ("w", Date, vbMonday)
Περίπτωση 1
MsgBox "Δευτέρα"
Υπόθεση 2
MsgBox "Τρίτη"
Υπόθεση 3
MsgBox "Τετάρτη"
Υπόθεση 4
MsgBox "Πέμπτη"
Υπόθεση 5
MsgBox "Παρασκευή"
Υπόθεση 6
MsgBox "Σάββατο"
Υπόθεση 7
MsgBox "Κυριακή"
Τέλος Επιλογή
Τέλος υπο
- Αυτή τη φορά θα μπορείτε να εμφανίσετε το πλήρες όνομα της ημέρας.
Σε αυτό μπορούμε να χρησιμοποιήσουμε το πλαίσιο μηνυμάτων VBA για να ειδοποιήσουμε τον χρήστη σχετικά με την τρέχουσα ημέρα της εβδομάδας.
