close

當口譯    '清除txtID文字空的內容
        '寫入當前日期

頁面顯示如圖

    If txtID = "" Then Exit Sub
Private Sub txtID_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
End Sub
    '保證光標處在txtID控件中
            '若存在, 顯示反複訊息
            Exit Sub
Private Sub ExitBtn_Click()


        add
    Else    '不契合者
    '肅清txtID內容
    Me.txtID.Value = ""
End Sub
    '在Sheet1工作表中
            MsgBox "Data is duplicated!"
    With Sheets("Sheet1")


    Me.txtID.SetFocus
    '卸載UserForm
'文字框txtID的Exit事宜
    Me.txtID.Value = ""
'ClearBtn按鈕Click事件
'UserForm起作用時


PrivateSub

UserForm_Activate()
Private Sub txtID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim noExit As Boolean       '此旗標用於決定txtID文字框之Exit動作是否履行
    '不是按下Enter鍵則退出法式
        '往右一格寫入當前時候

參考程式瑪
'UserForm模組程式瑪
        FD.Offset(0, 1) = Time
End Sub
  1. 利用KeyDown事務偵測所按下的鍵是 [Enter]，也就是KeyCode=13。若是是進進行處置動作，並設置noExit旗標為True翻譯
  2. 在産生Exit事宜時，依據noExit旗標決意是不是Cancel。同時恢復noExit旗標為False。
  3. 由於以上的設置讓我們得以在輸入過程中可以按 [Clear] 按鈕清除TextBox內容，重新輸入。不需要按Backspace一個一個字元刪除。
        '往右二格寫入txtID的資料

下載規範檔案

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

        FD.Offset(0翻譯社 2) = txtID.Value
            '排除txtID內容
EndSub

        FD.Offset(0, 2).NumberFormatLocal = "@"
End Sub


            Me.txtID.Value = ""
'退出按鈕Click事宜
    noExit = False
        '顯示訊息
        '排除txtID內容
        '添加到工作表
        If Not FD Is Nothing Then
    '光標移至txtID文字框中


        MsgBox "毛病! 請從頭輸入.", 1 + 32, "提示"
    Unload Me
            '退出法式
'文字框txtID按下鍵盤事務
    If KeyCode <> 13 Then Exit Sub
End Sub
        FD = Date
    'txtID內容契合格局, 即5個文數字
        Me.txtID.Value = ""
        Set FD = .Range("a65536").End(xlUp).Offset(1翻譯社 0)
    '回歸本來Exit屬性
    If txtID.Value Like "?????" Then
        End If
Private Sub ClearBtn_Click()
    End If
    '依據noExit決定是不是Exit
        '在C欄搜尋txtID以內容看看使否已存在該筆資料
    noExit = True
    Dim FD As Range
    End With

下載範例檔案


    Cancel = noExit
Sub add()

    '不執行退出本控件的動作
    'txtID內容為空則退出法式
所謂【使用UserForm之TextBox來連續輸入資料】就是說希望在一個TextBox中鍵入資料（例如條碼資料，假設花樣為5個文數字），當天成翻譯公司們按 [Enter] 鍵後資料即寫入工作表之儲存格，而光標能不離開該TextBox，可以立刻輸入下一筆資料的意思翻譯
        Set FD = .Columns(3).Cells.Find(Me.txtID.Value翻譯社 LookIn:=xlValues, lookat:=xlWhole)

        '還不存在該筆資料翻譯社 則找到A欄第一個空貯存格
'增加txtID的內容到Sheet1工作表C欄第一個空的儲存格

第二下載區

    Me.txtID.SetFocus


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

arrow
arrow
    文章標籤
    翻譯社
    全站熱搜
    創作者介紹
    創作者 evansi71dd7 的頭像
    evansi71dd7

    darlenmarypu

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

    E-mail轉寄