1、以商場2015年第壹季度電器銷售統計為例子,“產品”、“品牌”、“月份”3個條件的銷售額進行查詢。
2、假設要查詢“康佳”的“1月”份“各類家電”的銷售額,先建壹個對應列的工作簿。如圖,輸入條件1:“成品名稱”,條件2:“品牌名稱”,條件3:“月份”,
3、下面到了建立宏的步驟:單擊菜單欄中的“開發工具”——插入——表單控件——按鈕,在出現的十字箭頭上拖住畫出壹個按鈕,如圖所示。
4、在彈出的查找紅對話框中選擇“錄制”,在彈出的“錄制新宏”對話框中,修改宏名稱為“查找”,單擊確定。
5、單擊“開發工具”——查看代碼,打開VBA編輯器,如圖所示。
6、在VBA編輯器點擊插入-模塊,如圖,
7、現在來輸入代碼:
Sub 查找()
Dim i As Integer, j As Integer
arr1 = 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) Then
arr2(i, 4) = arr1(j, 4)
GoTo 100
End If
Next
arr2(i, 4) = ""
100:
Next
Sheets("查找").Range("A2:D" & Sheets("查找").Cells(Rows.Count, "A").End(xlUp).Row) = arr2
End Sub
8、現在回到EXCEL表格,右擊按鈕,選擇“編輯文字”,修改按鈕名稱為“統計”。
9、那麽就完成了。