[問題] VBA 篩選後查無資料 需提醒

看板Office作者 (阿虎幾)時間2年前 (2022/01/29 17:14), 2年前編輯推噓2(2推 0噓 12→)
留言14則, 4人參與, 2年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體:Excel 版本:365 我想要VBA做篩選後,如果查無資料要做提醒 目前我工作表的資料最後一筆到第520列 我的寫法如下 If Range("A1").End(xlDown).Row = Range("A" & Rows.Count).Row Then MsgBox "此日期範圍，查無訂單" End if 照理說查無資料時: Range("A1").End(xlDown).Row 這個位置會是 A1048576 為什麼我的檔案是到A520，我手動到工作表選取A1然後Crl+下 真的就只到A520 https://imgur.com/a/QoliSZ6 我上網看教學，那位老師也是Crl+下位置卻會到A1048576 是哪裡出了問題嗎? 或是有其他方法可行? -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.236.52.120 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1643447656.A.0FA.html
→
01/30 01:22, 2年前 , 1F
A520有空白壓 就會停再A520 沒問題的
01/30 01:22, 1F
→
01/30 01:23, 2年前 , 2F
但你的寫法有錯唷
01/30 01:23, 2F
→
01/30 01:24, 2年前 , 3F
另外一種則是遇到有隱藏
01/30 01:24, 3F
→
01/30 01:26, 2年前 , 4F
你想要最後一列
01/30 01:26, 4F
→
01/30 01:27, 2年前 , 5F
Lrow=Range("A" & Rows.Count).End(3).Row
01/30 01:27, 5F
→
01/30 01:27, 2年前 , 6F
再用if判斷Lrow 多少就好
01/30 01:27, 6F
一直到A520列都是有字串沒有空白 一般情況 A1-A520都有字串 選擇A1 然後 Crl+下 會停在A520 另一個情況 利用VBA篩選 如果查無資料就會顯示我內文貼圖那樣 A1到A520都會被篩選排除掉 為什麼有人可以在此情況 選擇A1然後 Crl+下 可以到達A1048576 我確不能？ ※ 編輯: bank89902595 (27.242.192.121 臺灣), 01/30/2022 01:59:14
推
01/30 09:38, 2年前 , 7F
您的資料應該有轉換成表格，表格狀態下Carl+下會優先在
01/30 09:38, 7F
→
01/30 09:38, 2年前 , 8F
表格範圍內，但目前想不到用什麼VBA解決您的問題
01/30 09:38, 8F
原來是表格的關係 看來是無解了
→
01/30 11:52, 2年前 , 9F
if Range("A1048576").End(xlUp).Row=1 then
01/30 11:52, 9F
向上也會停在A520 ※ 編輯: bank89902595 (115.165.192.143 臺灣), 01/31/2022 10:47:54
推
01/31 15:07, 2年前 , 10F
我想到一個方式：把你的資料表做成樞紐分析表，對樞紐表
01/31 15:07, 10F
→
01/31 15:07, 2年前 , 11F
作篩選，如果A2沒值就提醒
01/31 15:07, 11F
→
02/01 10:47, 2年前 , 12F
02/01 10:47, 12F
→
02/01 10:49, 2年前 , 13F
目前只想到用公式+變動處理，但篩選選完還是要點一下任
02/01 10:49, 13F
→
02/01 10:49, 2年前 , 14F
一儲存格才會執行
02/01 10:49, 14F
‣ 更多 bank89902595 的文章
文章代碼(AID): #1XzGLe3w (Office)