Snasui Excel Forum

ผมต้องการนำวันที่ ที่กรอกลงไปใน Userform ไปบันทึกลงใน Cells(J2) ซึ่งสามารถทำได้แล้ว แต่ข้อมูลที่บันทึกไป เป็นรูปแบบที่ไม่ใช่วันที่ ทำให้ Cells (J3และJ4) คำนวณต่อไม่ได้ครับ ผมลองเขียน Code ดูตามไฟล์ที่แนบแล้ว แต่ยังไม่สามารถทำได้ครับ รบกวนอาจารย์ช่วยดูหน่อยครับ

ปรับเป็น

puriwutpokin wrote: Thu Jan 25, 2018 1:02 pm ปรับเป็น

Code: Select all

Private Sub CommandButton1_Click()

    Worksheets("Time").Cells(2, 10).Value = DateValue(Cbday1 & "/" & Cbmonth1 & "/" & Cbyear1)
  'Worksheets("Time").Cells(2, 10).Value = Format(Worksheets("Time").Cells(2, 10), "[$-41E]d mmmm yyyy")
    
 '   Lbweek1 = Worksheets("Time").Cells(3, 10).Value
 '   Lbcycle1 = Worksheets("Time").Cells(4, 10).Value
End Sub
End Sub

ลองปรับแก้แล้ว ยังขึ้น Run-time Error อยู่ครับ

ตัดตัว End Sub ครับผมเผลอคัดลอกซ้ำไปด้วยครับ

puriwutpokin wrote: Thu Jan 25, 2018 1:42 pm ตัดตัว End Sub ครับผมเผลอคัดลอกซ้ำไปด้วยครับ

ผมลองลบตั้งแต่รอบแรกแล้วครับ แต่ยังติดปัญหาแบบที่แจ้งไป รบกวนด้วยครับ ขอบคุณมากครับ

วันกองทัพ wrote: Thu Jan 25, 2018 1:50 pm

puriwutpokin wrote: Thu Jan 25, 2018 1:42 pm ตัดตัว End Sub ครับผมเผลอคัดลอกซ้ำไปด้วยครับ

ผมลองลบตั้งแต่รอบแรกแล้วครับ แต่ยังติดปัญหาแบบที่แจ้งไป รบกวนด้วยครับ ขอบคุณมากครับ

ลองรันตามไฟล์แนบครับ ผมรันผ่านนะครับ

puriwutpokin wrote: Thu Jan 25, 2018 2:36 pm

วันกองทัพ wrote: Thu Jan 25, 2018 1:50 pm

puriwutpokin wrote: Thu Jan 25, 2018 1:42 pm ตัดตัว End Sub ครับผมเผลอคัดลอกซ้ำไปด้วยครับ

ผมลองลบตั้งแต่รอบแรกแล้วครับ แต่ยังติดปัญหาแบบที่แจ้งไป รบกวนด้วยครับ ขอบคุณมากครับ

ลองรันตามไฟล์แนบครับ ผมรันผ่านนะครับ

แก้ไขได้แล้วครับ
Cbmonth1.RowSource = "Time!F2:F13"
Cbmonth1.Text = Application.Text(Date, "ดดดด") เป็น
Cbmonth1.RowSource = "Time!F2:F13"
Cbmonth1.Text = Application.Text(Date, "mmmm")

ขอบคุณที่ช่วยเหลือครับ