古普羅旺斯語翻譯'文字框txtID按下鍵盤事宜
'ClearBtn按鈕Click事宜

        add
End Sub
    Unload Me
    Dim FD As Range


    '回歸本來Exit屬性
    Me.txtID.Value = ""
            Me.txtID.Value = ""
Private Sub txtID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        '添加到工作表
Private Sub ExitBtn_Click()
        '在C欄搜索txtID以內容看看使否已經存在該筆資料
        FD.Offset(0, 1) = Time

第二下載區

        End If
        '顯示訊息
            '若存在翻譯社 顯示反複訊息
End Sub
    End With
  1. 利用KeyDown事宜偵測所按下的鍵是 [Enter]，也就是KeyCode=13翻譯如果是進進行處置懲罰動作，並設置noExit旗標為True。
  2. 在産生Exit事宜時，根據noExit旗標決意是否Cancel。同時恢復noExit旗標為False。
  3. 由於以上的設置讓我們得以在輸入過程當中可以按 [Clear] 按鈕肅清TextBox內容，從新輸入。不需要按Backspace一個一個字元刪除。
    Me.txtID.Value = ""
        '往右一格寫入當前時候
        '清除txtID內容
    'txtID內容相符花樣翻譯社 即5個文數字
'UserForm起感化時
        FD = Date
    '光標移至txtID文字框中
        MsgBox "毛病! 請從新輸入.", 1 + 32, "提示"
    '肅清txtID內容
        '還不存在該筆資料, 則找到A欄第一個空貯存格
    If KeyCode <> 13 Then Exit Sub
        '往右二格寫入txtID的資料
參考程式瑪
'UserForm模組程式瑪
Private Sub ClearBtn_Click()
'文字框txtID的Exit事宜
        '寫入當前日期


所謂【行使UserForm之TextBox來連續輸入資料】就是說進展在一個TextBox中鍵入資料（例如條碼資料，假定花樣為5個文數字），當天成翻譯公司們按 [Enter] 鍵後資料即寫入工作表之貯存格，而光標能不脫離該TextBox，可以立即輸入下一筆資料的意思翻譯
        Set FD = .Columns(3).Cells.Find(Me.txtID.Value翻譯社 LookIn:=xlValues, lookat:=xlWhole)
End Sub
            MsgBox "Data is duplicated!"

或許這類的節制因小我的設置與要求而有所分歧，但是假如翻譯公司在設計時有所挫折的話可以參考一下這裡的作法：

Private Sub txtID_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
            Exit Sub
Sub add()
    Cancel = noExit
    '卸載UserForm
        If Not FD Is Nothing Then

下載範例檔案

    'txtID內容為空則退出程序
        Set FD = .Range("a65536").End(xlUp).Offset(1, 0)

    With Sheets("Sheet1")

頁面顯示如圖

    If txtID = "" Then Exit Sub
    '不是按下Enter鍵則退出法式
    Me.txtID.SetFocus
    '在Sheet1工作表中
End Sub
            '退出法式

'增加txtID的內容到Sheet1工作表C欄第一個空的貯存格
    noExit = True
'退出按鈕Click事宜

下載類型檔案

Private Sub UserForm_Activate()
End Sub
        FD.Offset(0翻譯社 2) = txtID.Value
    '不履行退出本控件的動作
    Me.txtID.SetFocus
    Else    '不吻合者
    '包管光標處在txtID控件中
        FD.Offset(0, 2).NumberFormatLocal = "@"
    End If
    '肅清txtID文字空的內容
            '肅清txtID內容
        Me.txtID.Value = ""
End Sub
    If txtID.Value Like "?????" Then
Dim noExit As Boolean       '此旗標用於決意txtID文字框之Exit動作是不是執行
    '根據noExit決定是不是Exit
    noExit = False



引用自: https://blog.xuite.net/crdotlin/excel/13503362-%E5%88%A9%E7%94%A8UserForm%E4%B9%8BTextBox%E4%BE%86%E有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931

arrow
arrow
    文章標籤
    翻譯社
    全站熱搜

    floressknryt 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