PTT數位生活區 / Office

[算表] vba偵錯問題

看板Office作者 (pointchi)時間3年前 (2021/05/02 00:37), 3年前編輯推噓1(1推 0噓 10→)
留言11則, 2人參與, 3年前最新討論串1/1
軟體: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://www.ptt.cc/bbs/Office/M.1619887055.A.E62.html
推
05/02 05:38, 3年前 , 1F
應該是沒有找到任何to:的字
05/02 05:38, 1F
→
05/02 05:39, 3年前 , 2F
可以在前面加上 on error resume next
05/02 05:39, 2F
→
05/02 05:42, 3年前 , 3F
不過上下句子 對照起來 好像不符合邏輯
05/02 05:42, 3F
→
05/02 05:43, 3年前 , 4F
單獨用本身沒問題 套用到你目前的做法
05/02 05:43, 4F
→
05/02 05:43, 3年前 , 5F
應該是想要模糊搜尋有"TO:"的位置 並取得欄列
05/02 05:43, 5F
→
05/02 05:44, 3年前 , 6F
如果有找到 就更改該位置的字體大小粗體
05/02 05:44, 6F
→
05/02 05:45, 3年前 , 7F
但目前你的寫法是 假設沒找到時>改變該位置的字體大小
05/02 05:45, 7F
→
05/02 05:46, 3年前 , 8F
粗體
05/02 05:46, 8F
→
05/02 05:46, 3年前 , 9F
1.b無法帶入任何資料會錯誤
05/02 05:46, 9F
→
05/02 05:47, 3年前 , 10F
2.既然沒找到的話 range(b)也無法正常判斷 又會錯誤
05/02 05:47, 10F
→
05/02 08:37, 3年前 , 11F
把 b = a.Address 往下移三行(else 下一行)
05/02 08:37, 11F
原來是我思考不周，感謝，以正常執行。 ※ 編輯: pointchi (1.160.65.65 臺灣), 05/02/2021 20:58:37
‣ 更多 pointchi 的文章
文章代碼(AID): #1WZOFFvY (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 pointchi 的文章
文章代碼(AID): #1WZOFFvY (Office)