สร้างปฏิทินรายเดือนใน Excel: 3 วิธีที่พิสูจน์แล้วสำหรับการจัดตารางเวลาอย่างสะดวกสบาย

Excel เป็นเครื่องมือที่ยอดเยี่ยมสำหรับทำให้การคำนวณและเทมเพลตต่างๆ เป็นอัตโนมัติ คุณสามารถสร้างปฏิทินรายเดือนหลายประเภทผ่าน Excel หากคุณกำลังมองหาวิธีการทำ คุณมาถูกที่แล้ว ในบทความนี้ จะแสดง 3 วิธีที่มีประสิทธิภาพในการสร้าง ปฏิทินรายเดือน ใน Excel

คุณสามารถดาวน์โหลดสมุดงานฝึกฝนของเราได้ที่นี่โดยฟรี!

3 วิธีที่มีประสิทธิภาพในการสร้างปฏิทินรายเดือนใน Excel

1. สร้างปฏิทินรายเดือนจากเทมเพลตของ Excel

Excel เองมีเทมเพลตสำเร็จรูปสำหรับปฏิทินบางอย่าง คุณสามารถสร้างปฏิทินรายเดือนจากเทมเพลตเหล่านั้นได้โดยทำตามวิธีด้านล่าง

📌 ขั้นตอน:

• ขั้นแรกและสำคัญที่สุด ไปที่แท็บ File

• จากนั้น เลือกตัวเลือก New จากแท็บ File ที่ขยายออกมา
• ต่อไป จะมีหน้าต่าง New ปรากฏขึ้น
• ตามด้วย พิมพ์ calendar ใน กล่องค้นหา และคลิกที่ไอคอน Start searching

• ผลลัพธ์ เทมเพลตที่พร้อมใช้งานจะมาเป็นคำแนะนำให้คุณ

• ตอนนี้ เลือกเทมเพลตที่คุณชอบ และคลิกที่ปุ่ม Create

ผลลัพธ์ คุณจะเห็นปฏิทินปรากฏในหน้าต่าง Excel ใหม่ตามเทมเพลต สำหรับเทมเพลตที่เลือก ผลลัพธ์จะเป็นดังนี้

อ่านเพิ่มเติม: วิธีสร้างปฏิทินใน Excel โดยไม่ใช้เทมเพลต (2 ตัวอย่าง)

2. สร้างปฏิทินรายเดือนแบบกำหนดเองใน Excel 2003 | 2007 | 2010 | 2013 | 2016 และเวอร์ชันใหม่กว่า

ตอนนี้ อาจเกิดขึ้นว่าคุณไม่ชอบเทมเพลตสำเร็จรูปใดๆ แต่ต้องการสร้างปฏิทินรายเดือนของตัวเองตามใจชอบ ใน هذا sentido คุณสามารถสร้างปฏิทินรายเดือนใน Excel ได้โดยทำตามขั้นตอนด้านล่าง

📌 ขั้นตอน:

• ขั้นแรก สร้างส่วนหัวสำหรับเดือนของคุณ และเลือก 7 แถวและ 7 คอลัมน์

• จากนั้น เมื่อเลือกแล้ว คลิกที่ไอคอน All Borders จากแท็บ Home

• ผลลัพธ์ เซลล์ทั้งหมดจะมีเส้นขอบครบ
• ต่อไป ที่แถวแรกที่เลือก ให้เขียนชื่อวันในสัปดาห์และจัดรูปแบบตามต้องการ

• ตอนนี้ เลือกอีก 6 แถวและ 7 คอลัมน์ >> ไปที่แท็บ Home >> กลุ่ม Cells >> เครื่องมือ Format >> ตัวเลือก Row Height…

• ผลลัพธ์ จะมีหน้าต่าง Row Height ปรากฏขึ้น
• ใส่ค่า 40 ในกล่องข้อความ Row height: และคลิกปุ่ม OK

• จากนั้น บนการเลือกก่อนหน้า ไปที่แท็บ Home >> กลุ่ม Cells >> เครื่องมือ Format >> ตัวเลือก Column Width…

• ผลลัพธ์ จะมีหน้าต่าง Column Width ปรากฏขึ้น
• จากนั้น ใส่ค่าเป็น 12 ในกล่องข้อความ Column width: และคลิกปุ่ม OK

• ตอนนี้ บนการเลือกก่อนหน้า คลิกขวา บนเมาส์ และเลือกตัวเลือก Format Cells… จากเมนูบริบท

