返回列表 上一主題 發帖

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

http1228

帖子
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)
收藏 分享

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-17 
2#
發表於 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<>""))　右拉

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

TOP

http1228

帖子
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)

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-17 
4#
發表於 2016-5-2 18:01 | 只看該作者
回復 3# http1228

程式碼稍複雜, 但都是基本語法, 不多做說明:
Xl0000010.rar (40.14 KB)
http://www.funp.net/703552

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題