Note: The other languages of the website are Google-translated. Back to English
English English

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

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

สร้างปฏิทินรายปีโดยดาวน์โหลดเทมเพลตปฏิทิน Excel

สร้างปฏิทินรายเดือนด้วยรหัส VBA

สร้างปฏิทินรายเดือนหรือรายปีอย่างรวดเร็วด้วย Kutools for Excel

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวาสร้างปฏิทินรายปีโดยดาวน์โหลดเทมเพลตปฏิทิน Excel


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

ไปที่ เนื้อไม่มีมันคลิก ใหม่ ในบานหน้าต่างด้านซ้ายแล้วคลิก ปฏิทิน ราคาเริ่มต้นที่ เทมเพลต Office.com. ดูภาพหน้าจอ:

เอกสารสร้างปฏิทิน 1

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

หลังจากดาวน์โหลดเทมเพลตปฏิทินคุณจะได้รับปฏิทินในสมุดงานใหม่


ลูกศรสีฟ้าฟองขวา สร้างปฏิทินรายเดือนด้วยรหัส VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถสร้างปฏิทินรายเดือนได้อย่างรวดเร็ว กรุณาดำเนินการดังต่อไปนี้:

คลิก ผู้พัฒนา > ของ Visual Basicใหม่ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูลและป้อนรหัสต่อไปนี้ในไฟล์ โมดูล:

VBA: สร้างปฏิทินรายเดือนใน Excel