• ในขณะนี้ จะมีหน้าต่าง Format Cells ปรากฏขึ้น
• ต่อไป ไปที่แท็บ Alignment >> เลือกตัวเลือก Right (Indent) ในรายการตัวเลือก Horizontal: >> เลือกตัวเลือก Top ในรายการตัวเลือก Vertical: >> คลิกปุ่ม OK

ดังนั้น การจัดรูปแบบปฏิทินของคุณพร้อมสมบูรณ์แล้ว ตอนนี้ ค้นหาวันแรกของเดือนถัดไปในปีถัดไปจาก Google และใส่ค่าตามวันในสัปดาห์ตามลำดับ สุดท้าย ปฏิทินรายเดือนควรจะมีลักษณะดังนี้

อ่านเพิ่มเติม: วิธีสร้างปฏิทินแบบโต้ตอบใน Excel (2 วิธีง่ายๆ)

3. สร้างปฏิทินรายเดือนโดยใช้ VBA

อีกวิธีหนึ่งในการสร้างปฏิทินรายเดือนคือการใช้โค้ด VBA คุณสามารถทำตามขั้นตอนด้านล่างเพื่อทำสิ่งนี้ได้

📌 ขั้นตอน:

• จากพื้นฐาน สร้างเวิร์กชีตใหม่และไปที่แท็บ Developer >> เครื่องมือ Visual Basic

• ผลลัพธ์ จะมีหน้าต่าง Microsoft Visual Basic for Applications ปรากฏขึ้น
• ตามด้วย ไปที่แท็บ Insert >> เลือกตัวเลือก Module

• ผลลัพธ์ โมดูลใหม่ชื่อ Module1 ถูกสร้างขึ้น

• ต่อไป ดับเบิลคลิก ที่ Module1 และเขียนโค้ด VBA ด้านล่างในหน้าต่างโค้ด

โค้ด VBA นี้มาจาก docs.microsoft.com

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 months and years") 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

• จากนั้น กด Ctrl+S
• ในขณะนี้ จะมีกล่องโต้ตอบ Microsoft Excel ปรากฏขึ้น คลิกที่ปุ่ม No ที่นี่

• ผลลัพธ์ จะมีกล่องโต้ตอบ Save As ปรากฏขึ้น
• ต่อไป เลือกตัวเลือก Save as type: เป็น .xlsm และคลิกปุ่ม Save

• ตอนนี้ ปิดหน้าต่างโค้ดและไปที่แท็บ Developer >> เครื่องมือ Macros

• ผลลัพธ์ จะมีหน้าต่าง Macro ปรากฏขึ้น
• ตามด้วย เลือกแมโคร CalendarMaker และคลิกที่ปุ่ม Run

• ผลลัพธ์ จะมีกล่องโต้ตอบ Microsoft Excel ปรากฏขึ้น
• ที่นี่ พิมพ์ 3 ตัวอักษรแรกของเดือนและ 4 หลักของปี
• สุดท้าย คลิกที่ปุ่ม OK

ดังนั้น คุณจะเห็นปฏิทินของเดือนถัดไปถูกสร้างในเวิร์กชีตของคุณ และผลลัพธ์จะมีลักษณะดังนี้

สร้างปฏิทินแบบโต้ตอบ/ไดนามิกใน Excel ด้วยสูตร

ตอนนี้ หากคุณต้องการสร้างปฏิทินแบบโต้ตอบ/ไดนามิกใน Excel ด้วยสูตร คุณต้องทำงานเพิ่มเติมหลายขั้นตอน โปรดทำตามขั้นตอนด้านล่างอย่างระมัดระวังเพื่อให้บรรลุเป้าหมายนี้

📌 ขั้นตอน:

• ขั้นแรก สร้างตารางช่วยเหลือ 2 ตาราง หนึ่งสำหรับรายการวันหยุด และอีกหนึ่งสำหรับรายการชื่อเดือน

• ตอนนี้ สร้างเทมเพลตปฏิทินรายเดือนแบบกำหนดเองตามต้องการ
• ต่อไป เพื่อวัตถุประสงค์แบบไดนามิก เราต้องการทำให้ชื่อเดือนเป็นอัตโนมัติ
• เพื่อทำเช่นนี้ ให้เลือกเซลล์ H4 >> ไปที่แท็บ Data >> กลุ่ม Data Tools >> เครื่องมือ Data Validation >> ตัวเลือก Data Validation…

