分享

vba窗体录入讲解

 djjdgl 2010-08-12

前言:我们经常用Excel制作各种表格,如公司管理人员制作公司成员的名单表;推销员为了防止丢掉客户的名片和查询客户的信息,制作一个客户名单表等。当然Access可以制作数据库,来存放数据,但是Excel作为电子表格软件,具有许多对数据库直接操作的命令,如查找、排序、筛选等。现在我们想要做一个公司成员的档案记录,在一张Excel 表格的ABCD列分别记录公司客户姓名、身份证号码、性别、学历等几项记录,但是单纯利用Excel的功能我们会发现有如下几个问题:

  1、容易出错。
  2、不能检查是否重复输入登记。
  3、经常重复输入相同的内容。

  而通过VBAExcel中建立窗体,通过窗体向Excel输入数据,可以避免以上问题。下面是一个应用系统的建立过程。

  一、创建用户窗体

  按下列步骤,在项目中加入一个用户窗体:
  1.访问VBA,在Excel中访问VBA即进入VB编辑器。

  2.选择菜单中插入添加用户窗体命令。
 
  3.设计窗体的第一步是设定窗体的大小,这只是设定窗体的大小的开始,以后还需要多次调整窗体的大小。要设定窗体的大小,就用鼠标拖动窗体的边沿控件,直到想要的大小。

  二、将控件放在对话单中

  本例是一个简单的登记程序,其功能是通过窗体来向工作表中添加数据。窗体有两个TextBox控件用于接收用户输入的信息,TextBox控件接收用户输入的身份证号码,另外一个TextBox控件用于接收用户输入的姓名;一般用了TextBox控件相应地还应该加上Label控件,用来显示一些信息,提示用户往窗体输入信息数据类型。
  用TextBox控件接收用户输入的信息数据,用户每次必须输入,但是有一些信息数据却不必每次都输入。下面举例说明用OptionButton实现输入数据的思想,如性别只有,添加两个OptionButton控件,其Text属性设置为,定义一个变量,如果用户选择Caption属性设置为OptionButton 控件,则变量值为;反之,如果用户选择Caption属性设置为OptionButton 控件,则变量值为。把变量的值赋给工作簿中特定的单元格,即实现了数据输入。为了实现这两个OptionButton控件每次只能选中一个,添加一个Frame控件,把两个OptionButton控件放入同一个Frame控件中。

  如图中窗体有两个TextBox控件,随之有两个Label控件。一个Caption属性为性别Frame控件,里面有Caption属性分别为的两个OptionButton控件。一个Caption属性为您的学历Frame控件,里面有Caption 属性分别为高中以下本科硕士硕士以上其他的四个OptionButton 控件。另外还有两个CommandButton控件。下面是创建的窗体以及添加的控件。
 
  三、在VB编辑器中添加模块

  添加窗体以后,如果想通过窗体输入数据,然后把数据输入到工作簿的单元格中,必然涉及到窗体的数据和工作簿中的数据交换,但是二者不能直接交换,可以添加新模块。模块中的变量在窗体和工作簿中都可以调用,而且模块中的过程和函数也可以调用。
  新建一个模块,输入下列语句:

  '建立一些公有变量
  Public xingbie
  Public xingming
  Public xueli
  Public shenfenzheng
  Public CommandButton1_Click
  End Sub
  '建立一个公有过程,在窗体和工作簿中都可以调用
  Sub chushihua()
    shenfenzheng = ""
    xingming = ""
    xingbie = ""
    xueli = ""
  End Sub
  
  定义了这些公有变量之后,那么下面的窗体控件的一些值可以通过公有变量在工作簿中使用。

  四、对控件进行功能设置

  添加的控件是用来执行一定的功能,设置功能步骤如下:
  1.用鼠标选中窗体上的控件并双击该控件或者用鼠标右键单击控件并选择查看代码命令,进入窗体对象的编程环境。

  2.单击右上角的过程即事件对话框,选中一事件。VB编辑器会自动加入类似于下面的语句:

    Private Sub OptionButton5_Click()

    End Sub
  3.在中间的空行输入相关的VB语句,如:xueli = "硕士"。那么当运行窗体时,单击窗体OptionButton5控件则执行自动语句:xueli = "硕士"。表示把值硕士赋给变量xueli

  窗体及窗体上控件的事件程序代码如下:

  Private Sub CommandButton2_Click()
