资源描述：
《为excel编个智能输入器》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、为Excel编个智能输入器出处：互联网络作者：佚名日期：2006-8-220:01:58人气：855 [大中小]在日常工作和学习中，人们常常需要向一个有着十几列甚至更多列的Excel工作表中输入数据。在数据输入过程中，为保证输入数据的准确性，录入者每次都要来回移动表格，核对已经录入的数据，操作起来很不方便。其实大可不必这么费事，只要利用Excel的宏功能，在VisualBasic编辑器中设计一个输入窗体，如图1所示，这样既方便了数据的输入，又提高了输入的准确性。下面就跟随笔者来一次亲身体验吧。设计输入窗口第一步:启动Excel2003(其他版本请仿照操作)，打开相
2、应的工作表，执行“工具→宏→VisualBasic编辑器”命令，进入VBA编辑状态。第二步:在左侧的工程资源管理器窗口中，选择相应的工作表(如“备案数据”)，执行“插入→用户窗体”命令，插入一个用户窗体(Userform1)，并根据需要调整窗体的大小。此时，控件工具箱自动展开,如图2所示。he"governingforthepeople","Nomattertheinterestsofthemasses"conceptunderstandingisnotinplace.Thespecificworktreatswiththedeployment,afewleadingc
3、adrescomplainthatworkistoocomplicated,toomuchresponsibility,thepressureistoolarge,toomuchemphasisonthedifficultyofthework.Forexample,noncoalmine小提示如果工程资源管理器没有打开，可以通过执行“视图→工程资源管理器”命令来打开。如果控件工具箱不展开的话，执行“视图→工具箱”命令即可。第三步:单击工具箱上的“标签”按钮，然后在窗体上拖拉出一个标签来，并在标签中输入相应的字符(如“备案编号”等)，调整好标签的大小，将其定位在窗体的合适
4、位置上。重复上述操作，完成其他标签的制作工作。第四步:单击工具箱上的“文字框”按钮，然后在窗体上拖拉出一个文字框来，调整好文字框的大小，将其定位在窗体的合适位置上。重复上述操作，完成其他文字框的制作工作。小提示制作标签和文字框时，请按照数据的录入顺序进行，以免出错。第五步:单击工具箱上的“复合框”按钮，然后在窗体上拖拉出一个复合框来，调整好复合框的大小，将其定位在窗体的“结构类型”标签的右侧。第六步:单击工具箱上的“命令按钮”，然后在窗体上拖拉出一个命令按钮来，调整好命令按钮的大小，将其定位在窗体的合适位置上。右击此命令按钮，在随后弹出的快捷菜单中，选择“属性”选项，打
5、开“属性—CommandButton1”对话框，如图3所示。切换到“按分类序”选项卡，展开“外观”标签，将“Caption”选项后面的字符修改为“添加”，关闭对话框返回。第七步:仿照上面的操作，再添加一个“退出”命令按钮。设计窗口代码第一步:双击“添加”命令按钮，进入VBA编辑状态，将下述代码输入到空白区域中。PrivateSubCommandButton1_Click()Range("A1").Select'选中A1单元格Selection.End(xlDown).Select'将光标定位到最后一行第一个单元格中ActiveCell.Offset(1,0).Range
6、("A1")=TextBox1.Text'将相应的数据输入到表格下一行的相应单元格中ActiveCell.Offset(1,0).Range("B1")=TextBox2.TextActiveCell.Offset(1,0).Range("C1")=TextBox3.TextActiveCell.Offset(1,0).Range("D1")=he"governingforthepeople","Nomattertheinterestsofthemasses"conceptunderstandingisnotinplace.Thespecificworktreatswi
7、ththedeployment,afewleadingcadrescomplainthatworkistoocomplicated,toomuchresponsibility,thepressureistoolarge,toomuchemphasisonthedifficultyofthework.Forexample,noncoalmineTextBox4.TextActiveCell.Offset(1,0).Range("E1")=TextBox5.TextActiveCell.Offset(1,0).Range("F1")=Text
