作者pointchi (pointchi)
看板Office
标题[算表] vba侦错问题
时间Sun May 2 00:37:31 2021
软体:excel
版本:2016
小弟VBA功力不好，因此都是先写好一部分确认可行，然後再组装进我要的档案。
之前我编写一个如下附图
https://i.imgur.com/EobzSvi.jpg
可行之後将他组装入我的巨集档案，
可是执行到
Set a = Worksheets("raw").Cells.Find("To:", LookAt:=xlPart)
b = a.Address
就会卡住(如下附图)，请问是甚麽原因吗
https://i.imgur.com/dRYJI22.jpg
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.160.65.65 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1619887055.A.E62.html
1F：推 waiter337: 应该是没有找到任何to:的字 05/02 05:38
2F：→ waiter337: 可以在前面加上 on error resume next 05/02 05:39
3F：→ waiter337: 不过上下句子 对照起来 好像不符合逻辑 05/02 05:42
4F：→ waiter337: 单独用本身没问题 套用到你目前的做法 05/02 05:43
5F：→ waiter337: 应该是想要模糊搜寻有"TO:"的位置 并取得栏列 05/02 05:43
6F：→ waiter337: 如果有找到 就更改该位置的字体大小粗体 05/02 05:44
7F：→ waiter337: 但目前你的写法是 假设没找到时>改变该位置的字体大小 05/02 05:45
8F：→ waiter337: 粗体 05/02 05:46
9F：→ waiter337: 1.b无法带入任何资料会错误 05/02 05:46
10F：→ waiter337: 2.既然没找到的话 range(b)也无法正常判断 又会错误 05/02 05:47
11F：→ Iories: 把 b = a.Address 往下移三行(else 下一行) 05/02 08:37
原来是我思考不周，感谢，以正常执行。
※ 编辑: pointchi (1.160.65.65 台湾), 05/02/2021 20:58:37