作者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/m.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