การเลือกวันที่จากปฏิทิน ทำได้อย่างไร

[godman]

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

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$e$2:$e$2" Then
    With ActiveSheet.Calendar1
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
    End With
Else
    ActiveSheet.Calendar1.Visible = False
End If
Application.EnableEvents = True
End Sub
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub

---------
เทคนิคการโพสต์ Code ให้ลากเมาส์คลุม Code ทั้งหมดแล้วคลิกปุ่ม Code ด้านบน เพื่อให้แสดงเป็น Code ที่ดูง่ายขึ้นครับ // คนควน

[snasui]

ต้อง Add Calendar เข้ามาก่อนตามภาพด้านล่างครับ

[godman]

ใช้ได้ดีครับ ขอบคุณครับ อาจารญื แล้วเรื่องรูปแบบ เวลา ที่ถูกต้องในการคำนวณ ควรใช้รูปแบบใหนครับ
เพราะผมต้องนำมาลบ เพื่อหาจำนวนชั่วโมงที่ใช้

[snasui]

ตราบใดที่วันที่ เวลา เป็นตัวเลข ไม่ว่าจะจัดรูปแบบอย่างไร สามารถนำมาคำนวณได้เสมอครับ

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

[som5026]

อาจารย์ครับผมได้ทดลองใช้แล้วใช้ได้ดี จากการทดสอบ เมื่อคลิกตรง E4 แล้วปฏิทินเด้งขึ้นมา แต่ถ้าเราให้คลิกตรง E7 F7 H8 ให้ปฏิทินเด้งขึ้นมาก ต้องแก้ไขโค้คอย่างไรครับ

[joo]

ลองปรับโค๊ดแบบนี้ดูครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$E$4" Or Target.Address = "$E$7" Or Target.Address = "$F$7" _
Or Target.Address = "$H$8" Then
    With ActiveSheet.Calendar1
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
    End With
Else
    ActiveSheet.Calendar1.Visible = False
End If
Application.EnableEvents = True
End Sub

[som5026]

ขอบคุนมากครับ ใช้ได้ผล

[bownasee]

ขอบคุณค่ะ ได้ความรู้มากเลย