通过窗体向EXCEL表单添加数据
更新时间:2024-06-06 22:27:01 阅读量: 综合文库 文档下载
通过窗体向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(\
Do Until Selection.Offset(counter, 0).Value = \
If txtName.Text = Selection.Offset(counter, 0).Value Then '验证判断条件:姓名(根据需求,可调整) sign = False
MsgBox (\此用户已经登记\End If
counter = counter + 1 Loop
Do Until Selection.Offset(counter, 0).Value = \counter = counter + 1 Loop
'登记信息(根据需求,可调整) If sign Then
Selection.Offset(counter, 0).Value = txtName.Text Selection.Offset(counter, 1).Value = txtTel.Text End If
End Sub 取消按钮:
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
三.在Excel中引用窗体 1.在VB辑编器中添加宏(模块) Sub Macro1() UserForm1.Show End Sub
2.切换到EXCEL,添加命令按钮(视图-->工具栏-->窗体-->弹出工具框)
选择工具框中的按钮,在点击EXCEL表单任意处会自动弹出“指定宏”窗口,选择Macro1宏。 修改按钮文本:右击按钮可以找到编辑文字属性 设置完毕后,点击按钮就能打开数据录入窗体了。
正在阅读:
通过窗体向EXCEL表单添加数据06-06
太空课堂真奇妙作文1200字07-10
我是书法家作文500字06-28
红旗党支部创建方案12-27
家门口的桂花树作文350字06-21
观日出小学生二年级作文300字06-13
乡镇道路交通安全专项整治行动开展情况工作汇报(范本)11-08
给妈妈的一封信450字07-14
- 多层物业服务方案
- (审判实务)习惯法与少数民族地区民间纠纷解决问题(孙 潋)
- 人教版新课标六年级下册语文全册教案
- 词语打卡
- photoshop实习报告
- 钢结构设计原理综合测试2
- 2014年期末练习题
- 高中数学中的逆向思维解题方法探讨
- 名师原创 全国通用2014-2015学年高二寒假作业 政治(一)Word版
- 北航《建筑结构检测鉴定与加固》在线作业三
- XX县卫生监督所工程建设项目可行性研究报告
- 小学四年级观察作文经典评语
- 浅谈110KV变电站电气一次设计-程泉焱(1)
- 安全员考试题库
- 国家电网公司变电运维管理规定(试行)
- 义务教育课程标准稿征求意见提纲
- 教学秘书面试技巧
- 钢结构工程施工组织设计
- 水利工程概论论文
- 09届九年级数学第四次模拟试卷
- 窗体
- 表单
- 添加
- 通过
- 数据
- EXCEL