ต้องการให้แสดง calendar เพื่อเลือกวันที่

[jaruek]

เวลาเรียกใช้ Userform ต้องการให้แสดง ปฎิทิน เพื่อเลือกวันที่ ในช่องที่เราใส่วันที่ ต้องปรับโค้ดเพิ่มเติมอย่างไรครับ
ตัวอย่างโค้ดที่เขียนมาเป็น TextBox สำหรับบันทึกวันที่ครับ
ws.Cells(erow, 1) = TextBox23.Text
ws.Cells(erow, 1).NumberFormat = "dd/mm/yy"

[tupthai]

ดูตามภาพเลยครับ

[jaruek]

ต้องสร้างปุ่ม Command เพื่อเรียกใช้ใช่หรือไม่ครับ

[tupthai]

ลากมาวาดใน Userform ได้เลยครับแทน Textbox
ส่วนการเขียน code
ws.Cells(erow, 1) = DTPicker1.Value

[jaruek]

ผมลองทำแล้วไม่เหมือนตัวอย่างที่ทำให้ดูครับ ส่งไฟล์ตัวอย่างมาให้ดูแล้วครับ

[joo]

ลองสร้างฟอร์มปฏิทินขึ้นมาอีก 1 ฟอร์ม จากนั้นที่ฟอร์ม frmpertloc เพิ่ม textbox เพื่อรับวันที่และเพิ่มปุ่มคำสั่งสำหรับเรียกปฏิทินขึ้นมาใช้งาน ที่ฟอร์มปฏิทินฝังโค๊ดนี้ลงไป

Code: Select all

Private Sub CalDate_Click()
frmpertloc!TextBox25 = Format(CalDate.Value, "d-mmm-yyyy")
Unload Me
End Sub
Private Sub UserForm_Initialize()
   Me.CalDate.Value = Date
End Sub

ลองดูตามไฟล์แนบครับว่าตรงกับที่ต้องการหรือไม่

[tupthai]

ผมลองทำแล้วไม่เหมือนตัวอย่างที่ทำให้ดูครับ ส่งไฟล์ตัวอย่างมาให้ดูแล้วครับ

เป็น control คนละตัวกันครับ
กรณี error ลองอ่าน linkนี้ครับ
http://www.snasui.com/viewtopic.php?f=9&t=2994

[jaruek]

ลองสร้างฟอร์มปฏิทินขึ้นมาอีก 1 ฟอร์ม จากนั้นที่ฟอร์ม frmpertloc เพิ่ม textbox เพื่อรับวันที่และเพิ่มปุ่มคำสั่งสำหรับเรียกปฏิทินขึ้นมาใช้งาน ที่ฟอร์มปฏิทินฝังโค๊ดนี้ลงไป

Code: Select all

Private Sub CalDate_Click()
frmpertloc!TextBox25 = Format(CalDate.Value, "d-mmm-yyyy")
Unload Me
End Sub
Private Sub UserForm_Initialize()
   Me.CalDate.Value = Date
End Sub

ลองดูตามไฟล์แนบครับว่าตรงกับที่ต้องการหรือไม่

ลอง เรียกใช้แล้วขึ้น Error Can't find project or liabary ครับ

[snasui]

ผมลองทำแล้วไม่เหมือนตัวอย่างที่ทำให้ดูครับ ส่งไฟล์ตัวอย่างมาให้ดูแล้วครับ

ผมไม่พบว่าได้ Add Control มาแล้ว ช่วยจับภาพหรืออธิบายว่า Date Time Picker อยู่ตรงไหนใน Userform

กรณีเป็นปัญหาในกระทู้นี้ ไม่ควรยกไปถามต่อในกระทู้อื่นครับ ที่ไปถามไว้ผมลบออกไปแล้ว

[jaruek]

ผมลองทำแล้วไม่เหมือนตัวอย่างที่ทำให้ดูครับ ส่งไฟล์ตัวอย่างมาให้ดูแล้วครับ

ผมไม่พบว่าได้ Add Control มาแล้ว ช่วยจับภาพหรืออธิบายว่า Date Time Picker อยู่ตรงไหนใน Userform

กรณีเป็นปัญหาในกระทู้นี้ ไม่ควรยกไปถามต่อในกระทู้อื่นครับ ที่ไปถามไว้ผมลบออกไปแล้ว

ขออภัยครับ ที่แนบผิดกระทู้ไป พอดีกำลังสับสนน่ะครับเปิดไฟล์ไว้หลายไฟล์ ตอนนี้ทำได้แล้วครับ ขอบคุณมากครับ

[jaruek]

เลือกวันที่ตรงช่อง เข้าพักแล้วขึ้น Error ตามไฟล์แนบครับ

[tupthai]

ที่ userform frmDin

Code: Select all

Private Sub UserForm_Initialize()
   Me.Calendar1.Value = Date
End Sub
Private Sub Calendar1_Click()
    frmpertloc!TextBox3 = Format(Calendar1.Value, "dd/mm/yy")
    Unload Me
End Sub

[jaruek]

ที่ userform frmDin

Code: Select all

Private Sub UserForm_Initialize()
   Me.Calendar1.Value = Date
End Sub
Private Sub Calendar1_Click()
    frmpertloc!TextBox3 = Format(Calendar1.Value, "dd/mm/yy")
    Unload Me
End Sub

ได้แล้วครับ ขอบคุณมากครับ