vba 判断文本框内容是否为空_VBA代码中利用文本框，完成人机对话过程

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人，暗夜中，悄声寻梦，盼却天明，怎无凭！