[问题] VBA 筛选后查无资料需提醒 bank89902595 PTT批踢踢实业坊

[问题] VBA 筛选后查无资料需提醒

楼主: bank89902595 (阿虎几) 2022-01-29 17:14:14

(若是和其他不同软件互动之问题请记得一并填写)
软件: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
是哪里出了问题吗? 或是有其他方法可行?

作者: waiter337 (给开司一罐苏格登) 2022-01-30 01:22:00

A520有空白压就会停再A520 没问题的但你的写法有错唷另外一种则是遇到有隐藏你想要最后一列Lrow=Range("A" & Rows.Count).End(3).Row再用if判断Lrow 多少就好

作者: gunit01 (晋纬) 2022-01-30 09:38:00

您的资料应该有转换成表格，表格状态下Carl+下会优先在表格范围内，但目前想不到用什么VBA解决您的问题

作者: Iories (无法克制) 2022-01-30 11:52:00

if Range("A1048576").End(xlUp).Row=1 then

作者: gunit01 (晋纬) 2022-01-31 15:07:00

我想到一个方式：把你的资料表做成枢纽分析表，对枢纽表作筛选，如果A2没值就提醒

作者: rafaiero (路人甲) 2022-02-01 10:47:00

https://i.imgur.com/2UKXt5c.jpg目前只想到用公式+变动处理，但筛选选完还是要点一下任一储存格才会执行

继续阅读

[算表] 使用Excel VBA的朋友，一定要知道的秘辛southknight [问题] 复制Excel公式, 希望目标数值固定不变zyk812 [算表] 资料验证-表格多选项问题qqwwpp [算表] 大批商品照片分类，汇入Excel去处理southknight [算表] 筛选特定项目aoirx [问题] 比较相同字符LtDirk [问题] excel 递增递减判断cclin71623 [算表] 关于筛选条件后自动更新最后一次的日期pc945 [问题] VBA 多层字典kumasan123 [算表] 如何计算出多条件下之加总数字trml

[问题] VBA 筛选后查无资料 需提醒

[问题] VBA 筛选后查无资料需提醒