Page 1 of 1
สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 9:11 am
by djung
ปัจจุบันผมจะส่งค่าจาก form โดยการกดปุ่มคำสั่ง Update data บน form ที่ผมสงสัยคือเราสามารถคีย์ข้อมูลเสร็จแล้วกดปุ่ม Enter บน Keyboard แล้วส่งข้อมูลชุดนั้นไปยัง Sheet ใน Excel
เลย ต้องใช้คำสั่งใหนครับ ขอบคุณครับ
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 10:17 am
by 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
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 10:27 am
by djung
ขอบคุณ puriwutpokin มากๆครับ ตรงตามความต้องการเลยครับ
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 10:42 am
by djung
สอบถามเพิ่มเติมอีกหน่อยครับ ถ้าผมปรับ code เพิ่มเพื่อจะไปคีย์ข้อมูลในsheetต่อ ในcolumn B กับ C แต่ว่าเมื่อเราปิด form แล้วกลับคีย์ข้อมูลลงใน sheet ไม่ได้ ต้องคลิกลงไปใน sheet ก่อนหนึ่งครั้งถึงจะคีย์ได้ ผมต้องแก้ code ตรงใหนครับ
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 12:38 pm
by 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
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 1:04 pm
by djung
ยังไม่ได้ครับคุณ puriwutpokin ผมแก้ code แล้วมันยังเหมือนเดิมนะครับ เมื่อกรอกข้อมูลแล้วกดEnter form จะหายไป cells B3 จะถูกเลือก แต่กรอกข้อมูลอะไรลงไปไม่ได้ ต้องคลิกเข้าไปก่อน1ครั้งนะครับ
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 1:25 pm
by 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
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 4:40 pm
by djung
ไม่ใช้เลื่อนไปทางขวาครับคุณ puriwutpokin คือขั้นตอนจะเป็นอย่างนี้นะครับ(เอาจากไฟล์แนบนี้นะครับ) 1.คลิกเปิด form 2.คีย์ข้อมูล 3.Enter ข้อมูลเข้าไปใน Sheet DATA แล้ว form จะถูกปิดไป 4.ในแถวที่ข้อมูลไปแสดง cell ถัดมาจะถูกเลือกเพื่อจะป้อนข้อมูลต่อ ปัญหาคือ ปัจจุบันมันเลือก cell ถัดมาให้แล้วแต่ว่าผมไม่สามารถที่จะคีย์อะไรได้ ต้องคลิกลงไปหนึ่งครั้งก่อนนะครับถึงจะป้อนข้อมูลได้
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Fri Nov 21, 2014 9:50 pm
by 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
Re: สอบถามการส่งค่าจาก form โดยการกดปุ่ม Enter
Posted: Sat Nov 22, 2014 8:52 am
by djung
ขอบคุณอาจารย์มากครับทำได้แล้วครับ