- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2025-7-5
|
回復 1# tw123456789
1. on error goto next 那指令只要有放一個就可以了,不用連續放兩個.
2. 因沒實例, 我猜測改成底下這樣有可能可以解決你的問題
On Error Resume Next
Target.Offset(0, 1).Locked = False ' 搬到這裡 - 要變更儲存格格式或內容前先解鎖
If value_1 = "ABC" Or value_1 = "" Then
Target.Offset(0, 1).Interior.ColorIndex = xlNone
Else
Target.Offset(0, 1) = ""
3. 如果上述方式無效.
因為沒有提供實際的程式可以追蹤,
所以我僅能猜測問題發生的可能原因 :
程式會當掉的原因依我的經驗應該是執行過程中出現 "無限迴圈" 的情形造成的.
你可以故意再讓它發生此情形,
然後按下 Ctrl+Break 程序會停在某一行指令上,
接著按下 F8 單步執行以觀察程序到底迴圈是發生在哪些指令上,
這樣會較容易找到問題點. |
|
發表於 2011-10-12 23:00
| 