2.假設妳要查詢“康佳”的“1個月”的銷售情況,先建壹個有對應欄目的工作簿。如圖,輸入條件1:成品名稱,條件2:品牌名稱,條件3:月份。
3.現在該設置宏了:在菜單欄中點擊開發人員-插入-表單控件,在出現的十字箭頭上拖拽壹個按鈕,如圖。
4.在彈出的尋紅對話框中選擇“記錄”。在彈出的錄制新宏對話框中,將宏名改為“Find”並點擊確定。
5.點擊“開發工具”——查看代碼,打開VBA編輯器,如圖。
6.在VBA編輯器中點擊【插入】-【模塊】,如圖所示。
7.現在輸入代碼:
子搜索()
Dim i為整數,j為整數
Arr1 =工作表("數據")。range(" a2:d " &;工作表(“數據”)。單元格(行。數數,“壹”)。結束(xlup)。行)
Arr2 =工作表(“搜索”)。range(" a2:d " &;工作表(“搜索”)。單元格(行。數數,“壹”)。結束(xlup)。行)
對於i = 1至UBound(arr2)
對於j = 1至UBound(arr1)
如果arr2(i,1) = arr1(j,1)且arr2(i,2) = arr1(j,2)且arr2(i,3) = arr1(j,3),則
arr2(i,4) = arr1(j,4)
轉到100
如果…就會結束
然後
arr2(i,4) = " "
100:
然後
工作表(“搜索”)。range(" a2:d " &;工作表(“搜索”)。單元格(行。數數,“壹”)。結束(xlup)。Row) = arr2。
末端接頭
8.現在返回到EXCEL表,右鍵單擊按鈕,選擇Edit Text,並將按鈕的名稱更改為Statistics。
9.那就完事了。