อยากให้ VBA ตรวจสอบถ้าอยู่ในช่วงเวลาที่กำหนดไว้ ให้ทำงาน แต่ถ้ายังไม่ใช่ ให้รอ
Posted: Sat Jul 01, 2017 10:29 am
ถามต่อเนื่องมาจากกระทู้นี้นะครับ
viewtopic.php?f=3&t=11893
ตอนนี้ เมื่อกดปุ่ม AutoREC แล้ว VBA จะรอถึงเวลาที่กำหนดไว้ ถึงจะทำงาน
แต่เราอยากกำหนดเป็นเวลาให้ทำงาน เช่น เมื่อกดปุ่ม AutoREC ถ้าอยู่ในช่วงเวลา 10:00 - 12:30 ให้ทำงานเลย
แต่ถ้ายังไม่ถึง 10:00 ก็ให้รอจนถึง 10:00 แล้วถึงทำงานน่ะครับ
Code ตอนนี้ผมเขียนแบบนี้ครับ
รบกวนช่วยชี้แนะด้วยครับ
ขอบคุณครับ
viewtopic.php?f=3&t=11893
ตอนนี้ เมื่อกดปุ่ม AutoREC แล้ว VBA จะรอถึงเวลาที่กำหนดไว้ ถึงจะทำงาน
แต่เราอยากกำหนดเป็นเวลาให้ทำงาน เช่น เมื่อกดปุ่ม AutoREC ถ้าอยู่ในช่วงเวลา 10:00 - 12:30 ให้ทำงานเลย
แต่ถ้ายังไม่ถึง 10:00 ก็ให้รอจนถึง 10:00 แล้วถึงทำงานน่ะครับ
Code ตอนนี้ผมเขียนแบบนี้ครับ
Code: Select all
Sub AutoTimer()
Application.OnTime TimeValue("10:00:00"), "AutoOn", Schedule:=True
On Error Resume Next
Application.OnTime TimeValue("10:00:01"), "AutoOn", Schedule:=False
Application.OnTime TimeValue("12:30:00"), "AutoOff"
Application.OnTime TimeValue("14:30:00"), "AutoOn", Schedule:=True
On Error Resume Next
Application.OnTime TimeValue("14:30:01"), "AutoOn", Schedule:=False
Application.OnTime TimeValue("16:30:00"), "AutoOff"
End Subขอบคุณครับ
คำถามต่อเนื่องกันให้ถามที่กระทู้เดิมครับ