Snasui Excel Forum

Code: Select all

Private Sub CommandButton4_Click()
On Error Resume Next
Sheets("°Ò¹¢éÍÁÙÅÅèǧàÇÅÒ").Select
    If CobBox01.Value = True Then
        If MsgBox(" ·èÒ¹µéͧ¡Òà  ź   ¢éÍÁÙŹÕéãªèËÃ×ÍäÁè ? ", vbYesNo + vbQuestion, "ź¢éÍÁÙÅ") = vbYes Then
                Range("A7").Select
                Do While True
                        If ActiveCell.Value = CobBox01.Text Then
                        Call UnprotectSheets
                        ActiveCell.Offset(0, 0).EntireRow.Delete
                        Unload Me
                        Call ProtectSheets
                        UserForm5.Show
                    Exit Sub
                End If
                    ActiveCell.Offset(1, 0).Select
                Loop
                Else: End
            End If
        Else
                MsgBox " ¤é¹ËÒ¢éÍÁÙÅ¡è͹¨Ö§·Ó¡ÒÃźä´é", vbExclamation, "ź¢éÍÁÙÅ"
        End If
End Sub