Ecel实现窗口式数据输入.docx

该【Ecel实现窗口式数据输入 】是由【泰山小桥流水】上传分享，文档一共【5】页，该文档可以免费在线阅读，需要了解更多关于【Ecel实现窗口式数据输入 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。精选文档
精选文档
1
精选文档
为Excel编个智能输入器
在平常工作和学****中,人们常常需要向一个有着十几列甚至更多列的Excel工作表中输入数
据。在数据输入过程中,为保证输入数据的正确性,录入者每次都要来回挪动表格,核对已
经录入的数据,操作起来很不方便。其实大可不用这么费事,只要利用Excel的宏功能,在
VisualBasic编写器中设计一个输入窗体,如图1所示,这样既方便了数据的输入,又提
高了输入的正确性。下边就随从笔者来一次亲自体验吧。
设计输入窗口
第一步:启动Excel2003(其余版本请模拟操作),打开相应的工作表,执行“工具→宏
→VisualBasic编写器”命令,进入VBA编写状态。
第二步:在左边的工程资源管理器窗口中,选择相应的工作表(如“存案数据”),执行“插入→用户窗体”命令,插入一个用户窗体(Userform1),并依据需要调整窗体的大小。此时,控件工具箱自动睁开,如图2所示。
小提示
假如工程资源管理器没有打开,可以经过执行“视图→工程资源管理器”命令来打开。假如
控件工具箱不睁开的话,执行“视图→工具箱”命令即可。
第三步:单击工具箱上的“标签”按钮,而后在窗体上拖沓出一个标签来,并在标签中输入
相应的字符(如“存案编号”等),调整好标签的大小,将其定位在窗体的适合地址上。重复
上述操作,完成其余标签的制作工作。
第四步:单击工具箱上的“文字框”按钮,而后在窗体上拖沓出一个文字框来,调整好文字框的大小,将其定位在窗体的适合地址上。重复上述操作,完成其余文字框的制作工作。
小提示
制作标签和文字框时,请依据数据的录入序次进行,省得出错。
第五步:单击工具箱上的“复合框”按钮,而后在窗体上拖沓出一个复合框来,调整好复合框的大小,将其定位在窗体的“结构种类”标签的右边。
第六步:单击工具箱上的“命令按钮”,而后在窗体上拖沓出一个命令按钮来,调整好命令按钮的大小,将其定位在窗体的适合地址上。右击此命令按钮,在随后弹出的快捷菜单中,
选择“属性”选项,打开“属性—CommandButton1”对话框,如图3所示。切换到“按分类序”选项卡,睁开“外观”标签,将“Caption”选项后边的字符更正为“增加”,关闭对话框返回。
第七步:模拟上边的操作,再增加一个“退出”命令按钮。
设计窗口代码
精选文档
精选文档
2
精选文档
第一步:双击“增加”命令按钮,进入VBA编写状态,将下述代码输入到空白地域中。
精选文档
精选文档
5
精选文档
PrivateSubCommandButton1_Click( )
Range("A1").Select'选中A1单元格
(xlDown).Select
将光标定位到最后一行第一个单元格中
(1,0).Range("A1")=
将相应的数据输入到表格下一行的相应单元格中
(1,0).Range("B1")=
(1,0).Range("C1")=
(1,0).Range("D1")=
(1,0).Range("E1")=
(1,0).Range("F1")=
(1,0).Range("G1")=
(1,0).Range("H1")=
(1,0).Range("I1")=
(1,0).Range("J1")=
(1,0).Range("K1")=
(1,0).Range("L1")=
(1,0).Range("M1")=
(1,0).Range("N1")=
EndSub
精选文档
精选文档
4
精选文档
小提示
精选文档
精选文档
5
精选文档
上述代码中,英文单引号“'”及以后面的字符是对代码的解说,在实质输入中,是可以不
输入的。
第二步:双击“退出”命令按钮,进入VBA编写状态,将下述代码输入到空白地域中。
PrivateSubCommandButton2_Click( )
End
EndSub
第三步:双击“复合框”命令按钮,进入VBA编写状态,将下述代码输入到空白地域中。
PrivateSubUserForm_Initialize( )
"砖混"
代码表示在复合框中增加相应的下拉选项
框架"
框混"
道路"
桥梁"
框剪"
其余"
EndSub
输入完成后,关闭VBA窗口,返回到工作表编写窗口。
设计数据录入按钮
精选文档
精选文档
6
精选文档
第一步:在Excel工作表中,执行“视图→工具栏→控件工具箱”命令,
工具栏,如图4所示。

打开“控件工具箱”
精选文档
精选文档
5
精选文档
第二步:单击工具栏上的“命令按钮”,而后在工作表中拖沓出一个命令按钮来,调整好命令按钮的大小,将其定位在工作表的适合地址上。
精选文档
精选文档
8
精选文档
第三步:右击此命令按钮,打开“属性”对话框

(近似图

3),将“Caption”选项后边的字符
精选文档
精选文档
5
精选文档
更正为“数据录入”,关闭对话框返回。
精选文档
精选文档
5
精选文档
第四步:双击此命令按钮,再次进入VBA编写状态,将下述代码输入到空白地域中。
PrivateSubCommandButton1_Click( )
EndSub
第五步:输入完成后,关闭VBA窗口,返回到工作表编写窗口,按一下工具栏上的“退出设计模式”按钮,退出设计状态。
需要录入数据时,只要单击一下“数据录入”按钮,系统弹出如图1所示的窗体,将相应的数据填入(或选择填入)到对应文本框中,检查无误后,按下“增加”按钮,即可将数据增加到工作表的尾部。完成录入工作后,按下“退出”按钮,关闭输入窗口。
小提示
为了使宏可以顺利运转,需要将宏的安全性设置为“中”。执行“工具→宏→安全性”命令,打开“安全性”对话框,在“安全级”选项卡中,将宏安全级设置为“中”选项,按“确立”按钮返回即可。
精选文档
精选文档
5
精选文档