สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter

[djung]

ปัจจุบันผมจะส่งค่าจาก form โดยการกดปุ่มคำสั่ง Update data บน form ที่ผมสงสัยคือเราสามารถคีย์ข้อมูลเสร็จแล้วกดปุ่ม Enter บน Keyboard แล้วส่งข้อมูลชุดนั้นไปยัง Sheet ใน Excel
เลย ต้องใช้คำสั่งใหนครับ ขอบคุณครับ

[puriwutpokin]

ปรับเป็นPrivate Sub ComButtonData_Enter()
i = Sheets("DATA").Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(i, 1) = TBoxData
TBoxData = ""
TBoxData.SetFocus
End Sub

[djung]

ขอบคุณ puriwutpokin มากๆครับ ตรงตามความต้องการเลยครับ

[djung]

สอบถามเพิ่มเติมอีกหน่อยครับ ถ้าผมปรับ code เพิ่มเพื่อจะไปคีย์ข้อมูลในsheetต่อ ในcolumn B กับ C แต่ว่าเมื่อเราปิด form แล้วกลับคีย์ข้อมูลลงใน sheet ไม่ได้ ต้องคลิกลงไปใน sheet ก่อนหนึ่งครั้งถึงจะคีย์ได้ ผมต้องแก้ code ตรงใหนครับ

[puriwutpokin]

ลองดูนะครับ Private Sub ComButtonData_Enter()
i = Sheets("DATA").Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row + 1
Cells(i, ActiveCell.Column) = TBoxData
UserForm1.Hide
Sheets("DATA").Activate
Sheets("DATA").Cells(i, ActiveCell.Column + 1).Select
End Sub

[djung]

ยังไม่ได้ครับคุณ puriwutpokin ผมแก้ code แล้วมันยังเหมือนเดิมนะครับ เมื่อกรอกข้อมูลแล้วกดEnter form จะหายไป cells B3 จะถูกเลือก แต่กรอกข้อมูลอะไรลงไปไม่ได้ ต้องคลิกเข้าไปก่อน1ครั้งนะครับ

[puriwutpokin]

แบบ คีย์แล้วไปทางขวา ใช่ไหมครับ
Private Sub ComButtonData_Enter()
i = Sheets("DATA").Cells(2, Columns.Count).End(xlToLeft).Column + 1
Cells(2, i) = TBoxData
TBoxData = ""
TBoxData.SetFocus
End Sub

[djung]

ไม่ใช้เลื่อนไปทางขวาครับคุณ puriwutpokin คือขั้นตอนจะเป็นอย่างนี้นะครับ(เอาจากไฟล์แนบนี้นะครับ) 1.คลิกเปิด form 2.คีย์ข้อมูล 3.Enter ข้อมูลเข้าไปใน Sheet DATA แล้ว form จะถูกปิดไป 4.ในแถวที่ข้อมูลไปแสดง cell ถัดมาจะถูกเลือกเพื่อจะป้อนข้อมูลต่อ ปัญหาคือ ปัจจุบันมันเลือก cell ถัดมาให้แล้วแต่ว่าผมไม่สามารถที่จะคีย์อะไรได้ ต้องคลิกลงไปหนึ่งครั้งก่อนนะครับถึงจะป้อนข้อมูลได้

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Private Sub ComButtonData_Enter()
    i = Sheets("DATA").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(i, 1) = TBoxData
    Unload Me
    Sheets("DATA").Cells(i + 1, 1).Select
End Sub

[djung]

ขอบคุณอาจารย์มากครับทำได้แล้วครับ