VB Excel中錯誤

Question

當執行以下VB代碼和「跟蹤修改」功能開啓我在MS Excel遇到錯誤：

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 1 Then 
     If IsEmpty(Target) Then 
      Target.Offset(0, 1).Value = Empty 
     Else 
      Target.Offset(0, 5).Value = Now() 
     End If 

    End If 

End Sub 

看來，我可以將數據輸入到第一2行很好，但一旦我開始填充第三行和之後的數據，我得到一個錯誤，指出「運行時錯誤」1004'應用程序定義或對象定義的錯誤「。

Answer 1

變更跟蹤強制工作簿變爲共享，這將禁用許多功能（例如，您無法通過啓用更改跟蹤訪問VBA）。

我不能完全肯定爲什麼被拋出這個錯誤，但有解決方法，以避免看到此消息將Resume Next時出現錯誤：

On Error Resume Next

只需添加這行關於您的第一個If區塊的代碼（If Target.Column = 1 Then）。請注意，理想情況下，您應該想要辨別此問題的來源，並且此解決方案是一種解決方法，這可能不是一種好的做法。

Answer 2

我得到從第2行開始的錯誤，並使用此代碼打開跟蹤更改。代碼似乎做它應該做的事情，無論錯誤，所以我會建議一個On Error Resume Next解決。

這並沒有解決更改跟蹤的任何潛在問題，您的更改可能未被跟蹤。