โปรแกรมลงเวลาเข้า - ออก พนักงาน (แบบง่าย) แจกฟรี V.2

[ranwt]

ขอบคุณค่ะ

[NongFang]

ขอบคุณค่ะ

[tharn03]

ขอบคุณมากๆเลยนะคับ จะให้ผมทำเองนี่หมดปัญญาเลยจริงๆ ทิ้ง excel มานานมากแล้ว

[zoneit]

tank

[boytempp]

ขอบคุณครับ

[kiatthisak]

ขอสอบถามครับ ผมโหลดโปรแกรมไม่ได้ครับ มีข้อความแจ้งเตือนช่วงที่ดาวโหลดว่า ชื่อหรือรหัสผ่านไม่ถูกต้อง

ผมต้องทำไงดีคับ

[snasui]

ผมทดสอบดาวน์โหลดแล้วสามารถดาวน์โหลดได้เป็นปกติครับ

ไม่ทราบว่าใช้ โปรแกรมใดในการท่องเนตครับ (Internet Explorer, Firefox, Chrome,...etc.)

หากเป็น IE (Internet Explorer) เป็นไปได้ว่ามีการหลุดออกจากระบบ ให้ดู Link นี้ครับ viewtopic.php?f=6&t=4635

[twofourplast]

ขอบคุณครับเดี๋ยวลองใช้ดู

[ninjatalo007]

ขอสอบถามค่ะใน Sheet AddTime (Row C4) ในส่วนของเมนูเลือกวันที่คลิกแล้วไม่มี Calender ขึ้นมาให้เลือก
ไม่ทราบว่าต้องแก้ไขอย่างไรค่ะ

Excel 2013
Windows 8 64bit

ขอบคุณค่ะ

[bank9597]

ขอสอบถามค่ะใน Sheet AddTime (Row C4) ในส่วนของเมนูเลือกวันที่คลิกแล้วไม่มี Calender ขึ้นมาให้เลือก
ไม่ทราบว่าต้องแก้ไขอย่างไรค่ะ

Excel 2013
Windows 8 64bit

ขอบคุณค่ะ

ผมเอาปฏิทินออกไปแล้วครับ เนื่องจากมีปัญหาเวลานำไปใช้กับเครื่องที่ไม่มีปฏิทินครับ

สามารถคีย์มือได้ครับ แต่ต้องเป็นปี ค.ศ น่ะครับ

[amonguz]

ขอบคุณมากค่ะ ขออนุญาตินำไปใช้นะคะ

[raysinario]

รบกวนที่พี่ท่าน
คือผม หา addtime แก้ลง ใน win 8 ยังงัย excel 2010 กำลังศึกษาโปรแกรมพี่ จะเอามาใช้คำนวนเวลาพนักงานเข้างาน
มานเด้งมาแบบนี้ (ผมไม่รู้เรื่องมาโคร) มานแก้งัยหรอครับ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("AddTime").Unprotect Password:="1234"
'Application.EnableEvents = True
With Calendar1
If Not Intersect(Target, Range("C4")) Is Nothing Then
.Visible = True
.Top = ActiveCell.Offset(0, 0).Top
.Left = ActiveCell.Offset(0, 1).Left
Else
.Visible = False
End If
End With
'Application.EnableEvents = False
Worksheets("AddTime").Protect Password:="1234"
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub

[bank9597]

รบกวนที่พี่ท่าน
คือผม หา addtime แก้ลง ใน win 8 ยังงัย excel 2010 กำลังศึกษาโปรแกรมพี่ จะเอามาใช้คำนวนเวลาพนักงานเข้างาน
มานเด้งมาแบบนี้ (ผมไม่รู้เรื่องมาโคร) มานแก้งัยหรอครับ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("AddTime").Unprotect Password:="1234"
'Application.EnableEvents = True
With Calendar1
If Not Intersect(Target, Range("C4")) Is Nothing Then
.Visible = True
.Top = ActiveCell.Offset(0, 0).Top
.Left = ActiveCell.Offset(0, 1).Left
Else
.Visible = False
End If
End With
'Application.EnableEvents = False
Worksheets("AddTime").Protect Password:="1234"
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub

มีปัญหาเรื่องปฏิทินครับ ลอง add ปฏิทินลงไปก่อนครับ ตามลิงค์นี้

viewtopic.php?f=9&t=2994

[prang30]

ขอบคุณคะ

[Nuch Napatorn]

ขอบคุณค่ะ

[panda_nest]

ขอบคุณค่ะ

[supattra.s]

ขอบคุณค่ะ

[bomsorapat]

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

[allright29]

ขอบคุณค่ะ

[heavent1]

ขอบคุณครับอยากทราบว่าตอนนี้ยังสามารถใช้ได้ไหมครับ