สร้างนาฬิกาアナログ (Analog Clock) แบบเรียลไทม์ใน Excel: คู่มือทีละขั้นตอน

ขั้นตอนที่ 1: ตั้งค่าชั่วโมง นาที และวินาที

• คลิกที่เซลล์ C5 แล้วใส่สูตร:

=IF((HOUR(NOW())+C10/60+C15/3600)>12,(HOUR(NOW())+C10/60+C15/3600)-12,HOUR(NOW())+C10/60+C15/3600)

• กด Enter
• จะได้ค่าที่ควบคุมเข็มชั่วโมงของนาฬิกา

• ใส่ Hour Hand Width (ความกว้างเข็มชั่วโมง) ในเซลล์ C6
• เลือกเซลล์ C7 แล้วใส่สูตร:

• จะได้ช่องว่างสำหรับชั่วโมง

• เลือกเซลล์ C10 แล้วใส่สูตร:

• กด Enter
• จะได้ค่าสำหรับนาทีในนาฬิกา

• ใส่ Minute Hand Width ในเซลล์ C11
• เลือกเซลล์ C12 แล้วใส่สูตร:

• จะได้ช่องว่างสำหรับนาที

• เลือกเซลล์ C15 แล้วใส่สูตร:

• กด Enter

• จะได้ค่าควบคุมวินาที
• ตั้งค่า Second Hand Width ในเซลล์ C16
• เลือกเซลล์ C17 แล้วใส่สูตร:

• จะได้ค่าควบคุมเข็มวินาที

อ่านเพิ่มเติม: วิธีสร้างนาฬิกาดิจิทัลใน Excel

ขั้นตอนที่ 2: สร้างกรอบนาฬิกา

• ไปที่แท็บ Insert
• เลือก Doughnut Chart จาก Insert Pie or Doughnut Chart
• จะได้กล่องว่างบนจอภาพ

• คลิกขวาที่กล่อง เลือก Select Data
• กล่องโต้ตอบจะเปิดขึ้น

• คลิก Add ในกล่องโต้ตอบ

• ในกล่อง Edit Series ใส่ค่า Series values: ดังนี้:

={1,1,1,1,1,1,1,1,1,1,1,1}

• คลิก OK
• จะเพิ่มชุดข้อมูลลงในแผนภูมิ ตำแหน่งของ เข็มชั่วโมง

• คลิก Add อีกครั้ง

• ใส่ค่าเดียวกันอีกครั้งสำหรับ เข็มนาที
• คลิก OK
• จะเพิ่มชุดข้อมูลอีกชุด

• คลิก Add อีกครั้ง

• ใส่ {1} เป็น Series value เพื่อรูปร่าง เข็มวินาที
• คลิก OK

• คลิก OK เพื่อออกจาก Select Data Source

• จะได้แผนภูมิ Doughnut
• คลิกที่แผนภูมิ
• ไปที่ Format
• ตั้ง No Outline จาก Shape Outline

• ปิด Chart Title และ Legend โดยคลิกเครื่องหมายบวกมุมขวาบน

• เลือกชุดข้อมูลใดชุดหนึ่ง คลิกขวา
• เลือก Format Data Series

• ตั้ง Doughnut Hole Size เป็น 60% ในแท็บ Format Data Series

• คลิกขวาที่ชุดข้อมูลที่ 2 ในแผนภูมิ
• เลือก Format Data Series

• ตั้ง Angle of first slice เป็น 15%

• เปิด Data Labels สำหรับชุดข้อมูลที่ 2

• พิมพ์ 12 ในป้ายกำกับที่อยู่กลางบนสุด

• ใส่ตัวเลขที่เหลือตามลำดับของ นาฬิกาแบบอนาล็อก

• ลบสีเติมของชุดข้อมูลที่ 2: ไปที่ Format คลิก No Fill จาก Shape Fill

• เปิด Data Labels ของชุดข้อมูลที่ 1

• เลือกเซลล์ D16
• ไปที่แท็บ Insert
• เลือก Symbol จาก Symbols

• ในกล่อง Symbol ใส่ 25CF เป็น Character code
• กด Insert

• ตัวอักษรจะถูกแทรกในชีท
• คัดลอกตัวอักษร์ด้วย Ctrl+C

