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

1、Excel_VBA编程典型实例一设计客户查询窗口Excel VBA编程 典型实例一设计客户查询窗口每个公司包括很多客户，如果需要查找每个客户的基本信息，如客户的联系电 话、传真、地址和客户所在公司的简介以及业务范围。这些都可以通过设计窗体来 实现其查询功能。1.练习要点每个公司包括很多客户，如果需要查找每个客户的基本信息，如客户的联系电 话、传真、地址和客户所在公司的简介以及业务范围。这些都可以通过设计窗体来 实现其查询功能。1.练习要点 创建窗体 添加控件 设置控件2.操作步骤(1)启动Excel2007,重命名“Sheetl”工作表为“客户信息”，并在该工作表 中创建如图13-3所示的表格

2、。A J _ BC I 口2 宝新热码虫虫 O1Q-12S45&7H 01D-11111111 北3L兑国3方回电痈 娇娇O1D-2ZZ2ZZZZ北京昌平区，4 匚诉$ 技 GH0QD-S3Z33Z33 广；HflK 呈土14/ ，二户不息内驰.T :I, I 一图13-3设置的工作表(2)然后打开VBE窗口，右击【工程资源管理器】窗口，执行【插入】|【用户窗口】命令。创建一个窗口，将Caption属性设置为“查询”，图户窗口】命令。创建一个窗口，将Caption属性设置为“查询”，图13-4创建窗体如添13-4所示。 控件(3)在窗体中添加一个多页控件，并设置“P

3、age1”和“Page2”的Caption属 性分别为“查询”和结果，如图13-5所示。Excel_VBA编程典型实例一设计客户查询窗口I重命名回同国IS 宸制I . xls -W锄 (ITi94rForBli图13-5添加多页控件（Excel_VBA编程典型实例一设计客户查询窗口I重命名回同国IS 宸制I . xls -W锄 (ITi94rForBli图13-5添加多页控件（4）在“查询”页中，添加控件，如图13-6所示。添加控件,；JftTA ：-垃L |匕X图13-6添加控件（5）在“结果”页中，添加如图13-7所示控件。书果*ex 杵：1_kX图13-7添加控件（6）打开该窗体的【代码

4、】编辑窗口，添加代码如下。Option ExplicitPublic r As IntegerPublic khxx As WorksheetPrivate Sub UserForm_Activate()窗体初始化Excel_VBA编程典型实例一设计客户查询窗口Set khxx = Sheets(客户信息)Me.LiB_ 查询.ColumnCount = 3End SubPrivate Sub cmd_查找 _Click()Dim d, l As StringDim num, cs, i As IntegerDim s(100, 3) As String获取用户输入信息d = Me.txt_单

5、位.Valuel = Me.Txt_联系人.Value获取工作表行数num = khxx.Range(A1).CurrentRegion.Rows.Count在工作表中查询符合条件的客户信息cs = 0For i = 2 To numIf (khxx.Cells(i, 1) Like txt_单位)And (khxx.Cells(i, 1) ) Or (khxx.Cells(i, 2)Like Txt联系人)And (khxx.Cells(i, 2) ) Thens(cs, 0) = CStr(i)s(cs, 1) = khxx.Cells(i, 1)s(cs, 2) = khxx.Cells

6、(i, 2) cs = cs + 1End IfNext i在列表框中显示查询结果Me.LiB_ 查询.List() = sEnd SubPrivate Sub cmd_取消_Click()隐藏窗体Me.HideEnd SubPrivate Sub cmd_修改_Click()如果用户没有输入则If r = 0 ThenMsgBox 请选定客户信息Exit SubExcel_VBA编程典型实例一设计客户查询窗口End Ifkhxx.Cells(r, 1) = CStr(Me.Txt_单位名称.Value)khxx.Cells(r, 2) = CStr(Me.Txt_联系.Value)khxx.

7、Cells(r, 3) = CStr(Me.Txt_电话.Value)khxx.Cells(r, 4) = CStr(Me.Txt_传真.Value)khxx.Cells(r, 5) = CStr(Me.Txt_地址.Value)khxx.Cells(r, 6) = CStr(Me.Txt_业务范围.Value)khxx.Cells(r, 7) = CStr(Me.Txt2司简介.Value)End SubPrivate Sub LiB_查询 _Click()Dim i As IntegerIf Me.LiB_ 查询.Value = ThenExit SubEnd If获取客户在工作表中的行数i = CInt(Me.LiB_ 查询.Value)将信息显示在“修改”页中r = iMe.Txt_单位名称.Value = khxx.Cells(i, 1)Me.Txt_联系.Value = khxx.Cells(i, 2)Me.Txt_电话.Value = khxx.Cells(i, 3)Me.Txt_传真.Value = khxx.Cells(i, 4)Me.TxtJ地址.Value = khxx.Cells(i, 5)Me.Txt务范围.Value = khxx.Cells(i, 6)Me.Txt_公司简介.Value = khxx.Cells(i, 7)End Sub(7)这