可以利用VBA進行多條件篩選嗎?

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

11^# 跳轉到 »

發表於 2017-7-20 09:22 | 只看該作者

本帖最後由 Michelle-W 於 2017-7-20 09:23 編輯

回復 3# GBKEE

不好意思..這個才是正確檔案(上個回覆已超過時間，無法編輯...
麻煩了，謝謝

疑問-正確檔.rar (34.91 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2017-7-20 20:35 | 只看該作者

回復 11# Michelle-W
試試看

疑問.zip (937.33 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

13^#

發表於 2017-7-21 10:10 | 只看該作者

回復 12# GBKEE

  謝謝版主大大的指點
  另外有個問題想請教您，若是剛好有空格的話，空格以下的文字並不會顯示於ListBox
  請問應該如何調整code呀?

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

14^#

發表於 2017-7-21 11:14 | 只看該作者

回復 12# GBKEE

版主您好
資料方面A欄肯定一定有資料，BCD欄就不一定了
想說迴圈可以加一個條件 B欄<>""&A欄<>""
我嘗試修改，還是改不出來...
若您有空，可以再麻煩您指點一下嗎? 謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

發表於 2017-7-21 15:46 | 只看該作者

本帖最後由 GBKEE 於 2017-7-21 15:48 編輯

回復 14# Michelle-W
[想說迴圈可以加一個條件 B欄<>""&A欄<>""] 好像沒有必要吧

[若是剛好有空格的話，空格以下的文字並不會顯示於ListBox] 已修改了,篩選空格需用 "="

疑問.zip (28.05 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

16^#

發表於 2017-7-21 17:19 | 只看該作者

回復 15# GBKEE

真的很感謝版主，還修改成能選填時能即時顯示
但目前我的資料量比較多，會稍微卡卡的...(
還是想說選擇什麼，再執行會好一點
如果以昨晚您回復的UserForm_Initialize寫法，也是可以加"="來做Listbox的讀取嗎?(能讀取空格以後的)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

17^#

發表於 2017-7-24 08:55 | 只看該作者

本帖最後由 GBKEE 於 2017-7-24 09:01 編輯

回復 16# Michelle-W
試試看

選擇篩選.zip (87.05 KB)

Do
If .Cells(R, i) <> "" Then 'i 為欄的位置
d(.Cells(R, i).Value) = ""
Else
d("=") = ""
End If
R = R + 1
Loop Until .Cells(R - 1, i).End(xlDown).Row = Rows.Count

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

18^#

發表於 2017-7-24 18:02 | 只看該作者

回復 17# GBKEE

謝謝版主大大一直指導
我比較少接觸這類程式碼，需要花點時間消化
非常感謝^^

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]