Excel Forum

ขอบคุณค่ะ

ขอบคุณค่ะ

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

tank

ขอบคุณครับ

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

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

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

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

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

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

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

Excel 2013
Windows 8 64bit

ขอบคุณค่ะ

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

Excel 2013
Windows 8 64bit

ขอบคุณค่ะ

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

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

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

รบกวนที่พี่ท่าน
คือผม หา 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

raysinario wrote:รบกวนที่พี่ท่าน
คือผม หา 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

ขอบคุณคะ

ขอบคุณค่ะ

ขอบคุณค่ะ

ขอบคุณค่ะ

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

ขอบคุณค่ะ

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