Πώς να δημιουργήσετε ένα ημερολόγιο στο Excel;
Ένα ημερολόγιο Excel σάς βοηθά να παρακολουθείτε σημαντικά γεγονότα, όπως όταν κάποιος ξεκινά μια νέα δουλειά ή όταν κάτι πρέπει να παραδοθεί. Κάνει την προβολή αυτών των ημερομηνιών εύκολη και ξεκάθαρη. Σε αυτόν τον οδηγό, θα σας δείξω πώς να δημιουργείτε μηνιαία και ετήσια ημερολόγια στο Excel. Θα εξετάσουμε τη χρήση προτύπων για γρήγορη ρύθμιση και επίσης πώς να φτιάξετε ένα από την αρχή για όσους θέλουν περισσότερο έλεγχο. Με αυτόν τον τρόπο, μπορείτε να παραμείνετε οργανωμένοι, είτε πρόκειται για εργασιακά είτε για προσωπικά σχέδια.
Δημιουργήστε ένα ετήσιο ημερολόγιο χρησιμοποιώντας πρότυπα ημερολογίου του Excel
Δημιουργήστε γρήγορα ένα μηνιαίο ή ετήσιο ημερολόγιο με το Kutools για Excel
Δημιουργήστε ένα ετήσιο ημερολόγιο χρησιμοποιώντας πρότυπα ημερολογίου του Excel
Με αυτήν τη μέθοδο, πρέπει να βεβαιωθείτε ότι ο υπολογιστής σας συνδέεται στο δίκτυο, ώστε να μπορείτε να κάνετε λήψη του Πρότυπα ημερολογίου.
1. Παω σε Αρχεία κάντε κλικ στην καρτέλα Νέα κουμπί στο αριστερό παράθυρο και κάντε κλικ Ημερολόγια από Προτεινόμενες αναζητήσεις. Δείτε το στιγμιότυπο οθόνης:
2. επιλέξτε ένα από τα πρότυπα ημερολογίου που σας αρέσει, κάντε διπλό κλικ πάνω του για να δημιουργήσετε το ετήσιο ημερολόγιο.
Αποτέλεσμα
Δημιουργήστε γρήγορα ένα μηνιαίο ή ετήσιο ημερολόγιο με το Kutools για Excel
Perpetual Calendar εργαλείο του kutools για Excel μπορεί γρήγορα να δημιουργήσει ένα προσαρμοσμένο ημερολόγιο μήνα ή ημερολόγιο έτους σε ένα νέο βιβλίο εργασίας και κάθε ημερολόγιο μήνα θα περιέχεται σε ένα νέο φύλλο εργασίας.
Μετά την εγκατάσταση του Kutools για Excel, κάντε κλικ Kutools Plus > Φύλλο εργασίας > Perpetual Calendar. Στο αναδυόμενο Perpetual Calendar πλαίσιο διαλόγου, κάντε τα εξής:
- Για να δημιουργήσετε ένα μηνιαίο ημερολόγιο, καθορίστε τους μήνες που θέλετε να δημιουργήσετε το ημερολόγιο μέσω του Από και Προς την αναπτυσσόμενη λίστα και κάντε κλικ στην επιλογή Δημιουργία.
- Για να δημιουργήσετε ένα ετήσιο ημερολόγιο, καθορίστε το έτος που θέλετε να δημιουργήσετε το ημερολόγιο μέσω του Από και Προς την αναπτυσσόμενη λίστα και κάντε κλικ στην επιλογή Δημιουργία.
Αποτέλεσμα
- Ένα μηνιαίο ημερολόγιο:
- Ετήσιο ημερολόγιο:
Δημιουργήστε ένα μηνιαίο ημερολόγιο με κωδικό VBA
Με τον ακόλουθο κώδικα VBA, μπορείτε να δημιουργήσετε γρήγορα ένα μηνιαίο ημερολόγιο. Κάντε τα εξής:
1. Τύπος άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.
2. Θα εμφανιστεί ένα νέο παράθυρο. Κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, εισαγάγετε τους ακόλουθους κωδικούς στη λειτουργική μονάδα:
Sub CalendarMaker()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
Application.ScreenUpdating = False
On Error GoTo MyErrorTrap
Range("a1:g14").Clear
MyInput = InputBox("Type in Month and year for Calendar ")
If MyInput = "" Then Exit Sub
StartDay = DateValue(MyInput)
If Day(StartDay) <> 1 Then
StartDay = DateValue(Month(StartDay) & "/1/" & _
Year(StartDay))
End If
Range("a1").NumberFormat = "mmmm yyyy"
With Range("a1:g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End With
With Range("a2:g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End With
Range("a2") = "Sunday"
Range("b2") = "Monday"
Range("c2") = "Tuesday"
Range("d2") = "Wednesday"
Range("e2") = "Thursday"
Range("f2") = "Friday"
Range("g2") = "Saturday"
With Range("a3:g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End With
Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
DayofWeek = Weekday(StartDay)
CurYear = Year(StartDay)
CurMonth = Month(StartDay)
FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
Select Case DayofWeek
Case 1
Range("a3").Value = 1
Case 2
Range("b3").Value = 1
Case 3
Range("c3").Value = 1
Case 4
Range("d3").Value = 1
Case 5
Range("e3").Value = 1
Case 6
Range("f3").Value = 1
Case 7
Range("g3").Value = 1
End Select
For Each cell In Range("a3:g8")
RowCell = cell.Row
ColCell = cell.Column
If cell.Column = 1 And cell.Row = 3 Then
ElseIf cell.Column <> 1 Then
If cell.Offset(0, -1).Value >= 1 Then
cell.Value = cell.Offset(0, -1).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
ElseIf cell.Row > 3 And cell.Column = 1 Then
cell.Value = cell.Offset(-1, 6).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
Next
For x = 0 To 5
Range("A4").Offset(x * 2, 0).EntireRow.Insert
With Range("A4:G4").Offset(x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Font.Size = 10
.Font.Bold = False
.Locked = False
End With
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlLeft)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlRight)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
Weight:=xlThick, ColorIndex:=xlAutomatic
Next
If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
.Resize(2, 8).EntireRow.Delete
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
MyErrorTrap:
MsgBox "You may not have entered your Month and Year correctly." _
& Chr(13) & "Spell the Month correctly" _
& " (or use 3 letter abbreviation)" _
& Chr(13) & "and 4 digits for the Year"
MyInput = InputBox("Type in Month and year for Calendar")
If MyInput = "" Then Exit Sub
Resume
End Sub
3. Στη συνέχεια κάντε κλικ στο κουμπί τρέξιμο πατήστε το κουμπί F5 κλειδί για την εκτέλεση της εφαρμογής. Τώρα θα εμφανιστεί ένα πλαίσιο προτροπής, μπορείτε να εισαγάγετε τον μήνα και το έτος στο κενό πλαίσιο.
Αποτέλεσμα
Σχετικά Άρθρα
Πώς να δημιουργήσετε ένα ημερολόγιο αναπτυσσόμενης λίστας (εργαλείο επιλογής ημερομηνιών) στο Excel;
Με το αναπτυσσόμενο ημερολόγιο στο φύλλο εργασίας του Excel, μπορείτε εύκολα να επιλέξετε μια συγκεκριμένη ημερομηνία από αυτό χωρίς να πληκτρολογήσετε με μη αυτόματο τρόπο. Αυτό το σεμινάριο σας δείχνει πώς να δημιουργήσετε ένα ημερολόγιο στο φύλλο εργασίας του Excel χρησιμοποιώντας το στοιχείο ελέγχου ActiveX.
Πώς να εμφανίσετε ένα ημερολόγιο όταν κάνετε κλικ σε ένα συγκεκριμένο κελί στο Excel;
Αυτό το άρθρο μιλάει για την εμφάνιση ενός ημερολογίου όταν κάνετε κλικ σε κελιά σε ένα συγκεκριμένο εύρος και στη συνέχεια εισάγετε αυτόματα την ημερομηνία στο επιλεγμένο κελί μετά την επιλογή της ημερομηνίας στο ημερολόγιο.
Πώς να δημιουργήσετε ραντεβού από το φύλλο Excel στο ημερολόγιο του Outlook;
Σε ορισμένες περιπτώσεις , ίσως χρειαστεί να δημιουργήσετε συναντήσεις στο ημερολόγιο του Outlook, αλλά έχετε προσπαθήσει ποτέ να παραθέσετε συναντήσεις στο φύλλο εργασίας του Excel και, στη συνέχεια, να τις εισαγάγετε στο ημερολόγιο του Outlook, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης;
Πώς να δημιουργήσετε ένα δυναμικό μηνιαίο ημερολόγιο στο Excel;
Αυτό το άρθρο θα σας δείξει λεπτομερώς τη μέθοδο δημιουργίας ενός δυναμικού μηνιαίου ημερολογίου στο Excel.
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Kutools για Excel - Σας βοηθά να ξεχωρίζετε από το πλήθος
Το Kutools για το Excel διαθέτει πάνω από 300 δυνατότητες, Διασφάλιση ότι αυτό που χρειάζεστε είναι μόνο ένα κλικ μακριά...
Καρτέλα Office - Ενεργοποίηση ανάγνωσης με καρτέλες και επεξεργασία στο Microsoft Office (συμπεριλάβετε το Excel)
- Ένα δευτερόλεπτο για εναλλαγή μεταξύ δεκάδων ανοιχτών εγγράφων!
- Μειώστε εκατοντάδες κλικ ποντικιού για εσάς καθημερινά, πείτε αντίο στο χέρι του ποντικιού.
- Αυξάνει την παραγωγικότητά σας κατά 50% κατά την προβολή και την επεξεργασία πολλών εγγράφων.
- Φέρνει αποτελεσματικές καρτέλες στο Office (συμπεριλαμβανομένου του Excel), όπως ακριβώς το Chrome, το Edge και το Firefox.