• ต่อมา จะมีหน้าต่าง Data Validation ปรากฏขึ้น
• จากนั้น ไปที่แท็บ Settings ที่นี่ >> เลือกตัวเลือก List จากรายการตัวเลือก Allow: >> อ้างอิงเซลล์ E5:E16 ที่กล่องข้อความ Source: >> คลิกปุ่ม OK

• ผลลัพธ์ คุณจะเห็นว่ามีรายการดรอปดาวน์ในเซลล์ H4 และคุณสามารถเลือกเดือนได้โดยการคลิก

• หลังจากเลือกเดือนเป็น Jan ให้คลิกที่เซลล์ B6 และใส่สูตรต่อไปนี้

• ต่อมา กดปุ่ม Enter

• ดังนั้น คุณจะได้วันที่ทั้งหมดตามวันในสัปดาห์สำหรับเดือนถัดไปอย่างถูกต้อง

• แต่ ค่าเหล่านี้ไม่ได้อยู่ในรูปแบบที่เหมาะสม
• เพื่อแก้ไข ให้ คลิกขวา ที่การเลือกทั้งหมด B6:H11 และเลือกตัวเลือก Format Cells… จากเมนูบริบท

• ผลลัพธ์ จะมีกล่องโต้ตอบ Format Cells ปรากฏขึ้น
• ไปที่แท็บ Number ที่นี่ >> เลือกตัวเลือก Custom จากบานหน้าต่าง Category: >> เขียน dd ในกล่องข้อความ Type: >> คลิกปุ่ม OK

• ดังนั้น วันที่ปฏิทินของคุณจัดรูปแบบถูกต้องแล้ว และคุณสามารถเห็นปฏิทินเต็มรูปแบบสำหรับเดือนถัดไป

• ตอนนี้ เพื่อทำเครื่องหมายวันหยุดสุดสัปดาห์ให้แตกต่างกัน ให้เลือกเซลล์วันหยุดสุดสัปดาห์ >> ไปที่แท็บ Home >> กลุ่ม Font >> ไอคอน Fill Color >> เลือกสี Orange, Accent 2, Lighter 40%

• ตอนนี้ เพื่อทำเครื่องหมายวันหยุด ให้เลือกเซลล์ B6:H11 >> ไปที่แท็บ Home >> เครื่องมือ Conditional Formatting >> ตัวเลือก New Rule…

• ผลลัพธ์ จะมีหน้าต่าง Edit Formatting Rule ปรากฏขึ้น
• ตามด้วย เลือกตัวเลือกสุดท้ายจากรายการตัวเลือก Select a Rule Type: >> เขียนสูตรด้านล่างในแถบสูตร Format values where this formula is true: >> คลิกที่ตัวเลือก Format…

• ต่อไป ไปที่แท็บ Fill จากหน้าต่างที่ปรากฏ >> เลือกสี red >> คลิกปุ่ม OK

• ผลลัพธ์ หน้าต่าง Edit Formatting Rule จะปรากฏอีกครั้งพร้อมตัวอย่าง คลิกปุ่ม OK

ดังนั้น คุณจะได้ปฏิทินรายเดือนแบบโต้ตอบ โดยวันหยุดสุดสัปดาห์แสดงด้วยสีต่างกัน และวันหยุดก็แสดงด้วยสีต่างกันเช่นกัน คุณสามารถเปลี่ยนเดือนได้จากดรอปดาวน์ในเซลล์ H4 และดังนั้น วันในสัปดาห์ วันหยุดสุดสัปดาห์ และวันหยุด ก็จะเปลี่ยนแปลงแบบไดนามิก

สร้างปฏิทินรายปีใน Excel

ตอนนี้ หากคุณต้องการ สร้างปฏิทินรายปีใน Excel คุณสามารถทำตามขั้นตอนด้านล่างได้

📌 ขั้นตอน:

• จากพื้นฐาน สร้างเทมเพลตสำหรับวันและเดือนตามต้องการของคุณเอง

• จากนั้น คลิกที่เซลล์ B6 และใส่สูตรต่อไปนี้

• ต่อมา กดปุ่ม Enter

• ผลลัพธ์ คุณจะเห็นว่าวันจะถูกตั้งค่าตามวันเฉพาะของเดือนถัดไป
• แต่ เนื่องจากปัญหาพื้นที่และการจัดรูปแบบ อาจแสดง ### บางครั้ง
• เพื่อแก้ไข ให้เลือกชุดข้อมูลของทั้งเดือนและ คลิกขวา ที่เซลล์
• ตามด้วย เลือกตัวเลือก Format Cells…

