返回列表 上一主題 發帖

進階篩選

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-9-6 11:37 | 顯示全部帖子

進階篩選

前輩：
請問進階篩選之巨集，如何改成有迴圈功能(包含篩選準
則，與資料範圍)

Sub 巨集1()
'
' 巨集1 巨集
'

'
    Range("G:K").Clear
        Range("A1:E2319").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("L1:L8"), CopyToRange:=Range("G16:K16"), Unique:=False
    Range("G16").Select
End Sub

問題.rar (128.1 KB)

收藏 分享
希望支持!

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
2#
發表於 2016-9-8 09:15 | 顯示全部帖子
版主：
你誤會我的意思了，我已重新將問題修正，篩選：條件1(固定不變)
條件2(要有迴圈，因會有增減)，產生如結果

問題1.rar (482.16 KB)

希望支持!

TOP

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
3#
發表於 2016-9-9 08:44 | 顯示全部帖子
版主：
首先謝謝版主，
我測試了(程式碼貼上了)，還是有問題，只顯示一列，
後面要顯示的資料不見了，我把我想要的顯示的結果放在
應顯示結果工作表中，(測試結果如附檔)
另外結果工作表中date欄的日期格式，要如何
改成2016/01/01

問題1_1050909.rar (487.15 KB)

希望支持!

TOP

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
4#
發表於 2016-9-10 09:21 | 顯示全部帖子
版主：若用條件式加迴圈可行嗎？
希望支持!

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題