สร้างนาฬิกาดิจิทัลใน Excel:วิธี VBA และสูตรอย่างง่ายสองวิธี

• เวลาจะแสดงในรูปแบบดิจิทัล

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

วิธีที่ 2 – ใช้เครื่องมือรูปร่างและ Excel VBA เพื่อออกแบบนาฬิกาดิจิทัล

ขั้นตอนที่ 1 : นาฬิกาดีไซน์

• ไปที่ แทรก> ภาพประกอบ> รูปร่าง แท็บ

• ในรูปร่าง กล่องตัวเลือก ให้ค้นหา บล็อกลูกศร จัดกลุ่มและเลือก ลูกศรห้าเหลี่ยม
• ด้วยเหตุนี้ ลูกศรห้าเหลี่ยมจะถูกแทรกลงในสมุดงาน

• แทรกรูปร่างลูกศรอื่นโดยใช้คำสั่งคัดลอก-วาง
• เลือกลูกศรที่แทรกใหม่แล้วไปที่ รูปแบบรูปร่าง> หมุน แท็บ
• เลือก พลิกแนวนอน ตัวเลือก

• คัดลอกลูกศรแต่ละอันแล้วนำมาต่อกันเป็นทรงกลม
• ใช้ หมุน ตัวเลือกตามความจำเป็น

• จัดเรียงลูกศรทั้งหมดใหม่ให้เป็นแปด (8 ) รูปร่าง
• ปรับแต่งตัวเลขตัวแรก คลิกขวาที่แต่ละกลุ่มลูกศร และตั้งชื่อตามลำดับจาก 1 .

• คัดลอกและวางทั้งกลุ่มเพื่อให้ hh:mm:ss รูปแบบตามที่แสดงด้านล่าง
• ตั้งชื่อจาก 1 ถึง 42 .
• เพิ่ม 4 วงรี รูปร่างและตั้งชื่อว่า จุด .
• เพิ่ม 3 สี่เหลี่ยมผืนผ้าโค้งมน เพื่อแทรก 3 ตัวเลือกคำสั่ง:เริ่ม , หยุด และรีเซ็ต .

• เราได้สร้างรูปแบบการแสดงผลสำหรับนาฬิกาของเรา
• ตอนนี้เราจะรวมโค้ด VBA ในรูปแบบ

ขั้นตอนที่ 2 : แทรกโค้ด Excel VBA

• กด  ALT+ F11 เพื่อเปิด ภาพพื้นฐาน หน้าต่าง.
• เพิ่มโค้ด VBA ต่อไปนี้

Sub Digital_Clock_Autoshapes(FS As Integer, Digi As Integer)
Dim n As Integer
Dim Spe As Shape
Dim Shw As Worksheet
Set Shw = ActiveSheet
Dim i As Integer
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
Spe.Visible = msoCTrue
Next i
If Digi = 0 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 2 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 1 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i <> FS + 1 And i <> FS + 5 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 2 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 5 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 3 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 4 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS Or i = FS + 4 Or i = FS + 6 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 5 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 1 Or i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 6 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 1 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 7 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 2 Or i = FS + 4 Or i = FS + 6 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 9 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
End Sub

• ปิดหน้าต่างและไปที่สมุดงานที่ใช้งานอยู่ของคุณ

• เพิ่ม 3 รหัส VBA อื่นๆ ดังต่อไปนี้
• สำหรับ เริ่มต้น คำสั่ง ให้ป้อน:

Sub Start_Clock()
Dim Shw As Worksheet
Set Shw = ActiveSheet
Shw.Range("B5").Value = ""
x:
If Shw.Range("B5").Value = "Stop" Then Exit Sub
VBA.DoEvents
Call Digital_Clock_Autoshapes(1, VBA.CInt(VBA.Left(VBA.Format(Time, "HH"), 1)))
Call Digital_Clock_Autoshapes(8, VBA.CInt(VBA.Right(VBA.Format(Time, "HH"), 1)))
Call Digital_Clock_Autoshapes(15, VBA.CInt(VBA.Mid(VBA.Format(Time, "HHMM"), 3, 1)))
Call Digital_Clock_Autoshapes(22, VBA.CInt(VBA.Right(VBA.Format(Time, "HHMM"), 1)))
Call Digital_Clock_Autoshapes(29, VBA.CInt(VBA.Left(VBA.Format(Time, "SS"), 1)))
Call Digital_Clock_Autoshapes(36, VBA.CInt(VBA.Right(VBA.Format(Time, "SS"), 1)))
Dim Spe As Shape
Set Spe = Shw.Shapes("Point")
If Application.WorksheetFunction.IsEven(VBA.Second(VBA.Now)) Then
Spe.Visible = msoCTrue
Else
Spe.Visible = msoFalse
End If
GoTo x
End Sub

• เพิ่มโค้ดสำหรับ หยุด คำสั่ง

Sub Stop_Clock()
Dim Shw As Worksheet
Set Shw = ActiveSheet
Shw.Range("B5").Value = "Stop"
End Sub

• เพิ่มโค้ด VBA สำหรับ รีเซ็ต คำสั่ง:

Sub Reset_Clock()
Dim n As Integer
Dim Spe As Shape
Dim Shw As Worksheet
Set Shw = ActiveSheet
Dim i As Integer
For i = 1 To 42
 Set Spe = Shw.Shapes(VBA.Format(i, "0"))
 Spe.Visible = msoCTrue
Next i
Set Spe = Shw.Shapes("Point")
Spe.Visible = msoCTrue
End Sub

• คลิกขวาที่ เริ่ม แล้วแตะ กำหนดมาโคร .

• กำหนด Start_Clock มาโครสำหรับ เริ่ม คำสั่ง
• กำหนด Reset_Clock และ Stop_Clock สำหรับตัวเลือกคำสั่ง รีเซ็ต และ หยุด ตามลำดับ
• กด ตกลง .

• นาฬิกาดิจิตอลพร้อมตัวเลือกคำสั่งจะปรากฏขึ้น

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

ดาวน์โหลดหนังสือแบบฝึกหัด

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

• วิธีสร้างแผนภูมินาฬิกาใน Excel
• วิธีใช้โค้ด VBA เพื่อสร้างนาฬิกาดิจิทัลใน Excel