通过vba窗体把数据写入表格合集

通过窗体向

EXCEL

表单添加数据

我们经常用

Excel

制作各种表格，

如公司管理人员制作公司成员的名单表；

推销员制作

客户名单表等。单纯利用

Excel

的功能我们会发现有如下几个问题：

1

、容易出错。

2

、不能检查是否重复输入登记。

3

、经常重复输入相同的内容。

而通过

VBA

在

Excel

中建立窗体，

通过窗体向

Excel

输入数据，

可以避免以上问题。

本

例是一个简单的登记程序，

其功能是通过窗体来向工作表中添加数据。

下面是应用系统的建

立过程。

一、创建用户窗体

1.

打开

EXCEL

，打开

Visual Basic 

编辑器（工具

-->

宏

-->Visual Basic 

编辑器）

2.

选择菜单中“插入”、“添加用户窗体”命令。

在窗体上拖两个

Label(

姓名，

电话

) 

两个

TextBox(ID

：

txtName,txtTel) 

两个按钮

(

输入

取

消

)

3.

根据情况，自设窗体大小

二、对控件进行功能设置

用鼠标选中窗体上的控件并双击该控件或者用鼠标右键单击控件并选择“查看代码”

命令，进入窗体对象的编程环境。

输入按钮

:

Private

Sub

 CommandButton1_Click() 

'

下面是当在窗体上单击“输入”按钮运行的代码

Dim

 counter 

As

Integer

'

计数器

Dim

 sign 

As

Boolean

'

是否登记标志

counter = 0 

sign = 

True

'

验证用户是否已登记过

Range("A1").Select 

Do

Until

 Selection.Offset(counter, 0).Value = "" 

If

 txtName.Text = Selection.Offset(counter, 0).Value 

Then

'

验证判断条件

:

姓名

(

根据需求

,

可调整

)