Snasui Excel Forum

สวัสดีครับ

ผมอ่านและทำความเข้าใจกฏการตั้งกระทู้ แล้วพยายามทำตามกฏ แต่ถ้ามีการผิดพลาด ผมขออภัยนะครับ

ตอนแรกผมเขียน Code ไว้ใน Sheet เดียวกัน ก็ใช้งานได้ตามปกตินะครับ
แต่คราวนี้ต้องการแยก Sheet กันน่ะครับ โดยให้มีปุ่ม StartREC กับ StopREC อยู่ใน Sheet "MainPage"
แล้วให้ทำงานอยู่อีก Sheet นึง คือ Sheet "VolCalculation"

แต่พอกดปุ่ม StartTimer คราวนี้ขึ้น Error ครับ
งมเองอยู่เป็นวัน จนยอมแพ้
ขอรบกวนอาจารย์และเพื่อนๆช่วยชี้แนะด้วยครับ ว่าต้องแก้อย่างไร
ขอบคุณล่วงหน้านะครับ ^^

*ความรู้เรื่อง Excel ผมน้อยมากๆครับ ใช้วิธีหา Code จาก Google แล้วเอามาปรับแต่งเอาน่ะครับ

Code มีดังนี้ครับ

ใน Module/Module1:

Option 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

ใน Objects/Sheet2 (MainPage) - Code สำหรับปุ่ม Start กับ Stop

Private Sub StartTimer_Click()
Application.CutCopyMode = False
Call StartTimer
End Sub

Private Sub StopTimer_Click()
Call StopTimer
End Sub

ตัวอย่างไฟล์ครับ

ผมไม่ทราบว่าลึกๆเป็นเพราะอะไร แต่พอเปลี่ยนปุ๋มเป็นอีกแบบแล้วผ่านครับ
ต้องรอท่านอื่นๆ มาชี้แจ้งว่าเพราะอะไรใช้คำสั่งในปุ๋มเดิมแล้วไม่ได้

ขอบคุณคุณ puriwutpokin นะครับ

วิธีที่คุณ puriwutpokin แนะนำใช้ได้ผลเลยครับ

แต่ก็ยังอยากรู้อยู่ว่าทำไม ใน Code เก่่า พอแยก Sheet กันแล้วเกิด Error อ่ะครับ
ถ้าใครรู้รบกวนช่วยชี้แนะเป็นวิทยาทานด้วยนะครับ
ขอบคุณล่วงหน้าครับ

ผมยังไม่สะดวกที่จะ Verify อย่างละเอียด แต่เท่าที่พบปัญหาในการทำงานผ่าน Event ในชีตคือตามด้านล่างครับ

การสร้าง AxtiveX Object นั้น Code ของมันจะไปอยู่ใน Sheet ที่สร้าง Object นั้น การจัดการ Code ใน Sheet จะต้องระมัดระวังในเรื่องการเขียน Code ที่กระทำกับ Sheet อื่น ไฟล์อื่น จะต้องอ้างอิงให้ชัดเจน ถ้าจะให้ดีต้องประกาศตัวแปรเป็นชีตนั้น ๆ ไฟล์นั้น ๆ ตามที่ต้องการเขียน Code เข้าไปจัดการ จะได้เรียกใช้ง่ายและตรงไปตรงมา อันนี้คือประเด็นนึงที่เป็นปัญหาได้ซึ่งอาจจะไม่เกี่ยวคำถามนี้

อีกประการในการเรียกใช้ Code ควรจะอ้าง Object ที่บรรจุ Code นั้นร่วมด้วยเพื่อโปรแกรมจะได้เข้าถึง Code ได้ถูกต้อง

การอ้างอิง Object ที่บรรจุ Code เช่น Call Module1.TimeStart หากเรียกเฉพาะ Call TimeStart จะเป็นปัญหาได้หากว่ามีหลาย Module และตั้งชื่อเหมือนกัน อันนี้อีกประเด็นที่ทำให้โปรแกรม Error ได้เช่นกัน ประเด็นหลังนี้น่าจะใกล้เคียงกับคำถามนี้มากกว่าประเด็นแรกครับ

ขอบคุณมากครับ คุณ snasui

เป็นอย่างที่คุณ snasui บอกเลยครับ
สรุป พอระบุเรียก Module1 แล้วตามด้วย StartTimer ก็ใช้งานได้ทันที

Code ที่แก้แล้ว

Private Sub StartTimer_Click()
Application.CutCopyMode = False
Call Module1.StartTimer
End Sub

Private Sub StopTimer_Click()
Call Module1.StopTimer
End Sub