สร้างTimerบนExcel

การสร้างTimerบนExcelเพื่อให้โค้ดทำงานเป็นช่วงๆตามระยะห่างเวลาที่กำหนดไว้

ขั้นตอน (ชมแบบ VDOที่นี่)

1. สร้างไฟล์Excelใหม่ขึ้นมา แล้วเข้าสู่หน้าVBAโดยกดปุ่ม Alt+F11บนแป้นพิมพ์ สร้างโค้ดในส่วนThisWorkbook

image

Private Sub Workbook_Open()
  alertTime = Now + TimeValue("00:00:10")
  Application.OnTime alertTime, "EventMacro"
End Sub

จากโค้ดตั้งเวลาให้เรียกโค้ดMacroชื่อEventMacroทุก10วินาที

2. สร้างModuleโดยคลิ้กขวาทีกิ่งVBAProject เลือก Insert Module

image

แล้วสร้างMacroชื่อEventMacroเพื่อให้ถูกเรียกใช้จากข้อ1 โดยพิมพ์โค้ดที่ต้องการให้ทำงานหลัง10วินาทีข้างต้น เช่นให้เซลล์A1ของSheet1แสดงเวลาปัจจุบัน จากนั้นจึงเขียนโค้ดเดิมให้เรียกตัวเอง(EventMacro)ในอีก10วินาทีต่อไป

image

 

3. บันทึกไฟล์ExcelในรูปแบบMacro Enable

image

จากนั้นปิด Excelไฟล์นี้ไป

4. เปิดไฟล์Excelในข้อ3ขึ้นมา กำหนดFormatของเซลล์A1ให้เป็นแบบTimeจะได้ค่าเวลาอัพเดททุก10วินาที ตามที่เขียนโค้ดไว้

image

เท่านี้ก็ได้TimerบนExcelโดยไม่ต้องอาศัยActiveX Control

ชมแบบ VDOที่นี่

Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s