Excel VBA编程。典型实例—设计客户查询窗口
Excel VBA编程实例：设计客户查询窗口
在每个公司中，有很多客户。如果需要查每个客户的基本信息，例如客户的、传真、地址，以及客户所在公司的简介和业务范围，可以通过设计窗体来实现查询功能。
1.练要点：
创建窗体
添加控件
设置控件
2.操作步骤：
1）启动Excel2007，将“Sheet1”工作表重命名为“客户信息”，并在该工作表中创建如图13-3所示的表格。
2）打开VBE窗口，右键单击“工程资源管理器”窗口，选择“插入”→“用户窗口”命令。创建一个窗口，n属性设置为“查询”，如图13-4所示。
3）在窗体中添加一个多页控件，并将“Page1”和“Page2”n属性分别设置为“查询”和“结果”，如图13-5所示。
4）在“查询”页中添加控件，如图13-6所示。
5）在“结果”页中添加如图13-7所示的控件。
6）打开该窗体的“代码”编辑窗口，添加以下代码：
n Explicit
Public r As Integer
Public XXX
Private Sub UserForm_Activate()
窗体初始化
XXX("客户信息")
Me.LiB_查询.XXX 3
End Sub
Private Sub cmd_查_Click()
Dim d。l As String
Dim num。cs。i As Integer
Dim s(100.3) As String
获取用户输入信息
d = Me.txt_单位.Value
l = Me.Txt_联系人.Value
获取工作表行数
XXX("A1").XXX
在工作表中查询符合条件的客户信息
cs = 0
For i = 2 To num
If InStr(1.khxx.Cells(i。2).Value。d)。0 And InStr(1.khxx.Cells(i。3).Value。l)。0 Then
cs = cs + 1
s(cs。1) = khxx.Cells(i。1).Value
s(cs。2) = khxx.Cells(i。2).Value
s(cs。3) = khxx.Cells(i。3).Value
End If
Next i
将查询结果显示在列表框中
Me.LiB_查询.Clear
Me.LiB_查询.Column = s
End Sub
这个程序可以帮助用户查询客户信息。用户可以输入单位名称和联系人的姓名，程序会在“客户信息”工作表中查符合条件的客户信息，并将结果显示在列表框中。
通过这个实例，用户可以研究如何创建窗体、添加控件、设置控件，并编写VBA代码来实现查询功能。
If ((khxx.Cells(i。1) Like txt_单位) And (khxx.Cells(i。1) <。"")) Or ((khxx.Cells(i。2) Like Txt_联系人) And (khxx.Cells(i。2) <。"")) Then
s(cs。0) = CStr(i)
s(cs。1) = khxx.Cells(i。1)
s(cs。2) = khxx.Cells(i。2)
cs = cs + 1
End If
Next i
在列表框中显示查询结果
Me.LiB_查询.List() = s
Sub Search()
Dim s(1 To 100.1 To 2) As String
Dim cs As Integer
cs = 1
Dim i As Integer
For i = 1 To 100
If ((khxx.Cells(i。1) Like txt_单位) And (khxx.Cells(i。1) <。"")) Or ((khxx.Cells(i。2) Like Txt_联系人) And (khxx.Cells(i。2) <。"")) Then
s(cs。1) = CStr(i)
s(cs。2) = khxx.Cells(i。1) & " " & khxx.Cells(i。2)
cs = cs + 1
>vba做excel窗体录入教程

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。