Page 1 of 1
ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 2:25 pm
by jaruek
เวลาเรียกใช้ Userform ต้องการให้แสดง ปฎิทิน เพื่อเลือกวันที่ ในช่องที่เราใส่วันที่ ต้องปรับโค้ดเพิ่มเติมอย่างไรครับ
ตัวอย่างโค้ดที่เขียนมาเป็น TextBox สำหรับบันทึกวันที่ครับ
ws.Cells(erow, 1) = TextBox23.Text
ws.Cells(erow, 1).NumberFormat = "dd/mm/yy"
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 3:00 pm
by tupthai
ดูตามภาพเลยครับ
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 3:27 pm
by jaruek
ต้องสร้างปุ่ม Command เพื่อเรียกใช้ใช่หรือไม่ครับ
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 3:34 pm
by tupthai
ลากมาวาดใน Userform ได้เลยครับแทน Textbox
ส่วนการเขียน code
ws.Cells(erow, 1) = DTPicker1.Value
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 4:06 pm
by jaruek
ผมลองทำแล้วไม่เหมือนตัวอย่างที่ทำให้ดูครับ ส่งไฟล์ตัวอย่างมาให้ดูแล้วครับ
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 7:46 pm
by 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
ลองดูตามไฟล์แนบครับว่าตรงกับที่ต้องการหรือไม่
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 9:08 pm
by tupthai
ผมลองทำแล้วไม่เหมือนตัวอย่างที่ทำให้ดูครับ ส่งไฟล์ตัวอย่างมาให้ดูแล้วครับ
เป็น control คนละตัวกันครับ
กรณี error ลองอ่าน linkนี้ครับ
http://www.snasui.com/viewtopic.php?f=9&t=2994
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 10:08 pm
by jaruek
joo wrote: ลองสร้างฟอร์มปฏิทินขึ้นมาอีก 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 ครับ
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Thu Mar 28, 2013 10:43 pm
by snasui
jaruek wrote:ผมลองทำแล้วไม่เหมือนตัวอย่างที่ทำให้ดูครับ ส่งไฟล์ตัวอย่างมาให้ดูแล้วครับ
ผมไม่พบว่าได้ Add Control มาแล้ว ช่วยจับภาพหรืออธิบายว่า Date Time Picker อยู่ตรงไหนใน Userform
กรณีเป็น
ปัญหาในกระทู้นี้ ไม่ควรยกไปถามต่อในกระทู้อื่นครับ ที่ไปถามไว้ผมลบออกไปแล้ว
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Fri Mar 29, 2013 4:46 pm
by jaruek
snasui wrote:jaruek wrote:ผมลองทำแล้วไม่เหมือนตัวอย่างที่ทำให้ดูครับ ส่งไฟล์ตัวอย่างมาให้ดูแล้วครับ
ผมไม่พบว่าได้ Add Control มาแล้ว ช่วยจับภาพหรืออธิบายว่า Date Time Picker อยู่ตรงไหนใน Userform
กรณีเป็น
ปัญหาในกระทู้นี้ ไม่ควรยกไปถามต่อในกระทู้อื่นครับ ที่ไปถามไว้ผมลบออกไปแล้ว
ขออภัยครับ ที่แนบผิดกระทู้ไป พอดีกำลังสับสนน่ะครับเปิดไฟล์ไว้หลายไฟล์ ตอนนี้ทำได้แล้วครับ ขอบคุณมากครับ
เลือกวันที่ตรงช่องเข้าพัก แล้วขึ้น Error
Posted: Sat Mar 30, 2013 12:38 pm
by jaruek
เลือกวันที่ตรงช่อง เข้าพักแล้วขึ้น Error ตามไฟล์แนบครับ
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Sat Mar 30, 2013 2:45 pm
by 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
Re: ต้องการให้แสดง calendar เพื่อเลือกวันที่
Posted: Mon Apr 01, 2013 1:43 pm
by jaruek
tupthai wrote:ที่ 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
ได้แล้วครับ ขอบคุณมากครับ