文本框 清空_VBA代码中利用文本框,完成人机对话过程
VBA++ 題記: 靜下心,多學(xué)習(xí)有用的知識,多提高自己的水平和能力,這才是正道。時間就像一張網(wǎng),你撒在哪里,你的收獲就在哪里。謹(jǐn)記自己的方向,這是路之所在。適當(dāng)節(jié)制自我的各種欲望,誰都逃不過時間的歷練,誰都是命運的行者,誰都是在人生的道路上一步一趨。你要做的,是悄悄地去努力,等你變厲害之后,把自己也嚇一跳,才是你現(xiàn)在需要當(dāng)作目標(biāo)的事。把生活與工作打理好,不負(fù)年華。
欲成大事者,必先修其身。欲修其身者,先正其心。小成靠智,大成靠德。身不修則德不立,德不立則無以成事。
-----------------------------------------------------------------------------------------------
今日內(nèi)容是和大家分享VBA編程中常用的 “積木”過程代碼,這些內(nèi)容大多是取至我編寫的“VBA代碼解決方案”教程中內(nèi)容。今日分享的是NO.209-NO.209,內(nèi)容是:
NO. 209:利用文本框回車,完成復(fù)雜的人機(jī)對話過程
VBA過程代碼209:利用文本框回車,完成復(fù)雜的人機(jī)對話過程
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事件,在輸入數(shù)據(jù)并按<Enter>鍵后自動將數(shù)據(jù)錄入到工作表A列最后一個非空單元格的下一個單元格中。為了防止誤輸入空白數(shù)據(jù),使用Len 函數(shù)和Trim 函數(shù)檢查文本框內(nèi)是否為有效數(shù)據(jù)。根據(jù)KeyCode參數(shù)值判斷是否按下了回車鍵。如果用戶按下了回車鍵,KeyCode參數(shù)返回常數(shù)vbKeyReturn。將文本框數(shù)據(jù)輸入到工作表A列的最后一個單元格內(nèi),同時清空文本框內(nèi)容準(zhǔn)備下一次輸入。
-----------------------------------------------------------------------------------------------
VBA是實現(xiàn)自己小型辦公自動化的有效手段,我根據(jù)自己20多年的VBA實際利用經(jīng)驗,現(xiàn)推出了四部VBA學(xué)習(xí)教程,這些是我多年編程經(jīng)驗的記錄,也是我“積木編程”思想的體現(xiàn)。每一講都是一塊“積木”,可以獨立的完成某些或者某類的過程。利用這些可以大大提高自己的編程效率。
第一套:“VBA代碼解決方案”是PDF教程,是VBA中各個知識點的講解,覆蓋了絕大多數(shù)的知識點,是初學(xué)及中級人員必備的資料;
第二套:“VBA數(shù)據(jù)庫解決方案”是PDF教程,數(shù)據(jù)庫是數(shù)據(jù)處理的利器,對于中級人員應(yīng)該掌握這個內(nèi)容了。
第三套:“VBA數(shù)組與字典解決方案”是PDF教程,講解VBA的精華----字典,是我們打開思路,提高代碼水平所必備。
第四套:“VBA代碼解決方案”視頻教程。是專門給初學(xué)者講解的視頻教程,通過147講的視頻學(xué)習(xí)可以讓你更快的掌握這門技能。
懶惰是很奇怪的東西,它使你以為那是安逸,是休息,是福氣;但實際上它所給你的是無聊,是倦怠,是消沉。不要懶惰,還是多學(xué)習(xí)些有用的知識吧,哪怕只是點滴。浮云掠過,暗語無聲,唯有清風(fēng),驚了夢中啼鶯。望星,疏移北斗,奈將往事雁同行。阡陌人,昏燈明暗,忍顧長亭,多少VBA人,暗夜中,悄聲尋夢,盼卻天明,怎無憑!
總結(jié)
以上是生活随笔為你收集整理的文本框 清空_VBA代码中利用文本框,完成人机对话过程的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: python中点的作用_一分钟了解Pyt
- 下一篇: android 文件mimetype_a