阿柯利文翻譯翻譯社Private Sub ExitBtn_Click()
Dim noExit As Boolean '此旗標用於決議txtID文字框之Exit動作是不是履行
'不履行退出本控件的動作
Set FD = .Columns(3).Cells.Find(Me.txtID.Value翻譯社 LookIn:=xlValues翻譯社 lookat:=xlWhole)
Me.txtID.Value = ""
Unload Me
第二下載區
noExit = True
'不是按下Enter鍵則退出法式
Set FD = .Range("a65536").End(xlUp).Offset(1, 0)
End Sub
FD.Offset(0, 1) = Time
If txtID.Value Like "?????" Then
Sub
add()
Private Sub ClearBtn_Click()
'清除txtID內容
'顯示訊息
'退出法式
'斷根txtID文字空的內容
也許這類的節制因小我的設置與要求而有所分歧，可是若是
'文字框txtID按下鍵盤事宜
Exit Sub
'UserForm起感化時
FD.Offset(0, 2).NumberFormatLocal = "@"
If KeyCode <> 13 Then Exit Sub
'在Sheet1工作表中
End Sub
Me.txtID.SetFocus
End Sub
Me.txtID.Value = ""
Else '不契合者
'在C欄搜索txtID之內容看看使否已存在該筆資料
Me.txtID.Value = ""
PrivateSub
UserForm_Activate()
'還不存在該筆資料翻譯社 則找到A欄第一個空貯存格
下載規範檔案
'若存在, 顯示反複訊息
'寫入當前日期
'退出按鈕Click事宜
End If
If Not FD Is Nothing Then
If txtID = "" Then Exit Sub
MsgBox "Data is duplicated!"
End With
Me.txtID.Value = ""
Cancel = noExit
noExit = False
FD.Offset(0, 2) = txtID.Value
'保證光標處在txtID控件中
下載範例檔案
'文字框txtID的Exit事件FD = Date
'txtID內容吻合格式, 即5個文數字
End If
'回歸原本Exit屬性
'增加txtID的內容到Sheet1工作表C欄第一個空的儲存格
'光標移至txtID文字框中
Dim FD As Range
'添加到工作表
'卸載UserForm
End Sub
With Sheets("Sheet1")
add
'往右一格寫入當前時候
Private Sub txtID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
- 利用KeyDown事宜偵測所按下的鍵是 [Enter]，也就是KeyCode=13。如果是進進行處置懲罰動作，並設置noExit旗標為True。
- 在發生Exit事宜時，根據noExit旗標決定是不是Cancel翻譯同時恢復noExit旗標為False。
- 由於以上的設置讓我們得以在輸入過程當中可以按 [Clear] 按鈕斷根TextBox內容，從頭輸入。不需要按Backspace一個一個字元刪除。
'往右二格寫入txtID的資料
Me.txtID.SetFocus
頁面顯示如圖
'根據noExit決定是否Exit
'斷根txtID內容
MsgBox "毛病! 請從頭輸入.", 1 + 32, "提醒"
End Sub
'排除txtID內容
以下文章來自: http://blog.xuite.net/crdotlin/excel/13503362-%E5%88%A9%E7%94%A8UserForm%E4%B9%8BTextBox%E4%BE%86%E9有關各國語文翻譯公證的問題歡迎諮詢萬國翻譯公司02-23690931
留言列表
