Excel Forum

โปรแกรมเขียนขึ้นอย่างง่ายๆ อาจจะซับซ้อนสำหรับผู้เริ่มใช้งงานใหม่ๆ บางท่านอาจจะงง...ว่าทำไมไม่มีอะไรเกิดขึ้น...
1. เปิดใช้งานมาโคร
2. ปรับรูปแบบแสดงเวลาตามสูตรที่ต้องการ (เปลี่ยนหน้า sheet ไปมา)
3. กรอก "ตัวเลขนาที" ใน คอลัมภ์ "กี่นาที" โปรแกรมจะจับเวลานะ Enter ที่กรอกเสร็จ
4. ช่อง "สถานะ" มีไว้สำหร ...

Option Explicit

Dim CountTime As Date

Sub Timer()
Dim N As Integer
CountTime = Now + TimeValue("00:00:01")
Application.OnTime EarliestTime:=CountTime, Procedure:="Reset", Schedule:=True
With Sheet1
.Range("A1").Value = CountTime
For N = 1 To 30 ' จำนวนโต๊ะปรับตามเซลล์ที่จะจับเวลา เช่น เปล ...

คุณต้องขยาย ดูนาฬิกาหาก มันแสดงผลเต็มช่อง

คุณต้องขยาย ดูนาฬิกาหาก มันแสดงผลเต็มช่อง

คุณต้อง Enable มาโครเสียก่อน

เห็นหลายๆ ท่าน...ใช้งานแล้วมีปัญหา...พอดีว่างงานวันนี้...เลยจะมาตอบคำถามแทนท่าน "คนควน"

ลองดูแล้ว...ครับ...แต่สูตรการใช้ Events มันผิดพลาดถ้าใช้กับเครื่องความเร็วสูงๆ เลยนำสูตรของท่าน "คนควน" มาประยุกต์ "เสถียรกว่า" เยอะครับ...

ออ...ตอนแรกผมคิดว่าน่าจะเป็นที่การใช้ doEvenst เยอะไปครับ... เพราะมันอาจจะวนลูป...จนมันทำงานเกินระดับ...
เข้าใจแล้วครับ...

แต่อย่างนี้ครับท่านคนควน...
บางทีมัน Error บางทีมันก็ไม่ Error มันเป้นเพราะอะไร
เล่นกับเครื่องความเร็วต่ำๆ จะไม่มีปัญหาอะไร...
จะเป็นกับเครื่องความเร็วสูงๆ

https://docs.google.com/file/d/0B-cFX3V ... sp=sharing

ใข้งานบน Office 2007 ขึ้นไปจะไม่มีปัญหา
สำหรับ 2003 นั้นนาฬิกาเดินปกติ ... แต่ ฟังก์ชั่น Time ให้เปลี่ยนเป็น Timeserial ครับ
ปัญหาการคิดเงิน...เพิ่มหรือเพิ่มเมนูอื่น...ถามท่าน "คนควน" เจ้าของบอร์ดเลยครับ