ขอคำแนะนำ Code VBA ไม่แสดงในช่องครับ

[Worakan]

ผู้ที่มีความรู้ทุกท่าน ผมกำลังเริ่มหัดทำ Userfrom โดยที่เรียนรู้ในเพจนี้และyoutube เพื่อปรับกับการทำงานครับ
1.เมื่อผมใส่Code ที่ปุ่ม เพิ่มข้อมูลใหม่แล้ว ผลที่ออกมาคือ ข้อมูลไปแสดงทับหัวข้อที่แถวที่ 5
2.หลังจากนั้นผมลองเพิ่มข้อมูลใหม่ ผลคือ ข้อมูลยังแสดงอยู่ที่เดิม ไม่แสดงในแถวถัดไป
3. หากหัวข้อในตรารางเป็นวันที่ เราจะเขียนCode อย่างไรเพื่อให้ใน Form ของเราแสดงรูปแบบวันที่ได้เลยครับ
จึงขอคำแนะนำและแก้ไข Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
Sheets("รายการประมูล").Select
lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lastRow, 1) = lastRow - 1
Cells(lastRow, 1) = Activate
Cells(lastRow, 2) = TextBox1.Value
Cells(lastRow, 3) = TextBox2.Value
Cells(lastRow, 4) = TextBox3.Value
Cells(lastRow, 5) = TextBox4.Value
Cells(lastRow, 6) = TextBox5.Value
Cells(lastRow, 7) = TextBox6.Value
Cells(lastRow, 8) = TextBox7.Value
Cells(lastRow, 9) = TextBox8.Value
Cells(lastRow, 10) = TextBox9.Value
Cells(lastRow, 11) = TextBox10.Value
Cells(lastRow, 12) = TextBox11.Value
Cells(lastRow, 13) = TextBox12.Value
Cells(lastRow, 14) = TextBox13.Value
Cells(lastRow, 15) = TextBox14.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""


End Sub

[snasui]

ตัวอย่าง Code เฉพาะบรรทัดที่ต้องปรับปรุงครับ

Code: Select all

'...Other code
lastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(lastRow, 1) = lastRow - 5
Cells(lastRow, 1).Activate
'...Other code

กรณีต้องการจัดรูปแบบ TextBox ใน UserForm ต้องมีการจัดการ Event Change ของ TextBox นั้น ๆ หรือ Event ใด ๆ Control อื่นที่เกียวข้อง (Control คือ Object ใด ๆ ที่ลากไปวางใน UserForm ส่วน Event คือเหตุการณ์ใด ๆ ที่กระทำกับ Control นั้น) ซึ่งจะต้องลงรายละเอียดว่าต้องการให้เป็นรูปแบบวันที่ เมื่อเกิดเหตุการณ์ใด เช่นเมื่อคีย์เสร็จ เมื่อ Click เลือก Control ถัดไป ฯลฯ

ปกติเมื่อดับเบิ้ลคลิก Control โปรแกรมจะแสดง Event Change มาให้ เราสามารถเลือก Event อื่น ๆ ได้จากกล่อง ComboBox ด้านขวามือบนของ Code Window ตามภาพ ลองเขียน Code สำหรับการจัดการ Format มาก่อน ติดตรงไหนค่อยถามกันต่อครับ