這裡是和華碩翻譯有關的地盤,歡迎到訪我的BLOG!

盧威語翻譯            Me.txtID.Value = ""

    Else    '不合適者
    'txtID內容為空則退出法式
        '添加到工作表
    '斷根txtID內容
'UserForm起作用時
End Sub
        add
    Me.txtID.Value = ""
    '保證光標處在txtID控件中

也許這類的控制因個人的設置與要求而有所不同，可是若是翻譯公司在設計時有所挫折的話可以參考一下這裡的作法：

        '往右二格寫入txtID的資料
            '若存在, 顯示反複訊息
Sub add()

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

Private Sub UserForm_Activate()
    If txtID.Value Like "?????" Then
    '回歸原本Exit屬性

下載範例檔案

Dim noExit As Boolean       '此旗標用於決議txtID文字框之Exit動作是不是執行
        Set FD = .Columns(3).Cells.Find(Me.txtID.Value翻譯社 LookIn:=xlValues, lookat:=xlWhole)
        End If

下載典範檔案

    noExit = True
    noExit = False
        MsgBox "毛病! 請從新輸入.", 1 + 32翻譯社 "提醒"
            '退出法式
        FD = Date
        FD.Offset(0翻譯社 2).NumberFormatLocal = "@"
        FD.Offset(0, 1) = Time

    '不是按下Enter鍵則退出法式
    Cancel = noExit
'文字框txtID按下鍵盤事宜
    'txtID內容符合格式翻譯社 即5個文數字
            Exit Sub
        '往右一格寫入當前時間
        Me.txtID.Value = ""
        If Not FD Is Nothing Then

頁面顯示如圖

    '不履行退出本控件的動作
    If KeyCode <> 13 Then Exit Sub
'文字框txtID的Exit事件
        '顯示訊息

第二下載區

        '在C欄搜尋txtID以內容看看使否已存在該筆資料
    End With
        Set FD = .Range("a65536").End(xlUp).Offset(1, 0)
            MsgBox "Data is duplicated!"

---

End Sub
'增添txtID的內容到Sheet1工作表C欄第一個空的儲存格
'ClearBtn按鈕Click事務
    '排除txtID文字空的內容
End Sub
        '還不存在該筆資料, 則找到A欄第一個空貯存格
    Dim FD As Range
    End If
'退出按鈕Click事宜

---

---

End Sub