kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2025-5-7

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-4-28 22:46 | 只看該作者

[發問] 如何使用VBA控制進階篩選，條件內容不固定

大大請問:
如何用VBA控制進階篩選的條件列的列數(每次不固定,可能有兩個條件或三個條件)
資料來源的列數量也不固定，(每次都不同)，請問如何控制?

2016-04-28_224102.png (18.2 KB)

20160428-sample.rar (8.89 KB)

樓主熱帖

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2025-5-7

6^#

發表於 2016-5-1 19:07 | 只看該作者

回復 3# Hsieh

Hsieh大:

當我的準則跟資料範圍都是變動的，需要如何調整程式?
是將E4的"4"變成變數嗎?

TOP

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2025-5-7

5^#

發表於 2016-4-30 23:07 | 只看該作者

大大:
333是對應兩個，資料KEYIN錯誤

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 261
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2016-4-29 00:42 | 只看該作者

回復 1# kim223824

333不是應該對應2個嗎?

Sub ex()
Set d = CreateObject("Scripting.dictionary")
For Each A In Range([A4], [A4].End(xlDown))
If A.Offset(, 3) <> "" Then
If d(A.Value) = "" Then
d(A.Value) = A & ":" & "," & A.Offset(, 3)
ElseIf InStr(d(A.Value), A.Offset(, 3)) = 0 Then
d(A.Value) = d(A.Value) & "," & A.Offset(, 3)
End If
End If
Next
s = Split(Join(d.items, ","), ",")
[I1].Resize(, UBound(s) + 1) = s
End Sub

複製代碼

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 261
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2016-4-29 00:17 | 只看該作者

回復 1# kim223824