EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)ใน Objects/Sheet2 (MainPage) - Code สำหรับปุ่ม Start กับ StopOption Explicit
Public dTime As Date
Sub ValueStore()
Dim NC As Long
With Sheets("VolCalculation")
NC = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1
.Cells(2, NC).Resize(2).Value = .Range("C2:C3").Value
If NC > 10 Then .Range("D2:D3").Delete xlShiftToLeft
End With
Application.CutCopyMode = False
Call StartTimer
End Sub
Sub StartTimer()
dTime = Now + TimeValue("00:00:05")
Application.OnTime dTime, "ValueStore", Schedule:=True
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime dTime, "ValueStore", Schedule:=False
End Sub
ตัวอย่างไฟล์ครับPrivate Sub StartTimer_Click()
Application.CutCopyMode = False
Call StartTimer
End Sub
Private Sub StopTimer_Click()
Call StopTimer
End Sub
Call Module1.TimeStart
หากเรียกเฉพาะ Call TimeStart
จะเป็นปัญหาได้หากว่ามีหลาย Module และตั้งชื่อเหมือนกัน อันนี้อีกประเด็นที่ทำให้โปรแกรม Error ได้เช่นกัน ประเด็นหลังนี้น่าจะใกล้เคียงกับคำถามนี้มากกว่าประเด็นแรกครับPrivate Sub StartTimer_Click()
Application.CutCopyMode = False
Call Module1.StartTimer
End Sub
Private Sub StopTimer_Click()
Call Module1.StopTimer
End Sub