Snasui Excel Forum

Posted: **Thu Jun 07, 2018 12:09 am**

รบกวนขอสอบถามหน่อยครับ พอดีไปเจอตัว Date picker ในเว็บ https://trevoreyre.com/portfolio/excel-datepicker/ มาครับแล้วเอามาลองทำให้วันที่ที่เลือกนั้นไปแสดงอยู่ที่ TextBox1 มันไม่ยอมแสดงครับ
ช่วยแนะนำทีครับ

Code: Select all

Private Sub CommandButton1_Click()
AdvancedCalendar 'มาจาก Module1
End Sub

Code: Select all

Private Sub CalendarForm_Change()
UserForm1.TextBox1.value = CalendarForm.value
End Sub

Posted: **Thu Jun 07, 2018 7:15 am**

ตัวอย่างการปรับ Code ที่ปุ่ม OKay ของ CalendaForm ครับ

Code: Select all

Private Sub cmdOkay_Click()
    DateOut = SelectedDateIn
    UserForm1.TextBox1 = SelectedDateIn
    Me.Hide
End Sub

Posted: **Thu Jun 07, 2018 7:49 am**

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

Snasui Excel Forum

[VBA] ขอสอบถามเลือกวันที่ date picker แล้วให้ไปลงใน Textbox

[VBA] ขอสอบถามเลือกวันที่ date picker แล้วให้ไปลงใน Textbox

Re: [VBA] ขอสอบถามเลือกวันที่ date picker แล้วให้ไปลงใน Textbox

Re: [VBA] ขอสอบถามเลือกวันที่ date picker แล้วให้ไปลงใน Textbox