Excel-VBA編程-典型實例-設計客戶查詢窗口

1、Excel_VBA編程典型實例一設計客戶查詢窗口Excel VBA編程 典型實例一設計客戶查詢窗口每個公司包括很多客戶，如果需要查找每個客戶的基本信息，如客戶的聯(lián)系電 話、傳真、地址和客戶所在公司的簡介以及業(yè)務范圍。這些都可以通過設計窗體來 實現(xiàn)其查詢功能。1.練習要點每個公司包括很多客戶，如果需要查找每個客戶的基本信息，如客戶的聯(lián)系電 話、傳真、地址和客戶所在公司的簡介以及業(yè)務范圍。這些都可以通過設計窗體來 實現(xiàn)其查詢功能。1.練習要點 創(chuàng)建窗體 添加控件 設置控件2.操作步驟(1)啟動Excel2007,重命名“Sheetl”工作表為“客戶信息”，并在該工作表 中創(chuàng)建如圖13-3所示的表格

2、。A J _ BC I 口2 寶新熱碼蟲蟲 O1Q-12S45&7H 01D-11111111 北3L兌國3方回電癰 嬌嬌O1D-2ZZ2ZZZZ北京昌平區(qū)，4 匚訴$ 技 GH0QD-S3Z33Z33 廣；HflK 呈土14/ ，二戶不息內(nèi)馳.T :I, I 一圖13-3設置的工作表(2)然后打開VBE窗口，右擊【工程資源管理器】窗口，執(zhí)行【插入】|【用戶窗口】命令。創(chuàng)建一個窗口，將Caption屬性設置為“查詢”，圖戶窗口】命令。創(chuàng)建一個窗口，將Caption屬性設置為“查詢”，圖13-4創(chuàng)建窗體如添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_聯(lián)系人.Value獲取工作表行數(shù)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聯(lián)系人)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_聯(lián)系.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_業(yè)務范圍.Value)khxx.Cells(r, 7) = CStr(Me.Txt2司簡介.Value)End SubPrivate Sub LiB_查詢 _Click()Dim i As IntegerIf Me.LiB_ 查詢.Value = ThenExit SubEnd If獲取客戶在工作表中的行數(shù)i = CInt(Me.LiB_ 查詢.Value)將信息顯示在“修改”頁中r = iMe.Txt_單位名稱.Value = khxx.Cells(i, 1)Me.Txt_聯(lián)系.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)這