返回列表 上一主題 發帖

[發問] 如何寫自動篩選的判斷式?

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-24 16:29 | 只看該作者

[發問] 如何寫自動篩選的判斷式?

當我使用自動篩選不出資料時,做XXXXXXX

這該如何下判斷呢?

還是說我可以使用判斷現在儲存格位置為空做?

IF ActiveCell="" then

以上是對的嗎?

自動篩選能單一篩選多個欄位嗎? 然後把結果都列出來~如果結果為空就不用列出~目前正在努力中!
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
9#
發表於 2011-8-26 11:25 | 只看該作者
回復 8# oobird


    真不好意思 可能要把"總表"改成紅白帖

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
8#
發表於 2011-8-26 11:11 | 只看該作者
附件跟本沒有Sheets("紅白帖")

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
7#
發表於 2011-8-26 10:10 | 只看該作者
本帖最後由 av8d 於 2011-8-26 11:28 編輯

回復 6# oobird


    oobird大大謝謝您為我解答了那麼多問題~問題如下

AutoSerch.rar (68.62 KB)

希望可以針對"總表"做查詢~輸出在"關鍵查詢表"下方

針對全欄位做篩選~舉例說明如下:

A     B    C       D
80   90  100  110
66   80  77     55
44   33  80     22
11   88  99     80

當我在"關鍵字查詢表"上的textbox輸入80

必須篩選出全欄位有出現過80的數字或中文字

目前還在研究階段!所以才只詢問需求功能~再次感謝大大的關心!

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
6#
發表於 2011-8-25 17:09 | 只看該作者
像是元宵節猜燈謎。
真的想問問題就把問題說清楚，把問題的附件傳上來。
別人才知道你遇到的是怎樣的問題，如何來解決。

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
5#
發表於 2011-8-25 16:41 | 只看該作者
他好像每次都無法判斷到空耶~他每次都會做Else

我是以表1為資料庫~利用表2查詢~資料結果輸出到表2

可是我下判斷後~無論有無資料都會複製~

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-8-25 16:05 | 只看該作者
沒篩選到資料時 [a1].End(xlDown).Row會是Rows.Count，這是檔案底端。

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2011-8-24 19:08 | 只看該作者
在篩選後只要判斷最後一列的行號就知道是否有篩選到資料。
沒篩選到資料時 [a65536].End(xlUp).Row會是1，這是標題列。
不是1就表示有篩選到的資料存在

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
2#
發表於 2011-8-24 18:05 | 只看該作者
當我使用自動篩選不出資料時,做XXXXXXX

您好!

參考看看~

方法一.判斷篩選後的第一筆是否有資料

例如判斷 A 欄位在篩選後,是否有資料
If [a2:a65536].SpecialCells(xlCellTypeVisible)(1, 1) = Empty Then
    ......  '做XXXXXXX
End If

方法二.計算篩選後的資料筆數(例如 subtotal 帶入參數3)

方法三~ 待其他大大提供..

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題