• ผลลัพธ์ จะมีหน้าต่าง Format Cells ปรากฏขึ้น
• ตอนนี้ ไปที่แท็บ Number >> เลือกตัวเลือก Custom จากบานหน้าต่าง Category: >> เขียน dd ในกล่องข้อความ Type: >> คลิกปุ่ม OK

• ทำซ้ำขั้นตอนเหล่านี้สำหรับแต่ละเดือนของปีถัดไป
• ดังนั้น คุณจะได้วันที่ตามวันในสัปดาห์สำหรับทั้งปี

• ตอนนี้ เพื่อทำเครื่องหมายวันหยุดสุดสัปดาห์ ให้เลือกเซลล์วันหยุดสุดสัปดาห์ >> ไปที่แท็บ Home >> กลุ่ม Font >> ไอคอน Fill Color >> เลือกสี Orange, Accent 2, Lighter 40%

• จากนั้น สำหรับการทำเครื่องหมายวันหยุดเดือนมกราคม ให้เลือกวันทั้งหมดของเดือน >> ไปที่แท็บ Home >> เครื่องมือ Conditional Formatting >> เลือก New Rule…

• ผลลัพธ์ จะมีหน้าต่าง Edit Formatting Rule ปรากฏขึ้น
• ตามด้วย เลือกตัวเลือกสุดท้ายจากตัวเลือก Select a Rule Type: >> ใส่สูตรต่อไปนี้ในกล่องข้อความ Format values where this formula is true: >> คลิกที่ปุ่ม Format…

• จากนั้น ไปที่แท็บ Fill >> เลือกสี Red >> คลิกปุ่ม OK

• ผลลัพธ์ หน้าต่าง Edit Formatting Rule จะปรากฏอีกครั้งพร้อมตัวอย่าง คลิกปุ่ม OK

ทำซ้ำขั้นตอนเหล่านี้สำหรับเดือนอื่นๆ ทั้งหมดโดยใช้สูตรเดียวกันและจัดรูปแบบแบบไดนามิก และดังนั้น คุณจะได้ปฏิทินรายปีแบบไดนามิกของคุณ

อ่านเพิ่มเติม: วิธีสร้างปฏิทินรายสัปดาห์ใน Excel (3 วิธีที่เหมาะสม)

วิธีสร้างตารางเวลารายเดือนใน Excel

คุณยังสามารถสร้างตารางเวลารายเดือนใน Excel ได้อย่างง่ายดาย เพื่อทำเช่นนี้ โปรดทำตามขั้นตอนด้านล่างอย่างระมัดระวัง

📌 ขั้นตอน:

• เริ่มต้น ไปที่แท็บ File

• จากนั้น เลือกตัวเลือก New จากแท็บ File ที่ขยายออกมา >> เขียน Monthly Schedule ในกล่องค้นหา >> คลิกที่ไอคอน Start searching

• ผลลัพธ์ เทมเพลตหลายตัวจะปรากฏขึ้น
• ตามด้วย คลิกที่เทมเพลต 12-Month Calendar

• จากนั้น คลิกที่ปุ่ม Create

ผลลัพธ์ ไฟล์ Excel ใหม่จะถูกสร้าง และดังนั้น คุณจะได้ตารางเวลารายเดือนที่ต้องการใน Excel

สรุป

ดังนั้น ในบทความนี้ ได้แสดงวิธีการสร้างปฏิทินรายเดือนใน Excel แล้ว ขอแนะนำให้คุณอ่านบทความทั้งหมดอย่างละเอียดและนำความรู้ไปประยุกต์ใช้ตามความต้องการ คุณยังสามารถดาวน์โหลดสมุดงานฟรีของเราเพื่อฝึกฝนได้ หวังว่าบทความนี้จะเป็นประโยชน์และให้ข้อมูลที่มีค่า หากคุณมีคำถามเพิ่มเติมหรือคำแนะนำ โปรดแสดงความคิดเห็นที่นี่ได้เลย

และ เยี่ยมชม ExcelDemy เพื่อเรียนรู้สิ่งต่างๆ เกี่ยวกับ Excel มากขึ้น! ขอให้มีวันที่ดี!

บทความที่เกี่ยวข้อง

• วิธีสร้างปฏิทินว่างใน Excel (ดาวน์โหลดเทมเพลตฟรี)