Excel'de takvim nasıl oluşturulur?
Bir Excel takvimi, önemli olayları takip etmenize yardımcı olur; örneğin, birinin yeni bir işe başladığı zaman ya da bir şeyin teslim edilmesi gereken zaman gibi. Bu tarihleri görmek kolay ve net hale gelir. Bu kılavuzda, size Excel'de hem aylık hem de yıllık takvimler nasıl oluşturulacağını göstereceğim. Hızlı bir kurulum için şablonları kullanma konusuna bakacağız ve aynı zamanda daha fazla kontrol isteyenler için sıfırdan nasıl oluşturulacağını da inceleyeceğiz. Bu şekilde, iş veya kişisel planlar için düzenli kalabilirsiniz.
Excel Takvim Şablonlarını kullanarak yıllık bir takvim oluşturun
Kutools for Excel ile hızlıca aylık veya yıllık bir takvim oluşturun
Excel Takvim Şablonlarını kullanarak yıllık bir takvim oluşturun
Bu yöntemle, bilgisayarınızın ağ bağlantısının olduğundan emin olmalısınız, böylece Takvim Şablonlarını indirebilirsiniz.
1. Dosya sekmesine gidin, sol bölmedeki Yeni düğmesine tıklayın ve Önerilen Aramalardan Takvimlere tıklayın. Ekran görüntüsüne bakın:
2. Beğendiğiniz takvim şablonlarından birini seçin ve üzerine çift tıklayarak yıllık takvimi oluşturun.
Sonuç
Kutools for Excel ile hızlıca aylık veya yıllık bir takvim oluşturun
Excel için Kutools'un Sürekli Takvim aracı, yeni bir çalışma kitabında özelleştirilmiş bir ay takvimi veya yıl takvimi hızlıca oluşturabilir ve her ay takvimi yeni bir çalışma sayfasında yer alır.
Kutools for Excel'i yükledikten sonra lütfen Kutools Plus > Çalışma Sayfası > Sürekli Takvim'e tıklayın. Açılan Sürekli Takvim iletişim kutusunda, lütfen şu adımları izleyin:
- Aylık bir takvim oluşturmak için, açılır liste üzerinden takvim oluşturmak istediğiniz ayları Belirle ve Oluştur'a tıklayın.
- Yıllık bir takvim oluşturmak için, açılır liste üzerinden takvim oluşturmak istediğiniz yılı Belirle ve Oluştur'a tıklayın.
Sonuç
- Aylık bir takvim:
- Yıllık bir takvim:
VBA kodu ile aylık bir takvim oluşturun
Aşağıdaki VBA kodu ile hızlıca aylık bir takvim oluşturabilirsiniz. Lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Yeni bir pencere açılacaktır. Ekle > Modül'e tıklayın, ardından aşağıdaki kodları modüle girin:
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. Ardından Uygulamayı çalıştırmak için Çalıştır düğmesine tıklayın veya F5 tuşuna basın. Şimdi bir açılır kutu belirecek, boş kutuya ay ve yılı girebilirsiniz.
Sonuç
İlgili makaleler
Excel'de açılır liste takvimi (tarih seçici) nasıl oluşturulur?
Excel çalışma sayfasındaki açılır takvim ile, elle yazmadan belirli bir tarihi kolayca seçebilirsiniz. Bu öğretici, ActiveX Denetimi kullanarak Excel çalışma sayfasında takvim oluşturmayı gösterir.
Excel'de belirli bir hücreye tıklandığında takvim nasıl açılır?
Bu makale, belirli bir aralıktaki hücrelere tıklandığında takvimin açılmasını ve takvimden tarih seçildikten sonra otomatik olarak seçilen hücreye tarih eklenmesini ele almaktadır.
Excel sayfasından Outlook takvimine randevu nasıl oluşturulur?
Bazen Outlook takviminde randevular oluşturmanız gerekebilir, ancak Excel çalışma sayfasında randevuları listelemeyi ve ardından aşağıda gösterilen ekran görüntüsü gibi Outlook takvimine aktarmayı denediniz mi?
Excel'de dinamik aylık takvim nasıl oluşturulur?
Bu makale, Excel'de dinamik aylık takvim oluşturma yöntemini ayrıntılı olarak gösterecektir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel - Kalabalıktan Sıyrılmaya Yardımcı Olur
Kutools for Excel, İhtiyacınız Olan Her Şeyin Tek Tıklama Uzağında Olduğundan Emin Olmak İçin 300'den Fazla Özelliğe Sahiptir...
Office Tab - Microsoft Office'de (Excel dahil) Sekmeli Okuma ve Düzenlemeyi Etkinleştir
- Bir saniyede, onlarca açık belge arasında geçiş yapın!
- Her gün yüzlerce fare tıklamasından kurtulun, fare eline veda edin.
- Birden fazla belgeyi görüntülediğinizde ve düzenlediğinizde üretkenliğinizi %50 artırır.
- Ofis'e (Excel dahil) Chrome, Edge ve Firefox gibi etkili sekmeler getirir.