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

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

今日內(nèi)容是和大家分享VBA編程中常用的 “積木”過(guò)程代碼，這些內(nèi)容大多是取至我編寫(xiě)的“VBA代碼解決方案”教程中內(nèi)容。今日分享的是NO.211-NO.211，內(nèi)容是：

NO. 211：如果錄入數(shù)據(jù)不合規(guī)，VBA代碼控制焦點(diǎn)返回的另一方案

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

VBA過(guò)程代碼211：如果錄入數(shù)據(jù)不合規(guī)，VBA代碼控制焦點(diǎn)返回的另一方案

Private Sub CommandButton1_Click()

If TextBox1.Text <> "" And TextBox2.Text <> "" Then

Sheets("sheet11").Range("a65536").End(xlUp).Offset(1, 0) = TextBox1.Text

TextBox1.Text = ""

Sheets("sheet11").Range("a65536").End(xlUp).Offset(0, 1) = TextBox2.Text

TextBox2.Text = ""

TextBox1.SetFocus

Else

If TextBox1.Text = "" And TextBox2.Text <> "" Then

MsgBox "錄入數(shù)據(jù)1為空，請(qǐng)輸入正確的數(shù)字!"

TextBox1.SetFocus

End If

If TextBox1.Text <> "" And TextBox2.Text = "" Then

MsgBox "錄入數(shù)據(jù)2為空，請(qǐng)輸入正確的數(shù)字!"

TextBox2.SetFocus

End If

If TextBox1.Text = "" And TextBox2.Text = "" Then

MsgBox "錄入數(shù)據(jù)1和2均為空，請(qǐng)輸入正確的數(shù)字!"

TextBox1.SetFocus

End If

End If

End Sub

代碼解析：輸入按鈕的SET，把文本框數(shù)據(jù)錄入到工作表A列最后一個(gè)單元格中并重新選擇文本框準(zhǔn)備下一次輸入。在輸入到工作表前檢查文本框是否為空。如果文本框不為空，錄入數(shù)據(jù)到工作表并清空文本框內(nèi)容。使用SetFocus方法將光標(biāo)返回到文本框1中以便重新輸入。

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

VBA是實(shí)現(xiàn)自己小型辦公自動(dòng)化的有效手段，我根據(jù)自己20多年的VBA實(shí)際利用經(jīng)驗(yàn)，現(xiàn)推出了四部VBA學(xué)習(xí)教程，這些是我多年編程經(jīng)驗(yàn)的記錄，也是我“積木編程”思想的體現(xiàn)。每一講都是一塊“積木”，可以獨(dú)立的完成某些或者某類(lèi)的過(guò)程。利用這些可以大大提高自己的編程效率。

第一套：“VBA代碼解決方案”是PDF教程，是VBA中各個(gè)知識(shí)點(diǎn)的講解，覆蓋了絕大多數(shù)的知識(shí)點(diǎn)，是初學(xué)及中級(jí)人員必備的資料；

第二套：“VBA數(shù)據(jù)庫(kù)解決方案”是PDF教程，數(shù)據(jù)庫(kù)是數(shù)據(jù)處理的利器，對(duì)于中級(jí)人員應(yīng)該掌握這個(gè)內(nèi)容了。

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

第四套：“VBA代碼解決方案”視頻教程。是專(zhuān)門(mén)給初學(xué)者講解的視頻教程，通過(guò)147講的視頻學(xué)習(xí)可以讓你更快的掌握這門(mén)技能。

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

浮云掠過(guò)，暗語(yǔ)無(wú)聲，

唯有清風(fēng)，驚了夢(mèng)中啼鶯。

望星，疏移北斗，

奈將往事雁同行。

阡陌人，昏燈明暗，

忍顧長(zhǎng)亭，多少VBA人，

暗夜中，悄聲尋夢(mèng)，盼卻天明，怎無(wú)憑！

這幾句詞是我借鑒過(guò)來(lái)的對(duì)VBA人員的寫(xiě)照，正如一位朋友說(shuō)的那樣：學(xué)vba之前蠻悠閑的，學(xué)之后就沒(méi)時(shí)間悠閑了。確實(shí)，還是很精確地比喻，當(dāng)你會(huì)了一門(mén)手藝，你就有了可以被利用的價(jià)值，這種價(jià)值的反作用就是自己價(jià)值的提高。愿每位VBA人員都有這樣的價(jià)值吧！

懶惰是很奇怪的東西，它使你以為那是安逸，是休息，是福氣;但實(shí)際上它所給你的是無(wú)聊，是倦怠，是消沉。不要懶惰，還是多學(xué)習(xí)些有用的知識(shí)吧，哪怕只是點(diǎn)滴。

總結(jié)

以上是生活随笔為你收集整理的vba 判断文本框内容是否为空_VBA代码用SetFocus精确控制焦点事件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。