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