標題: [發問] 請問如何匯整多工作表(需符合條件內容) [打印本頁]

---

作者: http1228    時間: 2016-5-1 21:30     標題: 請問如何匯整多工作表(需符合條件內容)

問題1:請問如何把A商品、B商品、C商品中符合銷售人A1且未收帳有數值(不包含0)的資料匯整到月統計工作表上有的欄位
問題2:請問如何在我更改清單中的月份後A3,B3的數值也會跟著改  例:2016/1月份 = A3=2015/12/26  B3=2016/1/25


權限還不足夠可以下載附件,若方便麻煩讓小弟能用網址下載,謝謝

[attach]24128[/attach]

---

作者: 准提部林    時間: 2016-5-2 13:02

問一：

1. Sub TEST()
   
2. Dim Sht As Worksheet, FT$, N%
   
3. If Left([B1], 1) <> "←" Then MsgBox "請先執行清除! ": Exit Sub
   
4. If [A1] = "" Then MsgBox "請在A1輸入銷售人! ": Exit Sub
   
5. FT = [A1]
   
6. For Each Sht In Sheets(Array("A商品", "B商品", "C商品"))
   
7.     Sht.AutoFilterMode = False
   
8.     With Sht.UsedRange
   
9.         .AutoFilter Field:=2, Criteria1:=FT
   
10.         .AutoFilter Field:=13, Criteria1:="<>0"
    
11.         .Offset(N, 0).Copy Cells(Rows.Count, 1).End(xlUp)(1 + N)
    
12.     End With
    
13.     N = 1
    
14.     Sht.AutoFilterMode = False
    
15. Next
    
16. End Sub

複製代碼

問二：
Ａ３公式：=DATE(2016,SUBSTITUTE($A$2,"月份",)-(A$1<>""),25+(A$1<>""))　右拉

[attach]24134[/attach]
另一載址：
http://www.funp.net/606720

---

作者: http1228    時間: 2016-5-2 16:00

回復 2# 准提部林


版主,非常抱歉
我好像把事情想的太簡單了,原本想回去再自行加工篩選的條件
結果都失敗了....能再幫小弟個忙嗎?


P.S. 版主做的金千里小弟也有在用~
[attach]24140[/attach]

---

作者: 准提部林    時間: 2016-5-2 18:01

回復 3# http1228

程式碼稍複雜, 但都是基本語法, 不多做說明:
[attach]24142[/attach]
http://www.funp.net/703552

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)