ผู้สร้างปฏิทินย่อย ()
ActiveSheet.Protect DrawingObjects: = False, Contents: = False, _
สถานการณ์: = เท็จ
Application.ScreenUpdating = เท็จ
บนข้อผิดพลาด GoTo MyErrorTrap
ช่วง ("a1: g14") ชัดเจน
MyInput = InputBox ("พิมพ์เดือนและปีสำหรับปฏิทิน")
ถ้า MyInput = "" แล้วออกจาก Sub
StartDay = DateValue (MyInput)
ถ้าวัน (StartDay) <> 1 แล้ว
StartDay = DateValue (เดือน (วันที่เริ่มต้น) & "/ 1 /" & _
ปี (StartDay))
End If
ช่วง ("a1") NumberFormat = "mmmm yyyy"
ด้วย Range ("a1: g1")
.การจัดแนวแนวนอน = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = จริง
.RowHeight = 35
จบด้วย
ด้วย Range ("a2: g2")
.ความกว้างของคอลัมน์ = 11
.VerticalAlignment = xlCenter
.การจัดแนวแนวนอน = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xl แนวนอน
.Font.Size = 12
.Font.Bold = จริง
.RowHeight = 20
จบด้วย
ช่วง ("a2") = "วันอาทิตย์"
ช่วง ("b2") = "วันจันทร์"
ช่วง ("c2") = "วันอังคาร"
ช่วง ("d2") = "วันพุธ"
ช่วง ("e2") = "วันพฤหัสบดี"
ช่วง ("f2") = "วันศุกร์"
ช่วง ("g2") = "วันเสาร์"
ด้วย Range ("a3: g8")
.การจัดแนวแนวนอน = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = จริง
.RowHeight = 21
จบด้วย
ช่วง ("a1") ค่า = Application.Text (MyInput, "mmmm yyyy")
DayofWeek = วันธรรมดา (StartDay)
CurYear = ปี (StartDay)
CurMonth = เดือน (StartDay)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
เลือก Case DayofWeek
1 กรณี
ช่วง ("a3") ค่า = 1
2 กรณี
ช่วง ("b3") ค่า = 1
3 กรณี
ช่วง ("c3") ค่า = 1
4 กรณี
ช่วง ("d3") ค่า = 1
5 กรณี
ช่วง ("e3") ค่า = 1
6 กรณี
ช่วง ("f3") ค่า = 1
7 กรณี
ช่วง ("g3") ค่า = 1
สิ้นสุดการเลือก
สำหรับแต่ละเซลล์ในช่วง ("a3: g8")
RowCell = เซลล์ Row
ColCell = เซลล์คอลัมน์
ถ้า cell.Column = 1 และ cell.Row = 3 แล้ว
ElseIf เซลล์คอลัมน์ <> 1 แล้ว
ถ้า cell.Offset (0, -1) .Value> = 1 Then
cell.Value = cell.Offset (0, -1) .Value + 1
ถ้า cell.Value> (FinalDay - StartDay) แล้ว
cell.Value = ""
ออกสำหรับ
End If
End If
ElseIf cell.Row> 3 และ cell.Column = 1 Then
cell.Value = cell.Offset (-1, 6) .Value + 1
ถ้า cell.Value> (FinalDay - StartDay) แล้ว
cell.Value = ""
ออกสำหรับ
End If
End If
ต่อไป
สำหรับ x = 0 ถึง 5
ช่วง ("A4") ออฟเซ็ต (x * 2, 0) .EntireRow.Insert
พร้อม Range ("A4: G4") ออฟเซ็ต (x * 2, 0)
.RowHeight = 65
.การจัดแนวแนวนอน = xlCenter
.VerticalAlignment = xlTop
.WrapText = จริง
.Font.Size = 10
.Font.Bold = เท็จ
.Locked = เท็จ
จบด้วย
ด้วย Range ("A3") ออฟเซ็ต (x * 2, 0) .Resize (2, _
7). พรมแดน (xlLeft)
. น้ำหนัก = xlThick
.ColorIndex = xl อัตโนมัติ
จบด้วย
ด้วย Range ("A3") ออฟเซ็ต (x * 2, 0) .Resize (2, _
7). พรมแดน (xlRight)
. น้ำหนัก = xlThick
.ColorIndex = xl อัตโนมัติ
จบด้วย
ช่วง ("A3") ออฟเซ็ต (x * 2, 0) .Resize (2, 7) .BorderAround _
น้ำหนัก: = xlThick, ColorIndex: = xlAutomatic
ต่อไป
ถ้า Range ("A13") ค่า = "" แล้วก็ Range ("A13") ออฟเซ็ต (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = เท็จ
ActiveSheet.Protect DrawingObjects: = True, Contents: = True, _
สถานการณ์: = จริง
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = จริง
ออกจาก Sub
ข้อผิดพลาดของฉันกับดัก:
MsgBox "คุณอาจป้อนเดือนและปีไม่ถูกต้อง" _
& Chr (13) & "สะกดเดือนให้ถูก" _
& "(หรือใช้อักษรย่อ 3 ตัว)" _
& Chr (13) & "และ 4 หลักสำหรับปี"
MyInput = InputBox ("พิมพ์เดือนและปีสำหรับปฏิทิน")
ถ้า MyInput = "" แล้วออกจาก Sub
เรซูเม่
ย่อยสิ้นสุด

จากนั้นคลิก doc-callendar-2 เพื่อเรียกใช้รหัสและกล่องพร้อมต์จะปรากฏขึ้นคุณสามารถป้อนเดือนและปีในช่องว่างได้ ดูภาพหน้าจอ:

เอกสารสร้างปฏิทิน 2

จากนั้นคลิก OK. และมีการสร้างปฏิทินรายเดือนใหม่ในแผ่นงานปัจจุบัน ดูภาพหน้าจอ:

เอกสารสร้างปฏิทิน 3

รหัส VBA เป็นเรื่องยากสำหรับพวกเราส่วนใหญ่และด้วยรหัส VBA นี้คุณสามารถสร้างปฏิทินรายเดือนได้หากคุณต้องการสร้างปฏิทินรายปีอย่างรวดเร็วและง่ายดายมีวิธีง่ายๆอื่น ๆ ในการทำเช่นนี้หรือไม่?


ลูกศรสีฟ้าฟองขวา สร้างปฏิทินรายเดือนหรือรายปีอย่างรวดเร็วด้วย Kutools for Excel

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

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

หากคุณได้ติดตั้ง Kutools for Excel แล้วโปรดคลิก Enterprise > เครื่องมือแผ่นงาน > ปฏิทินตลอดไปและใน ปฏิทินตลอดไป กล่องโต้ตอบจะปรากฏขึ้น หากคุณต้องการสร้างปฏิทินรายเดือนในปัจจุบันให้ป้อน 1 ใน จำนวนเดือน แล้วคลิก สร้างบัญชีตัวแทน ปุ่ม. ดูภาพหน้าจอ:

เอกสารสร้างปฏิทิน 4

จากนั้นปฏิทินรายเดือนปัจจุบันจะถูกสร้างขึ้นในสมุดงานใหม่

เอกสารสร้างปฏิทิน 5

และหากคุณต้องการสร้างปฏิทินประจำปี 2012 โปรดป้อนหมายเลข 12 ใน จำนวนเดือน และระบุเดือนแรกเป็น มกราคม 2012 ในบานหน้าต่างด้านซ้าย ดูภาพหน้าจอ:

เอกสารสร้างปฏิทิน 6

จากนั้นคลิก สร้างบัญชีตัวแทน มันจะสร้างปฏิทินปี 2012 ในสมุดงานใหม่

เอกสารสร้างปฏิทิน 7


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (3)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
งานที่ยอดเยี่ยม ขอบคุณหลายพันล้านสำหรับการออกแบบเทมเพลตปฏิทิน Excel ที่ยอดเยี่ยมของคุณ :ฮ่าๆ:
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันจะเริ่มต้นในวันจันทร์แทนได้อย่างไร ขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณพวกคุณที่ช่วย อยากให้มีปฏิทินประจำปีที่เข้ารายการได้ค่ะ หากคุณสามารถช่วยได้จะดีมาก
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