【分享成果，随喜正能量】学会坚强，这世上，真正在乎你的人并不多，相反，倒是有很多人都在等着看你的笑话。就算遇到天大的麻烦，也不要自暴自弃。你不勇敢，没人替你坚强。《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十七章 “用户窗体（Userform）的实例应用”的第3节：实现窗体录入数据的代码

第三节 创建一个录入数据的窗体（三）

我们在前面的两节中讲了各个控件及窗体的搭建及属性的设置，我们在这讲开始代码的讲解。如果说控件的搭建是骨骼及肌肉建立，那么这讲的内容就相当于给骨骼和肌肉联上神经单元。没有神经单元的连接，骨骼永远只是骨骼，肌肉永远是肌肉，只有联上了神经单元，一切才获得了重生。

6 实现录入数据窗体的代码

我们看下面的代码：

1）命令按钮“确定”的代码：

Private Sub CommandButton1_Click()

[详细代码见教程]

End Sub

2）按钮“清空”的代码：

Private Sub CommandButton2_Click()

Call UserForm_Initialize

End Sub

3）按钮“退出”的代码

Private Sub CommandButton3_Click()

Unload Me

End Sub

4）滚动条的改变事件响应代码

Private Sub ScrollBar1_Change()

TextBox3.Value = ScrollBar1.Value

End Sub

5）窗体的加载事件

Private Sub UserForm_Initialize()

[详细代码见教程]

End Sub

代码的部分截图：

7 代码的解读

1） emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

取得工作表中非空单元格的行数值

2）If Len(TextBox2.Value) <> 11 Then

MsgBox "手机号码位数不对"

TextBox2.SetFocus

Exit Sub

End If

验证手机号码是否为11位。

3) Cells(emptyRow, 1).Value = TextBox1.Value

将文本框1的值填入单元格。

4） Call UserForm_Initialize

执行窗体的加载事件

5） With ListBox1

.Clear

.AddItem "秦皇岛"

.AddItem "长沙"

.AddItem "青岛"

End With

在窗体的加载事件中，在列表框中添加必要的项目.

6)With ComboBox1

.Clear

.AddItem "汉族"

.AddItem "回族"

.AddItem "满族"

.Value = "汉族"

End With

在窗体的加载中，在ComboBox控件中添加项目。

8 代码的运行效果

我们最后看代码的运行：

1）在工作表窗口中点击“显示录入表单”，会弹出录入窗口：

2）我们在这个窗口录入信息资料：

点击“确定”按钮，这个时候窗体重新加载了.

3)我们点击退出，返回工作表窗口

这时我们发现，录入窗口上的信息就到了工作表中，完成了录入。

今日内容回向：

1） 如何显示录入窗口？

2） 录入窗口如何实现数据的预加载？

3） 录入窗口的数据如何保存到工作表中？

本讲内容参考程序文件：工作簿17.xlsm

【分享成果，随喜正能量】学会珍惜在乎你的人，你的父母，你的挚友，你的爱人，如果他们在乎你，就请一定要好好珍惜。因为他们是你这辈子最宝贵的财富。不要把过多的热情浪费在生命中的过客上，人生匆匆，要把时间，留给最值得的人。。