excel vba编程 典型实例.docx

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

每个公司包括很多客户，如果需要查找每个客户的基本信息，如客户的联系电 话、传真、地址和客户所在公司的简介以及业务范围。这些都可以通过设计窗体来 实现其查询功能。

1.练习要点

创建窗体

添加控件

设置控件

2.操作步骤

(1)启动Excel2007，重命名“Sheetl”工作表为“客户信息”，并在该工作表

(2)然后打开VBE窗口，右击【工程资源管理器】窗口，执行【插入】|【用

图13-4创建窗体

(3)在窗体中添加一个多页控件，并设置“Pagel”和“Page2”的Caption属 性分别为“查询”和结果，如图13-5所示。

图13-5添加多页控件

(4)在“查询”页中，添加控件，如图13-6所示。

图13-6添加控件

(5)在“结果”页中，添加如图13-7所示控件。

图13-7添加控件

(6)打开该窗体的【代码】编辑窗口，添加代码如下。

Option Explicit

Public r As Integer

Public khxx As Worksheet

Private Sub UserForm_Activate()

'窗体初始化

Set khxx = Sheets(''客户信息')

Me.LiB_ 查询.ColumnCount = 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

'获取工作表行数

num = khxx.Range('A1').CurrentRegion.R