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

วิธีสร้างนาฬิกาจับเวลาในแผ่นงาน Excel

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

doc สร้างนาฬิกาจับเวลา 1

สร้างนาฬิกาจับเวลาด้วยปุ่มสามปุ่มโดยใช้รหัส VBA


สร้างนาฬิกาจับเวลาด้วยปุ่มสามปุ่มโดยใช้รหัส VBA

ในการสร้างนาฬิกาจับเวลาที่มีปุ่มสามปุ่มเริ่มหยุดและรีเซ็ตโปรดทำตามขั้นตอนต่อไปนี้ทีละปุ่ม

ประการแรกใส่ปุ่มคำสั่งสามปุ่ม

1. คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่งดูภาพหน้าจอ:

doc สร้างนาฬิกาจับเวลา 2

2. จากนั้นลากเมาส์เพื่อวาดปุ่มหลังจากใส่ปุ่มแล้วคุณสามารถเปลี่ยนคำอธิบายปุ่มได้โปรดคลิก ผู้พัฒนา > อสังหาริมทรัพย์ ใน อสังหาริมทรัพย์ ให้ป้อนคำอธิบายภาพใหม่“เริ่มต้น” สำหรับปุ่มนี้ในกล่องข้อความข้าง คำบรรยายภาพดูภาพหน้าจอ:

doc สร้างนาฬิกาจับเวลา 3 2 doc สร้างนาฬิกาจับเวลา 4

3. ทำซ้ำสองขั้นตอนข้างต้นเพื่อใส่ปุ่มอีกสองปุ่มและใส่คำบรรยายภาพเป็น“หยุด"และ"รีเซ็ต” ดูภาพหน้าจอ:

doc สร้างนาฬิกาจับเวลา 5

4. หลังจากใส่ปุ่มแล้วคุณควรออกจากโหมดออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ.

ประการที่สองสร้างรหัส VBA

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

รหัส VBA: สร้างนาฬิกาจับเวลา:

Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
  StartTime = Timer
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  StopIt = True
End Sub
Private Sub CommandButton3_Click()
  Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
  LastTime = 0
  ResetIt = True
End Sub

doc สร้างนาฬิกาจับเวลา 6

หมายเหตุ: ในโค้ดด้านบน C2 คือเซลล์ที่จะใส่เวลาของนาฬิกาจับเวลาและ ปุ่มคำสั่ง1, ปุ่มคำสั่ง2, ปุ่มคำสั่ง3 คือชื่อปุ่มคุณสามารถดูชื่อปุ่มที่แน่นอนได้จากไฟล์ ชื่อ: กล่องดูภาพหน้าจอ:

doc สร้างนาฬิกาจับเวลา 7

ประการที่สามจัดรูปแบบเซลล์เวลาของนาฬิกาจับเวลา

6. จากนั้นคุณควรจัดรูปแบบเซลล์เวลาเป็น ข้อความ รูปแบบและคุณสามารถเปลี่ยนขนาดเซลล์แบบอักษรสีแบบอักษรพื้นหลัง ฯลฯ ได้ตามที่คุณต้องการดูภาพหน้าจอ:

doc สร้างนาฬิกาจับเวลา 8

7. หลังจากเสร็จสิ้นขั้นตอนข้างต้นแล้วจากนี้เมื่อคุณคลิก เริ่มต้น ปุ่มเวลาจะเริ่มในขณะนี้และคลิก หยุด ปุ่มมันจะหยุดเวลา รีเซ็ต ปุ่มจะรีเซ็ตเวลาดูภาพหน้าจอ:

doc สร้างนาฬิกาจับเวลา 9


