1、以商場2015年第一季度電器銷售統計為例子,“產品”、“品牌”、“月份”3個條件的銷售額進行查詢。2、假設要查詢“康佳”的“1月”份“各類家電”的銷售額,先建一個對應列的工作簿。如圖,輸入條件1:“成品名稱”,條件2:“品牌名稱”,條件3:“月份”,3、下面到了建立宏的步驟:單擊選單欄中的“開發工具”——插入——表單控制元件——按鈕,在出現的十字箭頭上拖住畫出一個按鈕,如圖所示。4、在彈出的查詢紅對話方塊中選擇“錄製”,在彈出的“錄製新宏”對話方塊中,修改宏名稱為“查詢”,單擊確定。5、單擊“開發工具”——檢視程式碼,開啟VBA編輯器,如圖所示。6、在VBA編輯器點選插入-模組,如圖,7、現在來輸入程式碼:Sub 查詢()Dim i As Integer, j As Integerarr1 = Sheets("資料").Range("A2:D" & Sheets("資料").Cells(Rows.Count, "A").End(xlUp).Row)arr2 = Sheets("查詢").Range("A2:D" & Sheets("查詢").Cells(Rows.Count, "A").End(xlUp).Row)For i = 1 To UBound(arr2)For j = 1 To UBound(arr1)If arr2(i, 1) = arr1(j, 1) And arr2(i, 2) = arr1(j, 2) And arr2(i, 3) = arr1(j, 3) Thenarr2(i, 4) = arr1(j, 4)GoTo 100End IfNextarr2(i, 4) = ""100:NextSheets("查詢").Range("A2:D" & Sheets("查詢").Cells(Rows.Count, "A").End(xlUp).Row) = arr2End Sub8、現在回到EXCEL表格,右擊按鈕,選擇“編輯文字”,修改按鈕名稱為“統計”。9、那麼就完成了。
1、以商場2015年第一季度電器銷售統計為例子,“產品”、“品牌”、“月份”3個條件的銷售額進行查詢。2、假設要查詢“康佳”的“1月”份“各類家電”的銷售額,先建一個對應列的工作簿。如圖,輸入條件1:“成品名稱”,條件2:“品牌名稱”,條件3:“月份”,3、下面到了建立宏的步驟:單擊選單欄中的“開發工具”——插入——表單控制元件——按鈕,在出現的十字箭頭上拖住畫出一個按鈕,如圖所示。4、在彈出的查詢紅對話方塊中選擇“錄製”,在彈出的“錄製新宏”對話方塊中,修改宏名稱為“查詢”,單擊確定。5、單擊“開發工具”——檢視程式碼,開啟VBA編輯器,如圖所示。6、在VBA編輯器點選插入-模組,如圖,7、現在來輸入程式碼:Sub 查詢()Dim i As Integer, j As Integerarr1 = Sheets("資料").Range("A2:D" & Sheets("資料").Cells(Rows.Count, "A").End(xlUp).Row)arr2 = Sheets("查詢").Range("A2:D" & Sheets("查詢").Cells(Rows.Count, "A").End(xlUp).Row)For i = 1 To UBound(arr2)For j = 1 To UBound(arr1)If arr2(i, 1) = arr1(j, 1) And arr2(i, 2) = arr1(j, 2) And arr2(i, 3) = arr1(j, 3) Thenarr2(i, 4) = arr1(j, 4)GoTo 100End IfNextarr2(i, 4) = ""100:NextSheets("查詢").Range("A2:D" & Sheets("查詢").Cells(Rows.Count, "A").End(xlUp).Row) = arr2End Sub8、現在回到EXCEL表格,右擊按鈕,選擇“編輯文字”,修改按鈕名稱為“統計”。9、那麼就完成了。