marieu3775l3@outlook.com

'UserForm模組程式瑪
'文字框txtID的Exit事務
        '在C欄搜尋txtID之內容看看使否已經存在該筆資料
Private Sub txtID_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        '還不存在該筆資料, 則找到A欄第一個空貯存格
    '不是按下Enter鍵則退出法式
Private Sub txtID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.txtID.SetFocus
Dim noExit As Boolean       '此旗標用於決意txtID文字框之Exit動作是否執行
        '往右二格寫入txtID的資料
        add
'文字框txtID按下鍵盤事件
    noExit = True

第二下載區

End Sub
    Me.txtID.Value = ""
        FD = Date
            '退出法式
    Else    '不符合者
        FD.Offset(0, 2) = txtID.Value
    '清除txtID文字空的內容
    '保證光標處在txtID控件中
        Me.txtID.Value = ""
    End If
        '顯示訊息
        FD.Offset(0, 2).NumberFormatLocal = "@"
End Sub

1. 利用KeyDown事件偵測所按下的鍵是 [Enter]，也就是KeyCode=13。如果是進進行處置動作，並設置noExit旗標為True。
2. 在産生Exit事務時，根據noExit旗標決議是不是Cancel。同時恢復noExit旗標為False。
3. 由於以上的設置讓我們得以在輸入過程當中可以按 [Clear] 按鈕清除TextBox內容，從新輸入。不需要按Backspace一個一個字元刪除翻譯

'UserForm起感化時
    '回歸本來Exit屬性
            MsgBox "Data is duplicated!"
    noExit = False
Sub add()
    Unload Me
        '寫入當前日期
    'txtID內容契合格式, 即5個文數字
'增添txtID的內容到Sheet1工作表C欄第一個空的貯存格
Private Sub UserForm_Activate()
        Set FD = .Range("a65536").End(xlUp).Offset(1, 0)
    'txtID內容為空則退出程序
        If Not FD Is Nothing Then

---

    '排除txtID內容

頁面顯示如圖

    '光標移至txtID文字框中
            '排除txtID內容
    If txtID.Value Like "?????" Then
        '往右一格寫入當前時候
    '不履行退出本控件的動作
    Dim FD As Range
    '卸載UserForm