首頁內容方案關於
蔡基男的沙龍
Private Sub CommandButton1_Click()
On Error GoTo ErrHandler
If Trim(ActiveSheet.Range("E3").Value) <> "N" Then
MsgBox "輸入不符請重新輸入！
Private Sub CommandButton1_Click()
On Error GoTo ErrHandler
If Trim(ActiveSheet.Range("E3").Value) <> "N" Then
MsgBox "輸入不符請重新輸入！
