[算表] vba偵錯問題

作者: pointchi (pointchi)   2021-05-02 00:37:31
軟體: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
作者: waiter337 (給開司一罐蘇格登)   2021-05-02 05:38:00
應該是沒有找到任何to:的字可以在前面加上 on error resume next不過上下句子 對照起來 好像不符合邏輯單獨用本身沒問題 套用到你目前的做法應該是想要模糊搜尋有"TO:"的位置 並取得欄列如果有找到 就更改該位置的字體大小粗體但目前你的寫法是 假設沒找到時>改變該位置的字體大小粗體1.b無法帶入任何資料會錯誤2.既然沒找到的話 range(b)也無法正常判斷 又會錯誤
作者: Iories (無法克制)   2021-05-02 08:37:00
把 b = a.Address 往下移三行(else 下一行)

Links booklink

Contact Us: admin [ a t ] ucptt.com