Code entire delete ไม่ทำงาน
Posted: Thu Jun 13, 2019 9:55 am
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
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