การสาธิต: สร้างนาฬิกาจับเวลาด้วยปุ่มสามปุ่มโดยใช้รหัส VBA


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (30)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับโพสต์นี้ มันมีประโยชน์มาก อย่างไรก็ตาม มีวิธีปรับแต่งโค้ดเพื่อให้ตัวจับเวลาไม่หยุดเมื่อเซลล์ถูกแก้ไขหรือไม่ ตามหลักการแล้ว ฉันต้องการกด "เริ่ม" ทำการเปลี่ยนแปลงจำนวนหนึ่งกับช่วงของเซลล์บนแท็บเดียวกัน จากนั้นกด "หยุด" ตามเวลาทั้งหมดที่ผ่านไป คำแนะนำใด ๆ เกี่ยวกับเรื่องนี้จะได้รับการชื่นชมอย่างมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณเคยคิดเรื่องนี้หรือไม่? ฉันเองก็จำเป็นต้องให้ตัวจับเวลาทำงานต่อไปในขณะที่มีการเปลี่ยนแปลงอื่นๆ ในสเปรดชีตเดียวกัน ขอบใจ. ไมค์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่เป็นความช่วยเหลือที่ดีและทำตามขั้นตอนได้ง่ายมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ได้พยายามสร้างนาฬิกาจับเวลาโดยใช้รหัสเดียวกันในฟอร์ม ตัวจับเวลาเริ่มต้นได้อย่างสมบูรณ์ แต่ไม่หยุด โปรดแนะนำวิธีการทำซ้ำในรูปแบบเดียวกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ลอง XNote นาฬิกาจับเวลา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีใดบ้างที่จะให้ตัวจับเวลานับขึ้นหรือลงตามเวลาที่กำหนดหรือไม่? ฉันต้องการเก็บปุ่มเริ่มต้น หยุด และรีเซ็ตไว้ แต่ต้องการให้นับได้ถึงหนึ่งนาทีหนึ่งวินาทีเท่านั้น เมื่อกดปุ่มเริ่ม หรือนับถอยหลังจากหนึ่งนาทีหนึ่งวินาทีเป็นศูนย์ (01:01) ขอบคุณสำหรับความช่วยเหลือของคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เมลิสซ่า
หากคุณต้องการสร้างนาฬิกาจับเวลาถอยหลังในเวิร์กชีต บทความต่อไปนี้อาจช่วยคุณได้!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,

ฉันเห็นบทความนั้นแล้ว แต่ฉันต้องการให้ดูเหมือนนาฬิกาจับเวลาในหน้านี้ทุกประการ แต่ฉันต้องการให้นับถอยหลังจากหนึ่งนาทีหนึ่งวินาทีเท่านั้น ฉันต้องการให้แสดงในรูปแบบนาฬิกาจับเวลา แต่ทำงานเป็นการนับถอยหลัง คำแนะนำเพิ่มเติม?


