Excel'de bir takvim nasıl oluşturulur?
Excel takvimi, birisinin yeni bir işe başlaması veya bir şeyin teslim edilmesi gerektiği gibi önemli olayları takip etmenize yardımcı olur. Bu tarihlerin görülmesini kolay ve net hale getirir. Bu kılavuzda size Excel'de hem aylık hem de yıllık takvimlerin nasıl oluşturulacağını göstereceğim. Hızlı kurulum için şablonları kullanmaya ve daha fazla kontrol isteyenler için sıfırdan nasıl şablon oluşturulacağına bakacağız. Bu şekilde, ister iş ister kişisel planlarınız olsun, düzenli kalabilirsiniz.
Excel Takvim Şablonlarını kullanarak yıllık takvim oluşturma
Kutools for Excel ile hızlı bir şekilde aylık veya yıllık takvim oluşturun
Excel Takvim Şablonlarını kullanarak yıllık takvim oluşturma
Bu yöntemle, bilgisayarınızın ağa bağlandığından emin olmanız gerekir, böylece Takvim Şablonları.
1. Gidin fileto sekmesini tıklayın yeni sol bölmedeki düğmesine tıklayın ve Takvimler itibaren Önerilen aramalar. Ekran görüntüsüne bakın:
2. Beğendiğiniz takvim şablonlarından birini seçin ve yıllık takvimi oluşturmak için üzerine çift tıklayın.
Sonuç
Kutools for Excel ile hızlı bir şekilde aylık veya yıllık takvim oluşturun
Perpetual Calendar aracı Excel için kutools yeni bir çalışma kitabında hızlı bir şekilde özelleştirilmiş bir ay takvimi veya yıl takvimi oluşturabilir ve her ay takvimi yeni bir çalışma sayfasında yer alır.
Kutools for Excel'i kurduktan sonra lütfen tıklayın Kutools Artı > Çalışma Sayfası > Perpetual Calendar. Açılan pencerede Perpetual Calendar iletişim kutusu, lütfen aşağıdaki işlemleri yapın:
- Aylık takvim oluşturmak için takvimi oluşturmak istediğiniz ayları Konum veiçin açılır listeyi tıklayın ve tıklayın oluşturmak.
- Yıllık takvim oluşturmak için takvimi oluşturmak istediğiniz yılı Konum ve için açılır listeyi tıklayın ve tıklayın oluşturmak.
Sonuç
- Aylık takvim:
- Yıllık takvim:
VBA kodu ile aylık takvim oluşturun
Aşağıdaki VBA kodu ile hızlı bir şekilde aylık takvim oluşturabilirsiniz. Lütfen aşağıdaki işlemleri yapın:
1. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.
2. Yeni bir pencere açılacaktır. Tıklayın Ekle > modül, ardından modüle aşağıdaki kodları 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. Sonra tıklayın koşmak tuşuna basın veya tuşuna basın. F5 uygulamayı çalıştırmak için anahtar. Şimdi bir bilgi kutusu açılacaktır, boş kutuya ayı ve yılı girebilirsiniz.
Sonuç
İlgili Makaleler
Excel'de bir açılır liste takvimi (tarih seçici) nasıl oluşturulur?
Excel çalışma sayfasındaki açılır takvim ile, manuel olarak yazmadan belirli bir tarihi buradan kolayca seçebilirsiniz. Bu öğretici, ActiveX Denetimini kullanarak Excel çalışma sayfasında nasıl takvim oluşturacağınızı gösterir.
Excel'de belirli bir hücreye tıklarken bir takvim nasıl açılır?
Bu makale, belirli bir aralıktaki hücrelere tıklandığında bir takvimin açılmasından, ardından takvimde tarih seçildikten sonra seçilen hücreye tarihin otomatik olarak eklenmesinden bahsediyor.
Excel sayfasından Outlook takvimine randevu nasıl oluşturulur?
Bazen , Outlook takviminde randevular oluşturmanız gerekebilir, ancak randevuları Excel çalışma sayfasında listelemeyi ve ardından aşağıda gösterilen ekran görüntüsü gibi Outlook takvimine aktarmayı denediniz mi?
Excel'de dinamik bir aylık takvim nasıl oluşturulur?
Bu makale size Excel'de dinamik bir aylık takvim oluşturma yöntemini ayrıntılı olarak gösterecektir.
En İyi Ofis Üretkenliği Araçları
Kutools for Excel - Kalabalıktan Ayrılmanıza Yardımcı Olur
Kutools for Excel 300'den Fazla Özelliklere Sahiptir, İhtiyacınız Olanın Bir Tık Uzağınızda Olmasını Sağlıyoruz...
Office Sekmesi - Microsoft Office'te Sekmeli Okuma ve Düzenlemeyi Etkinleştir (Excel dahil)
- Düzinelerce açık belge arasında geçiş yapmak için bir saniye!
- Her gün yüzlerce fare tıklamasını azaltın, fare eline veda edin.
- Birden çok belgeyi görüntülerken ve düzenlerken üretkenliğinizi% 50 artırır.
- Tıpkı Chrome, Edge ve Firefox gibi Verimli Sekmeleri Office'e (Excel dahil) getirir.