Excel VBA编程。典型实例—设计客户查询窗口

2024年9月13日发(作者：)

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("客户信息")

_查询.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 = _单位.Value

l = _联系人.Value

获取工作表行数

XXX("A1").XXX

在工作表中查询符合条件的客户信息

cs = 0

For i = 2 To num

If InStr((i。2).Value。d)。0 And

InStr((i。3).Value。l)。0 Then

cs = cs + 1

s(cs。1) = (i。1).Value

s(cs。2) = (i。2).Value

s(cs。3) = (i。3).Value

End If

Next i

将查询结果显示在列表框中

_查询.Clear

_查询.Column = s

End Sub

这个程序可以帮助用户查询客户信息。用户可以输入单位

名称和联系人的姓名，程序会在“客户信息”工作表中查找符合

条件的客户信息，并将结果显示在列表框中。

通过这个实例，用户可以研究如何创建窗体、添加控件、

设置控件，并编写VBA代码来实现查询功能。

If (((i。1) Like txt_单位) And ((i。1) <。

"")) Or (((i。2) Like Txt_联系人) And ((i。2)

<。"")) Then

s(cs。0) = CStr(i)

s(cs。1) = (i。1)

s(cs。2) = (i。2)

cs = cs + 1

End If

Next i

在列表框中显示查询结果

_查询.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 (((i。1) Like txt_单位) And ((i。1) <。

"")) Or (((i。2) Like Txt_联系人) And ((i。2)

<。"")) Then

s(cs。1) = CStr(i)

s(cs。2) = (i。1) & " " & (i。2)

cs = cs + 1

End If

Next i

在列表框中显示查询结果

_查询.List() = s

End Sub

Private Sub cmd_取消_Click()

隐藏窗体

End Sub

Private Sub cmd_修改_Click()

如果用户没有选定客户信息则提示

If r = 0 Then

MsgBox "请选定客户信息"

Exit Sub

End If

修改客户信息

XXX(r。1) = CStr(_单位名称.Value)

(r。2) = CStr(_联系.Value)

(r。3) = CStr(_电话.Value)

(r。4) = CStr(_传真.Value)

(r。5) = CStr(_地址.Value)

XXX(r。6) = CStr(_业务范围.Value)

XXX(r。7) = CStr(_公司简介.Value)

End Sub

Private Sub LiB_查询_Click()

Dim i As Integer

If _查询.Value = "" Then

Exit Sub

End If

获取客户在工作表中的行数

i = CInt(_查询.Value)

将信息显示在“修改”页中

r = i

_单位名称.Value = (i。

_联系.Value = (i。2)

_电话.Value = (i。3)

_传真.Value = (i。4)

_地址.Value = (i。5)

1)

_业务范围.Value = (i。6)

_公司简介.Value = (i。7)

End Sub

以下是对该段文字的修正和改写：

修正格式错误并删除明显有问题的段落后，剩余的内容如

下：

Sub XXX()

_ = (i。2)

_ = (i。3)

_ = (i。4)

_ = (i。5)

_XXX(i。6)

_XXX(i。7)

End Sub

修正后的内容如上所示，这是一个用于更新客户信息的子

程序。在这个子程序中，我们使用了 Me 关键字来引用当前表

单中的文本框控件，并将它们的值设置为 (i。x) 中

的相应单元格值。其中，i 表示当前所选客户的行号，x 则表

示对应信息所在的列号。通过这种方式，我们可以方便地将客

户信息从数据表格中读取出来，并更新到表单中的文本框控件

中。