ขอบคุณสำหรับการตอบกลับ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นป้ายบอกคะแนนที่เราออกแบบใน excel
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดีมาก แต่เป็นไปได้ไหมที่จะเรียกใช้นาฬิกา 2 นาฬิกาในแผ่นงานเดียวกัน ได้ทำนาฬิกาที่สองด้วยการเริ่ม หยุด และรีเซ็ตปุ่มใหม่ แต่เมื่อเริ่มนาฬิกาที่สอง อันแรกจะหยุด....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ที่นี่คุณสามารถหาวิธีรักษาได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเพื่อน,
วิธีนี้ใช้กับปุ่มชุดเดียวในเวิร์กชีตเท่านั้น
หากมีแนวคิดดีๆ อื่นๆ โปรดแสดงความคิดเห็นที่นี่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะหยุดตัวจับเวลาโดยอัตโนมัติเมื่อล็อกหน้าจอและเริ่มจับเวลาโดยอัตโนมัติเมื่อเราปลดล็อกคอมพิวเตอร์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีใดบ้างที่จะให้ตัวจับเวลารีเซ็ตการนับเป็นศูนย์ แต่ยังคงให้ตัวจับเวลาทำงานต่อไป? เช่น. พอกด Reset ก็ไม่ต้องการให้กด Start อีกจนกว่าจะหมดเวลา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้จุกนี้อยู่ แต่บ่อยครั้งที่ตัวเลขในเซลล์แสดงผล ("C2") เริ่มขยับและดับ - มันแสดงเครื่องหมายลบ ตัวเลขไม่ถูกต้อง และการนับหายไป โดยปกติจะเกิดขึ้นหลังจากผ่านไปประมาณหนึ่งชั่วโมงหรือมากกว่านั้น แต่บางครั้งอาจผ่านไปก่อนหนึ่งชั่วโมงด้วยซ้ำ นี่เป็นข้อผิดพลาดทั่วไปหรือไม่? และถ้าใช่มีวิธีแก้ไขหรือไม่? ฉันลบ .00 (เช่น มิลลิวินาที) ออกจากโค้ดโดยเพียงแค่ลบ: & "" & รูปแบบ (0, "00") ทุกที่ที่ปรากฏ - จำเป็นต้องทำอะไรกับปัญหานี้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับคำแนะนำของคุณ มันทำงานได้อย่างราบรื่น แต่เมื่อฉันป้อนข้อมูลใด ๆ ในชีตนี้ มันหยุดทำงาน เราต้องการให้มันทำงานต่อไปชั่วขณะ ป้อนข้อมูล เราจะแก้ไขปัญหานี้ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณหนุ่ย
อาจจะไม่ใช่วิธีที่ดีในการแก้ปัญหาของคุณ เมื่อคุณแก้ไขเซลล์ เซลล์จะขัดจังหวะมาโครที่ดำเนินการอยู่ในปัจจุบัน
หากคุณมีวิธีการที่ดีอื่น ๆ โปรดแสดงความคิดเห็นที่นี่!
ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี. ฉันได้สร้างนาฬิกาจับเวลาแล้ว แต่ต้องมีช่วงเวลาต่างๆ ระหว่างการเริ่มและหยุดเพื่อบันทึกเพื่อให้สามารถสะท้อนช่วงเวลาเหล่านั้นเป็นการศึกษาเวลาและการเคลื่อนไหว เคล็ดลับใด ๆ เกี่ยวกับวิธีการทำเช่นนั้น?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำตามขั้นตอนทั้งหมดเสร็จแล้ว แต่การคลิกปุ่มเริ่มต้นจะมีข้อความแสดงข้อผิดพลาดว่า "ไม่สามารถเรียกใช้แมโครได้" 'file.xlsm'!CommandButton1" แมโครอาจไม่พร้อมใช้งานในเวิร์กบุ๊กนี้ หรือมาโครทั้งหมดอาจถูกปิดใช้งาน" เปิดใช้งานมาโครทั้งหมดแล้ว มาโครอยู่ใน Module1 หมายเหตุ: ฉันใช้ Office 2019 สำหรับ Mac ซึ่งอาจเป็นปัญหาได้....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ลองเพิ่มฟีเจอร์ "+10s" & "2x Speed" ในโค้ดนี้ดูไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
'ตัวจับเวลา' เป็นตัวแปรที่นี่หรือไม่ ไม่เห็นความเกี่ยวข้องในรหัส
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะให้ตัวนับนับวินาทีเท่านั้น?
ดังนั้นเมื่อถึง 59 วินาที ก็ต่อด้วย 60, 61, 62, 63 ....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ทำตามขั้นตอนแล้วแต่ไม่มีเวลาปรากฏในเซลล์ตัวจับเวลา ฉันได้คัดลอกรหัสแล้ว แต่ฉันสามารถตรวจสอบ1. ว่าไม่จำเป็นต้องใช้หมายเลขบรรทัดหรือเป็นพวกเขา2. ที่ฉันใส่รหัสลงในโมดูล 1 ไม่ใช่ชีต 1 หรือสมุดงานนี้3 ควรมีมาโครในรายการแมโครหลังจากทำทั้งหมดนี้แล้ว - ของฉันไม่มี
ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Janice คุณควรใส่รหัสลงในโมดูลแผ่นงานที่ใช้งานอยู่ตามขั้นตอนที่ 5
5. จากนั้น คลิกขวาที่แท็บแผ่นงานปัจจุบัน และเลือก ดูรหัส ในหน้าต่าง Microsoft Visual Basic for Applications ที่โผล่ออกมา โปรดคัดลอกและวางรหัสต่อไปนี้ลงในโมดูล

และคุณควรเปลี่ยนชื่อปุ่มเป็นของคุณเอง
หมายเหตุ: ในโค้ดด้านบน C2 คือเซลล์ที่จะแทรกเวลาของนาฬิกาจับเวลา และ ปุ่มคำสั่ง1, ปุ่มคำสั่ง2, ปุ่มคำสั่ง3 เป็นชื่อปุ่ม คุณสามารถดูชื่อปุ่มที่แน่นอนได้จากกล่องชื่อ

โปรดตรวจสอบพวกเขา ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่มันเจ๋ง! ขอบคุณ Chris H
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะใช้คอมโบบ็อกซ์หรือการเลือกดรอปดาวน์เพื่อเริ่มและหยุดนาฬิกา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, déterminer le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! ขอขอบคุณสำหรับสิ่งนี้ ฉันจะทำอย่างไรเพื่อให้มันเติมเวลาในเซลล์ถัดไป เช่น เวลาเริ่มต้น/หยุดสำหรับเซลล์ C2 จากนั้นเวลาเริ่มต้น/หยุดที่แตกต่างกันสำหรับเซลล์ c3, c4, c5 เป็นต้น 
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