Snasui Excel Forum

Posted: **Fri Jun 14, 2013 2:33 pm**

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

ขอบคุณครับ

Posted: **Fri Jun 14, 2013 4:32 pm**

ลองปรับ 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

Posted: **Fri Jun 14, 2013 5:07 pm**

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

Posted: **Fri Jun 14, 2013 5:21 pm**

ลืมแก้ไปนิดนึงครับ ใช้ 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

Snasui Excel Forum

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

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

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

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

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