- 帖子
- 129
- 主題
- 25
- 精華
- 0
- 積分
- 159
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-12-24
- 最後登錄
- 2022-12-12
|
[發問] 請問VBA可以篩選後，對其結果再進行進階篩選嗎?
本帖最後由 iceandy6150 於 2021-11-29 23:25 編輯
大家好
想請問VBA有沒有辦法做到
篩選後，出來的結果，在做進階篩選?
以下例子
我想做到先篩選出2021/11/23的項目
看看總共幾個符合 (紅色)
然後針對商品去進行"進階篩選" (綠色) 不重複
最後是把各種商品的總數量加起來 (藍色)
功能需求：
我要做一個查詢功能，使用者透過Inputbox，給我年月日
我要從很多很多資料中
先篩選出當天日期的資料，然後分析當天總共有多少種類的產品，加總各產品的數量
(有點類似樞紐分析)
再請各位指導，謝謝
 測試篩選並複製特定範圍.rar (29.08 KB)
(按鈕三)- Private Sub CommandButton3_Click()
- Dim i
- Dim a
- Dim Sg As Range
- i = Sheets("工作表2").Cells(1, 9).Value
- a = Sheets("工作表2").Columns(2).End(xlDown).Row
- Dim Rng As Range '篩選結果範圍
- With Sheets("工作表2") '在工作表2中
- Set Rng = .UsedRange.Range("A1:F" & a) '所有資料範圍中的A1~F底
- Rng.AutoFilter Field:=1, Criteria1:="2021/11/23"
-
- Set fa = [d2:d65536].SpecialCells(xlCellTypeVisible)(1)
- Set fb = [D65536].End(xlUp)
-
- If fa = "" Then
- MsgBox "查無資料"
- Sheets("工作表2").Range("A:E").AutoFilter
- Exit Sub
- End If
-
- Set Sg = .Range("A" & fa.Row & ":F" & fb.Row)
- '●想針對剛剛篩選出來的範圍 進行 進階篩選不重複 放到K1
- Sg.AdvancedFilter xlFilterCopy, .Range("D:D"), Sheets("工作表2").Range("K1"), True
- End With
- End Sub
|
|
發表於 2021-11-29 23:20
| 
