Code ใน sheet ลำดับที่สอง เป็นต้นไปไม่ทำงานอัตโนมัติ

[sarawoot]

code ทำงานได้ปกตินะครับ
ลองทดสอบดูแล้ว ทำงานถูกต้อง แต่มันไม่ทำงานอัตโนมัติ ยกเว้นแค่ sheet แรก ที่ทำงานอัตโนมัติ
ไม่แน่ใจว่าวาง code ไว้ผิดที่หรือเปล่าครับ

อันนี้หลักการของ Sheet 1 นะครับ ซึ่งทำงานถูกต้อง (code อยู่ใน sheet ชื่อ "Sheet1")
รายละเอียด code เป็นการสั่งงานจากหน้าจอควบคุมเครื่องจักร เมื่อกดปุ่ม จะมีสัญญาณเป็นเลข 1 เข้ามาที่ cell E12 และจะทำการ copy ("E16:E43")ไปที่ ("F16:F43") หลังจากนั้น 5 วินาที E12 จะเป็น 0 เพื่อรอรับคำสั่ง 1 ในครั้งต่อไป --> OK อันนี้ทำงานถูกต้องปกติครับ

ที่มีปัญหาคือ
ส่วน sheet ลำดับที่สองชื่อ Jan (code อยู่ใน sheet ชื่อ "Jan")
รายละเอียด code คือ เมื่อกดปุ่มจากหน้าจอควบคุมเครื่องจักร จะมีสัญญาณเป็น 1 เข้ามาที่ cell D62 หลังจากนั้น จะ copy ข้อมูลที่ cell D61 ไปไว้ที่ D17:D47

ซึ่ง code ก็ทำงานถูกต้อง แต่ มีปัญหาว่า เวลากดปุ่มที่หน้าจอเครื่องจักร ที่ cell D62 เปลี่ยนเป็น 1 แล้ว แต่มันไม่ทำงานต่อ ต้องมาสั่ง run ที่ code ใน sheet มันถึงจะทำงาน ซึ่งต่างจาก code ใน Sheet1 ที่มันทำงานเองอัตโนมัติ

ถ้าจะทดสอบข้างนอกแบบนี้ต้องเปลี่ยนจาก Worksheet_Calculate() เป็น
Worksheet_Change(ByVal Target As Range) ก่อนนะครับ

[snasui]

ผม Debug พบว่า Worksheet_Calculate ทำงานอยู่บน Sheet1 หมายถึง แม้จะมีการเปลี่ยนแปลงที่ชีตอื่นแต่ Event นี้จะส่งค่ามาว่าเกิดการ Cal ที่ Sheet1 การปรับ Code จึงควรดักจับชื่อชีตที่กำลังทำงานในปัจจุบันเข้าไปช่วย

กรณีทำงานหลายชีต เพื่อให้ง่ายต่อการทำงานสามารถเขียน Code ใน ThisWorkbook แทนการเขียนแยกเอาไว้ในแต่ละชีต ตัวอย่างการปรับ Code ดังด้านล่างครับ

Code: Select all

Private Sub Workbook_Open()
    Call MyTimer1
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Select Case ActiveSheet.Name
        Case "Sheet1"
            If Range("E12").Value = 1 Then
                Application.EnableEvents = False
                Range("E16:E43").Copy Range("F16:F43")
                Application.EnableEvents = True
                Application.OnTime Now + TimeValue("00:00:05"), "checkValue"
            ElseIf Range("E13").Value = 2 Then
                Application.EnableEvents = False
                Range("E16:E43").Copy Range("K16:K43")
                Application.EnableEvents = True
                Application.OnTime Now + TimeValue("00:00:05"), "checkValue2"
            End If
        Case "Jan"
            If Range("D62").Value = 1 Then
                Application.EnableEvents = False
                Range("D17:D47").Value = Range("D61").Value
                Application.EnableEvents = True
                Application.OnTime Now + TimeValue("00:00:02"), "checkValue3"
            End If
    End Select
End Sub

การ Debug Worksheet_Calculate สามารถเลือกทำได้หลายทางโดยไม่ต้องเปลี่ยนไปเป็น Event อื่นไม่เช่นนั้นจะไม่ตรงกับสภาพแวดล้อมจริง สิ่งที่ทำให้เกิด Worksheet_Calculate ดูได้จาก Link นี้ครับ https://docs.microsoft.com/en-us/office ... alculation

[sarawoot]

ขอบคุณมากครับ ใช้งานได้แล้วครับ