Snasui Excel Forum

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


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

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


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

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

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

ปรับเป็น
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 ...

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