返回列表下一主題上一主題發帖

[發問] 工作表Worksheet_Change有巨集，使用右鍵貼上資料excel會當掉

tw123456789

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
註冊時間: 2011-3-23
最後登錄: 2015-8-17

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-10-12 17:08 | 只看該作者

[發問] 工作表Worksheet_Change有巨集，使用右鍵貼上資料excel會當掉

請問:
工作表Worksheet_Change寫有巨集，其巨集內容主要是檢查值的改變
ex:當Target(被改變的欄位)=第6欄時，則會改變其他的欄位值
If Target.column= 6 Then
On Error Resume Next
      On Error Resume Next
If value_1 = "ABC" Or value_1 = "" Then
      Target.Offset(0, 1).Interior.ColorIndex = xlNone
      Target.Offset(0, 1).Locked = False
Else
      Target.Offset(0, 1) = ""
      With Target.Offset(0, 1).Interior
               .ColorIndex = 34
               .Pattern = xlSolid
      End With
End If
Target.Offset(0, 1).Locked = True
On Error GoTo 0
End If

這類的控制並不只有第六欄,  還有很多欄被控制，但大多都是填值或是填顏色、設保護
會使用on error resume next 是希望不要因error而停下來。
回到工作表要做右鍵複製貼上時，卻會使整個excel當掉
但若改用ctrl+c、ctrl+v，則會安全過關
請問該怎解決呢?

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 13
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-10-25

2^#

發表於 2011-10-12 23:00 | 只看該作者

回復 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 單步執行以觀察程序到底迴圈是發生在哪些指令上,
這樣會較容易找到問題點.

TOP

靜思自在 : 知識要用心體會，才能變成自己的智慧。

返回列表下一主題上一主題