麻辣家族討論版版 » Excel程式區 » 請問如何匯整多工作表(需符合條件內容)

返回列表下一主題上一主題發帖

[發問] 請問如何匯整多工作表(需符合條件內容)

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2016-5-1
最後登錄: 2016-8-4

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-5-1 21:30 | 只看該作者

[發問] 請問如何匯整多工作表(需符合條件內容)

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

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

TEST.zip (13.16 KB)

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2016-5-2 13:02 | 只看該作者

問一：

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

複製代碼

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

Xl0000537.rar (13.52 KB)
另一載址：
http://www.funp.net/606720

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2016-5-1
最後登錄: 2016-8-4

3^#

發表於 2016-5-2 16:00 | 只看該作者

回復 2# 准提部林

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

P.S. 版主做的金千里小弟也有在用~

TEST(1).zip (158.56 KB)

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

4^#

發表於 2016-5-2 18:01 | 只看該作者

回復 3# http1228

程式碼稍複雜, 但都是基本語法, 不多做說明:

Xl0000010.rar (40.14 KB)
http://www.funp.net/703552

靜思自在 : 要批評別人時，先想想自己是否完美無缺。

返回列表下一主題上一主題