Skip to main content

Excel'de takvim nasıl oluşturulur?

Author: Tech Support Last Modified: 2025-06-10

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.

create a calendar

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

VBA kodu ile aylı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:

click New button, and click Calendars

2. Beğendiğiniz takvim şablonlarından birini seçin ve üzerine çift tıklayarak yıllık takvimi oluşturun.

 select one of the calendar templates

Sonuç

the calendar is inserted


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, karmaşık görevleri basitleştirmek için 300'den fazla gelişmiş özellik sunar ve yaratıcılığı ve verimliliği artırır. Yapay zeka yetenekleriyle entegre olarak, Kutools görevleri hassas bir şekilde otomatikleştirir ve veri yönetimi işlerini kolaylaştırır. Kutools for Excel hakkında detaylı bilgi...  Ücretsiz deneme...

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.

specify the months to create a monthly calendar

  • 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.

 specify the year  create a yearly calendar

Sonuç
  • Aylık bir takvim:

 A monthly calendar is inserted

  • Yıllık bir takvim:

A yearly calendar is inserted

İpucu: Bu özelliği kullanmak için önce Kutools for Excel'i yüklemelisiniz, lütfen tıklayın ve şimdi 30 günlük ücretsiz deneme sürümünü indirin .

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.

 input the month and the year in the textbox

Sonuç

 a monthly calendar is inserted