Excel Forum

ผมได้เขียน code มาถึงตรงนี้ครับ และพบว่า code นั้นมีปัญหาในเรื่องของการ delete จึงอยากเรียนสอบถามว่า ผมต้องแก้ตรงไหนครับ

Code ที่เขียนมา เป็นดังนี้


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()
Unload Me
End Sub

Private Sub CommandButton3_Click()
answer = MsgBox("ทำการลบข้อมูล", vbYesNo + vbQuestion, "ลบข้อมูล")
If answer = vbYes Then
Cells(currentrow, 1).EntireRow.Delete
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = " "
TextBox2.Value = " "
TextBox3.Value = " "
End Sub
Private Sub Label2_Click()

End Sub

ตามที่ คุณ Logic แจ้งครับ viewtopic.php?f=3&t=15411
ตามกระทู้เดิม ถ้าเป็นเรื่องเดิมให้ใช้กระทู้เดิม ทำตามผู้แจ้ง ตามกฏของบอร์ดนี้ด้วยครับ