VBA++ 題記： 靜下心，多學習有用的知識，多提高自己的水平和能力，這才是正道。時間就像一張網，你撒在哪里，你的收獲就在哪里。謹記自己的方向，這是路之所在。適當節制自我的各種欲望,誰都逃不過時間的歷練，誰都是命運的行者，誰都是在人生的道路上一步一趨。你要做的，是悄悄地去努力，等你變厲害之后，把自己也嚇一跳，才是你現在需要當作目標的事。把生活與工作打理好，不負年華。

欲成大事者，必先修其身。欲修其身者，先正其心。小成靠智，大成靠德。身不修則德不立，德不立則無以成事。

-----------------------------------------------------------------------------------------------

今日內容是和大家分享VBA編程中常用的 “積木”過程代碼，這些內容大多是取至我編寫的“VBA代碼解決方案”教程中內容。今日分享的是NO.209-NO.209，內容是：

NO. 209：利用文本框回車，完成復雜的人機對話過程

VBA過程代碼209：利用文本框回車，完成復雜的人機對話過程

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

With TextBox1

If Len(Trim(.Value)) > 0 Then

If KeyCode = vbKeyReturn Then

Sheets("sheet11").Range("A65536").End(xlUp).Offset(1, 0) = .Value

.Text = ""

End If

End If

End With

End Sub

代碼解析：文本框的KeyDown事件，在輸入數據并按<Enter>鍵后自動將數據錄入到工作表A列最后一個非空單元格的下一個單元格中。為了防止誤輸入空白數據，使用Len 函數和Trim 函數檢查文本框內是否為有效數據。根據KeyCode參數值判斷是否按下了回車鍵。如果用戶按下了回車鍵，KeyCode參數返回常數vbKeyReturn。將文本框數據輸入到工作表A列的最后一個單元格內，同時清空文本框內容準備下一次輸入。

-----------------------------------------------------------------------------------------------

VBA是實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現推出了四部VBA學習教程，這些是我多年編程經驗的記錄，也是我“積木編程”思想的體現。每一講都是一塊“積木”，可以獨立的完成某些或者某類的過程。利用這些可以大大提高自己的編程效率。

第一套：“VBA代碼解決方案”是PDF教程，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點，是初學及中級人員必備的資料；

第二套：“VBA數據庫解決方案”是PDF教程，數據庫是數據處理的利器，對于中級人員應該掌握這個內容了。

第三套：“VBA數組與字典解決方案”是PDF教程，講解VBA的精華----字典，是我們打開思路，提高代碼水平所必備。

第四套：“VBA代碼解決方案”視頻教程。是專門給初學者講解的視頻教程，通過147講的視頻學習可以讓你更快的掌握這門技能。

懶惰是很奇怪的東西，它使你以為那是安逸，是休息，是福氣;但實際上它所給你的是無聊，是倦怠，是消沉。不要懶惰，還是多學習些有用的知識吧，哪怕只是點滴。浮云掠過，暗語無聲，唯有清風，驚了夢中啼鶯。望星，疏移北斗，奈將往事雁同行。阡陌人，昏燈明暗，忍顧長亭，多少VBA人，暗夜中，悄聲尋夢，盼卻天明，怎無憑！

總結

以上是生活随笔為你收集整理的文本框 清空_VBA代码中利用文本框，完成人机对话过程的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。