'CommandButton2
Caption
属性为取消,代表取消按钮
  UserForm1.Hide
  End Sub

  Private Sub OptionButton1_Click()
'OptionButton1
Caption
属性为,代表选项控件
    xingbie = ""
  End Sub

  Private Sub OptionButton2_Click()
'OptionButton2
Caption
属性为,代表选项控件
    xingbie = ""
  End Sub

  Private Sub OptionButton3_Click()
'OptionButton3
Caption
属性为高中以下,代表高中以下选项控件
    xueli = "高中以下"
  End Sub

  Private Sub OptionButton4_Click()
'OptionButton4
Caption
属性为本科,代表本科选项控件
  xueli = "本科"
  End Sub

  Private Sub OptionButton5_Click()
'OptionButton5
Caption
属性为硕士,代表硕士选项控件
    xueli = "硕士"
  End Sub

  Private Sub OptionButton6_Click()
'OptionButton6
Caption
属性为硕士以上,代表硕士以上选项控件
   xueli = "硕士以上"
  End Sub

  Private Sub OptionButton7_Click()
'OptionButton7
Caption
属性为请输入您的学历
代表请输入您的学历控件
  Dim srxl
  srxl = InputBox("请输入您的学历")
  If srxl = "" Then
    End
    UserForm1.Show
  Else
    xueli = srxl
   End If
  End Sub

  Private Sub TextBox1_Change()
'TextBox1
Caption
属性为请输入您的身份证号码TextBox控件
  Dim counter As Integer
  counter = 0
  Range("A1").Select
  Do Until Selection.Offset(counter, 0).value = ""
If TextBox1.Text = Selection.Offset(counter, 0)
 
 .value Then MsgBox ("您的身份已经登记")
    counter = counter 1
  Loop
  shenfenzheng = TextBox1.Text
  End Sub

  Private Sub TextBox2_Change()
'TextBox2
Caption
属性为姓名:TextBox控件
  xingming = TextBox2.Text
  End Sub

  Private Sub UserForm_Activate()
  Call chushihua
'chushihua
是在模块的定义的过程,
相当Excel函数,可以直接调用
  End Sub

  Private Sub 输入_Click()
  下面是当在窗体上单击输入按钮运行的代码
  Dim counter As Integer
  Dim shenfenvalue
  Dim xingmingvalue
  counter = 0
If TextBox1.Text = "" Or TextBox2.Text =
"" Or xingbie = "" Or xueli = "" Then
   Call chushihua
  End If
  Range("A1").Select
  Do Until Selection.Offset(counter, 0).value = ""
  shenfenvalue =Selection.Offset(counter, 0).value
  xingmingvalue =Selection.Offset(counter, 1).value
 If TextBox1.Text =shenfenvalueAnd 
  TextBox2.Text = xingmingvalue Then
  MsgBox ("您的身份已经登记")
     End
    Else
    End If
    counter = counter 1
  
  Loop
  Do Until Selection.Offset(counter, 0).value = ""
    counter = counter 1
  Loop
  Selection.Offset(counter, 0).value = shenfenzheng
  Selection.Offset(counter, 1).value = xingming
  Selection.Offset(counter, 2).value = xingbie
  Selection.Offset(counter, 3).value = xueli
  UserForm1.Hide
  End Sub

  五、在Excel中引用窗体

  在Excel中建立一个名为输入新数据命令按钮来指定宏,宏语句如下:
  Private Sub CommandButton1_Click()
  调用窗体
  UserForm1.Show
  调用过程
  Call chushihua
  End Sub
  在Excel单击命令按钮,即可调用窗体:

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多