Snasui Excel Forum

คือพอดีจะทำการvlookup รูปภาพ ทำขั้นตอนอื่นได้หมดแล้ว ติดตรงที่พอคลิกที่รูปแล้ว ไม่สามารถพิมพ์อะไรได้เลย ในช่อง formula

คือเขียนโค้ดvbaในexcel 2003 แล้วไปเปิดที่เวอร์ชั่นสูงกว่า แล้วทำไรไม่ได้เลยครับ

ขึ้นว่า

Repaired Records: Drawing from /xl/drawings/drawing13.xml part (Drawing shape)
Repaired Records: Drawing from /xl/drawings/drawing14.xml part (Drawing shape)
Repaired Records: Drawing from /xl/drawings ...

ขอบคุณมากครับอาจารย์

คือมันไม่ใช่เรื่องใหญ่หรอกครับ แต่อยากถามไว้เป็นความรู้ว่า

ตอนผมกด Button 1 จะเห็นว่า เคอร์เซอร์ จะไปอยู่ใน Textbox แรกทันที พร้อมคีย์ข้อมูลทันที

แต่ถ้ากด Button 2 เหมือนเคอร์เซอร์จะไปอยู่ตรง Cmdbutton1 แทน เป็นเพราะอะไรครับ

ขอบคุณมากครับอาจารย์ จะนำไปปรับใช้ครับ

อันนี้โค้ดนะครับ

Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1

Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
End Sub

Private Sub CommandButton2_Click()
TextBox1.Value ...

รบกวนอีกนิดครับ ผมไม่อยากให้มันมันเริ่มบันทึก แถวที่1บรรทัดที่1 ผมต้องแก้ไขตรงไหนครับ

คือลองแก้แล้ว มันไม่ยอมบันทึกต่อกันในช่องที่ว่างอ่ะครับ

ใช้ MsgBox ครับ

Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1

Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
MsgBox "Hooray!!! บันทึกเรียบร้อยแล้ว"
End Sub

ขอบคุณมากคร ...

มาแล้วครับ

ใน userform1 นะครับ

ดูปุ่มเริ่มทำงานด้วยนะครับ มันต้องทำให้ตลอด

ปล.1สอน อีกเรื่องหน่อยนะครับ ไม่อยากให้สตาร์ทบันทึกข้อมูล ที่ row1columns1 เขียนอย่างไรครับ

Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1

Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
End Sub

คืออยากให้มันมีป้อปอัพขึ้น ประมาณว่าบันทึกสำเร็จ

แต่ไม่ต้องปิดหน้าต ...

ขอบคุณน้าครับสงสัยต้องรอกลับบ้านก่อน

เนตบริษัท ออกเวปนอกไม่ได้เลย T_T

คือ ใช้ Userform ในลักษณะเพิ่มข้อมูล

คือใส่ข้อมูลสามช่อง ก็กดเอนเทอร์ เรื่อยๆ

เมื่อเริ่มข้นมูลไปแล้ว ช่องที่เราใส่ข้อมูลไว้ มันยังค้าง

อยากให้เมื่อเครื่องสุดท้ายแล้ว ตรงtextbox ให้มันโล่งๆเลยได้มั้ย