• 2

excel VB 篩選列印

小弟爬了不少文,實在找不到
公司有一報表。欄位是固定的
我會篩選某一欄位。這欄位是產品po。我會篩出同樣po的列。然後列印
每次來的po數字都不一樣
我要如何做到,自動篩出相同的po,然後分別列印呢。
每次都要篩選,然後一個一個po選。然後分別列印,很麻煩。
感謝大大。。。。

下面用圖表來說明

excel VB 篩選列印


excel VB 篩選列印


就例如上表,我用錄製功能
我勾選一個人名後,然後就只會有這名子的欄位的資料存在,然後印出來
重覆四個這樣的動作,分別印出來

可是問題來了,以此表為例。每天來的報表,人名都不一樣,人名的也不見得像這表只有四個。
那我要如何用VB做到。報表一來,就自動幫我一個一個篩選,自動一個一個列印出來。
以下是程式碼
ActiveSheet.Range("$A$1:$C$7").AutoFilter Field:=2, Criteria1:="洪惠全"
ActiveSheet.Range("$A$1:$C$7").AutoFilter Field:=2, Criteria1:="郭美妙"
ActiveSheet.Range("$A$1:$C$7").AutoFilter Field:=2, Criteria1:="曾文萍"
ActiveSheet.Range("$A$1:$C$7").AutoFilter Field:=2, Criteria1:="黃汝麟"

就像這程式碼,每天來的名子不一樣。不見得是後面那四個人名
也不見得只有選擇四組人名

小弟腦動到快打結
希望有大神幫幫忙~
2018-12-26 12:53 發佈

木酢液 wrote:
小弟爬了不少文,實...(恕刪)


是否有使用過巨集錄製試試看
你的邏輯 再來修改 會比較快些唷

木酢液 wrote:
小弟爬了不少文,實...(恕刪)

有範例或壓縮檔可以參考嗎......?
有範例檔可參考嗎?
初步構想是可將資料以Data base方式先整理好~接著使用樞紐分析功能~把您要分類的如客戶欄位放置
報表篩選欄位,將其他欄位放於列標籤~接著使用樞紐功能~顯示報表篩選頁面~就可依各客戶分成各sheet~
如此再全選一次列印即可~
prolion2035 wrote:
有範例檔可參考嗎?初...(恕刪)

公司報表無法用上來
這報表欄位約19個
我只會找其中一欄。來選出有相同的列印。例如有100列資料。我由此欄位可挑出相同po的共有三批。所以印三次共100列資料
用錄製的。篩選卡在每次來的po字串不同。Vb裡頭字串是固定的。
木酢液 wrote:
公司報表無法用上來這...(恕刪)

其實簡單說。就是篩選功能就是有分批的勾勾。我要如何做到勾一個,然後列印,再勾下一個,然後列印。。。Vb有辦法寫出嗎?
https://www.mobile01.com/topicdetail.php?f=511&t=5056987&p=1#63233105

木酢液 wrote:
其實簡單說。就是篩...(恕刪)


將所有PO列在另一個工作表
利用回圈跟下面這一行去依序抓取PO
ActiveSheet.Range("$A$1:$C$7").AutoFilter Field:=2, Criteria1:= 變數
簡單來講就是這樣

木酢液 wrote:
小弟爬了不少文,實在...(恕刪)



我的方法比較笨

你可以試試看

先將你要篩選的欄位篩選出來

然後複製到別的sheet的某欄位

然後開始從你複製過去的那個欄位開始抓資料

VBA如下↓

Sheets("sheet1").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:="", CopyToRange:=Sheets("sheet2").Range("A:A"), Unique:=True

(將sheet1中的A欄位篩選後,複製到sheet2的A欄位中)


snare wrote:
https://www...(恕刪)


  • 2
內文搜尋
X
評分
評分
複製連結
Mobile01提醒您
您目前瀏覽的是行動版網頁
是否切換到電腦版網頁呢?