• วางในป้ายกำกับของชุดข้อมูลที่ 1 ด้วย Ctrl+V

• ทำซ้ำสำหรับป้ายกำกับอื่นๆ

• ปิดสีเติมของชุดข้อมูลที่ 1

• ได้กรอบ นาฬิกาแบบอนาล็อก แล้ว

อ่านเพิ่มเติม: วิธีสร้างแผนภูมิ Clock ใน Excel

ขั้นตอนที่ 3: ใส่เข็มนาฬิกา

• เลือกช่วง C5:C7
• ไปที่แท็บ Insert
• เลือก Pie Chart จาก Insert Pie or Doughnut Chart

• จะได้กล่อง Pie Chart
• ปิด Chart Title และ Legend

• เปลี่ยนขอบของชุดข้อมูล 1 เป็น No Outline

• ตั้งสีเติมเป็น No Fill

• ทำซ้ำสำหรับชุดข้อมูล 1
• จะได้ส่วนของ Hour Hand Width

อ่านเพิ่มเติม: วิธีสร้างนาฬิกาทำงานใน Excel

ขั้นตอนที่ 4: จัดตำแหน่งเข็มนาฬิกา

• ตั้งสีพื้นหลังของ Pie Chart ทั้งหมดเป็น No Fill

• ปรับขนาด Pie Chart ให้ Hour Hand พอดีกับกรอบนาฬิกา
• ปิด Chart Title และ Legend ของ Doughnut Chart

• แทรก Pie Chart สำหรับข้อมูลเข็มนาทีและเข็มวินาที
• ตั้งสีเข็มแต่ละอันให้ต่างกัน
• ตั้งขนาดเข็มให้ต่างกัน
• จัดตำแหน่งให้อยู่ในกรอบนาฬิกา
• คลิกที่แผนภูมิใดแผนภูมิหนึ่ง แล้วกด Ctrl+A
• ไปที่ Shape Format
• เลือก Align Center จาก Align

• ไปที่ Shapes จากแท็บ Insert
• เลือกรูปทรง Oval

• วางไว้กึ่งกลางนาฬิกา

อ่านเพิ่มเติม: วิธีใช้ VBA สร้างนาฬิกาดิจิทัลใน Excel

ขั้นตอนที่ 5: ใช้โค้ด VBA เริ่ม/หยุดนาฬิกา

• ไปที่แท็บ Developer
• เลือก Visual Basic
• หน้าต่างใหม่จะเปิดขึ้น

• ในหน้าต่าง Visual Basic เลือก ThisWorkbook ใต้ VBAProject
• โมดูลเขียนโค้ดจะปรากฏ

• ใส่โค้ดต่อไปนี้แล้วบันทึก:

Sub StartClock()
    Dim am_ws As Worksheet
    Set am_ws = ActiveSheet
    am_ws.Range("H5").Value = "Start"
    x:
    VBA.DoEvents
    If am_ws.Range("H5").Value = "Stop" Then Exit Sub
    Application.Calculate
    GoTo x
End Sub

Sub StopClock()
    Dim am_ws As Worksheet
    Set am_ws = ActiveSheet
    am_ws.Range("H5").Value = "Stop"
End Sub

• ไปที่แท็บ Insert
• เลือกสี่เหลี่ยมจาก Shapes

• วางสี่เหลี่ยมใต่นาฬิกา ชื่อ Start
• ทำซ้ำสร้างปุ่ม Stop

• คลิกขวาที่ปุ่ม Start เลือก Assign Macro

• กำหนดแม็กโคร StartClock ให้ปุ่มนี้
• คลิก OK

• คลิกขวาที่ปุ่ม Stop เลือก Assign Macro

• กำหนดแม็กโคร StopClock ให้ปุ่มนี้

• กดปุ่ม Start เพื่อเริ่มนาฬิกา และปุ่ม Stop เพื่อหยุด

ดาวน์โหลดสมุดงานฝึกหัด

ดาวน์โหลดไฟล์ฝึกหัดได้ที่นี่

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

• Excel VBA Digital Clock on UserForm: คู่มือฉบับสมบูรณ์

รับแบบฝึกหัด Excel ขั้นสูงพร้อมเฉลยฟรี!