สอบถามปัญหาการปิดฟอร์ม DatePiger อัติโนมัติ หลังจากเลือกวันที่ลงเซล

[tigerwit]

จากไฟล์ที่แนบมา
มีโค๊ดให้ Show ปฏิทิน (DatePickerForm) เพื่อเลือกคลิกวันที่แทนการคีย์วันที่ลงในเซล
โดยได้ทดลอง 2 แบบ

แบบที่ 1 ใช้ปุ่มจากแมโครชื่อ ShowDatePickerForm เรียกให้ datepickerform ให้แสดงขึ้นมาเพื่อให้ผู้ใช้เลือกวันที่ ที่ต้องการ

Code: Select all

Sub ShowDatePickerForm()
    dp_core.gridDP_Click
        With datepickerform
            .StartUpPosition = 0
            .Left = Application.Left + (0.1 * Application.Width) - (0.1 * .Width)
            .Top = Application.Top + (0.68 * Application.Height) - (0.68 * .Height)
            .Show
        End With
End Sub

ในแบบที่ 1 นี้ เมื่อผู้ใช้คลิกเลือกวันที่ใน datepickerform แล้ว ฟอร์มจะปิดตัวลงอัตโนมัติ

แบบที่ 2 วางโค๊ดไว้ที่ Worksheet_SelectionChange

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("G4"), Target) Is Nothing Then
    datepickerform.Show
        With datepickerform
            .StartUpPosition = 0
            .Left = Application.Left + (0.1 * Application.Width) - (0.1 * .Width)
            .Top = Application.Top + (0.68 * Application.Height) - (0.68 * .Height)
            .Show
    End With
  End If
End Sub

เมื่อคลิกที่เซล G4 ฟอร์ม datepickerform จะแสดงขึ้นมาให้ผู้ใช้เลือกวันที่ ที่ต้องการ แต่เมื่อคลิกเลือกวันที่แล้ว
ในแบบที่ 2 ฟอร์มจะไม่ปิดตัวลงเหมือนแบบที่ 1
ต้องปรับโค๊ดอย่างไรครับ ให้ฟอร์มปิดตัวลงหลังคลิกเลือกวันที่เสร็จ

[snasui]

ปัจจุบันผมไม่ได้ใช้ DatePicker ไม่สะดวกทีจะทดสอบติดตั้ง คงต้องรอเพื่อนสมาชิกที่มีประสบการณ์มาช่วยตอบครับ

วิธีที่ 2 ในเครื่องผมไม่สามารถทำงานได้ ติด Error ครับ

[9KiTTi]

ลองแบบนี้ไหมครับ https://www.extendoffice.com/documents/ ... omments_10