Как да създадете календар в Excel?
Календарът на Excel ви помага да следите важни събития, като например кога някой започва нова работа или когато нещо трябва да бъде доставено. Това прави виждането на тези дати лесно и ясно. В това ръководство ще ви покажа как да правите както месечни, така и годишни календари в Excel. Ще разгледаме използването на шаблони за бърза настройка и също как да създадем такъв от нулата за тези, които искат повече контрол. По този начин можете да останете организирани, независимо дали става въпрос за работа или лични планове.
Създайте годишен календар с помощта на Excel Calendar Templates
Бързо създайте месечен или годишен календар с Kutools за Excel
Създайте годишен календар с помощта на Excel Calendar Templates
С този метод трябва да се уверите, че вашият компютър е свързан към мрежата, за да можете да изтеглите Шаблони за календари.
1. Отидете досие кликнете върху НОВ в левия панел и щракнете върху Календари от Предложени търсения. Вижте екранна снимка:
2. изберете един от шаблоните за календари, които харесвате, щракнете двукратно върху него, за да създадете годишния календар.
Резултат
Бързо създайте месечен или годишен календар с Kutools за Excel
Вечен календар инструмент на kutools за Excel може бързо да създаде персонализиран месечен календар или годишен календар в нова работна книга и всеки месечен календар ще се съдържа в нов работен лист.
След като инсталирате Kutools за Excel, моля, щракнете Kutools плюс > Работен лист > Вечен календар. В изскачащия Вечен календар диалогов прозорец, моля, направете следното:
- За да създадете месечен календар, посочете месеците, през които искате да създадете календара от намляваДа се падащ списък и щракнете върху Създаване на.
- За да създадете годишен календар, посочете годината, през която искате да създадете календара от намлява Да се падащ списък и щракнете върху Създаване на.
Резултат
- Месечен календар:
- Годишен календар:
Създайте месечен календар с VBA код
Със следния VBA код можете бързо да създадете месечен календар. Моля, направете следното:
1, Натиснете Друг + F11 клавиши, за да отворите прозореца на Microsoft Visual Basic за приложения.
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.
Най-добрите инструменти за производителност в офиса
Kutools за Excel - помага ви да се откроите от тълпата
Kutools за Excel разполага с над 300 функции, Гарантираме, че това, от което се нуждаете, е само на един клик разстояние...
Раздел Office - Активиране на четене и редактиране с раздели в Microsoft Office (включително Excel)
- Една секунда за превключване между десетки отворени документи!
- Намалете стотиците кликвания на мишката за вас всеки ден, кажете сбогом на ръката на мишката.
- Увеличава продуктивността ви с 50% при преглеждане и редактиране на множество документи.
- Внася ефективни раздели в Office (включително Excel), точно като Chrome, Edge и Firefox.