VBA บันทึกเวลาทำงานเข้า-ออก

[liveday]

รบกวนอาจารย์ด้วยครับเกี่ยวกับ VBA พอดีว่ากำลังทำบันทึกเวลา เข้า-ออก ของพนักงานแต่ละคนครับ ปัญหาติดตรงเวลาออกที่ Sheet 1 ช่อง C:D ไม่ยอมแสดงค่าและ Error ครับ และเวลาเราสามารถเปลี่ยนเป็น 24 นาฬิกา ได้ไหมครับ

ขอบคุณครับ

[snasui]

ลองปรับ Code ให้เหลือ Code เดียวตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
       If Target.Column = 1 Or Target.Column = 3 Then Target.Offset(0, 1) = Now()
    Application.EnableEvents = False
End Sub

[liveday]

ลองทำดูแล้วนะครับ แต่คำสั่งใช้ได้ครั้งเดียวครับ พอบันทึกชื่อลงไปสูตรทำงานแค่บรรทัดเดียวครับต้องปิดแล้วเปิดไฟล์ไหม่ครับ สูตรถึงทำงานต่อได้ครับ แต่ก็ได้แค่บรรทัดเดียวเหมือนเดิมครับ รบกวนอาจารย์ด้วยครับ

[snasui]

ลืมแก้ไปนิดนึงครับ ใช้ Code ด้านล่างแทนครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
       If Target.Column = 1 Or Target.Column = 3 Then Target.Offset(0, 1) = Now()
    Application.EnableEvents = True
End Sub