看板 Office 關於我們 聯絡資訊
軟體: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
waiter337: 應該是沒有找到任何to:的字 05/02 05:38
waiter337: 可以在前面加上 on error resume next 05/02 05:39
waiter337: 不過上下句子 對照起來 好像不符合邏輯 05/02 05:42
waiter337: 單獨用本身沒問題 套用到你目前的做法 05/02 05:43
waiter337: 應該是想要模糊搜尋有"TO:"的位置 並取得欄列 05/02 05:43
waiter337: 如果有找到 就更改該位置的字體大小粗體 05/02 05:44
waiter337: 但目前你的寫法是 假設沒找到時>改變該位置的字體大小 05/02 05:45
waiter337: 粗體 05/02 05:46
waiter337: 1.b無法帶入任何資料會錯誤 05/02 05:46
waiter337: 2.既然沒找到的話 range(b)也無法正常判斷 又會錯誤 05/02 05:47
Iories: 把 b = a.Address 往下移三行(else 下一行) 05/02 08:37
原來是我思考不周,感謝,以正常執行。 ※ 編輯: pointchi (1.160.65.65 臺灣), 05/02/2021 20:58:37