突出顯示整行時的運行時錯誤13

每當我嘗試突出顯示D列時，都會收到「運行時錯誤13」。當我點擊調試時，它從代碼If Target.Value = "Closed" Or Target.Value = "Closed" Then中突出顯示了這一塊。我將不勝感激關於如何解決此問題的任何建議。突出顯示整行時的運行時錯誤13

編輯*

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 


Dim wsd As Worksheet 
Dim wsc As Worksheet 
Application.ScreenUpdating = False 
Set wsd = Sheets("Pipeline") 
Set wsc = Sheets("Closed") 
If Not Intersect(Target, Range("D6:D65536")) Is Nothing Then 
    If Target.Value = "Closed" Or Target.Value = "Closed" Then 
erow = Target.Row 
MsgBox "Moved to Closed" 
numberofrow = wsc.Range("A65536").End(xlUp).Row 
For i = 1 To numberofrow 
If wsd.Cells(erow, 1) = wsc.Cells(i, 1) Then 
Exit Sub 
End If 
Next 

wsd.Range("A" & erow & ":A" & erow).EntireRow.Copy wsc.Range("A" & numberofrow + 1) 
With Target.Parent 
    Union(.Range(.Cells(Target.Row, "A"), .Cells(Target.Row, "V")), _ 
     .Range(.Cells(Target.Row, "Y"), .Cells(Target.Row, .Columns.Count))).ClearContents 
`enter code here`End With 
wsc.Activate 
ActiveSheet.Range("A2:D" & numberofrow + 1).Select 
ActiveWorkbook.Worksheets("Closed").Sort.SortFields.Clear 
ActiveWorkbook.Worksheets("Closed").Sort.SortFields.Add Key:=Range("C2:C" & numberofrow + 1), _ 
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
With ActiveWorkbook.Worksheets("Closed").Sort 
.SetRange Range("A2:D" & numberofrow + 1) 
.Header = xlYes 
.MatchCase = False 
.Orientation = xlTopToBottom 
.SortMethod = xlPinYin 
.Apply 
End With 
wsd.Activate 
End If 
End If 


End Sub

我不得不爲了得到這個工作，這就是爲什麼它是很醜陋的拼湊一些東西放在一起。我無法弄清楚在哪裏放置警戒條款。到目前爲止，這已經適用於我需要的功能（除運行時錯誤外），根據輸入到D列的銷售階段將帳戶轉移到單獨的工作表。再次感謝所有幫助。

來源

2017-02-24 Andy

在您的事件處理程序中添加一個警戒子句：'如果Target.Cells.Count = 1'。 – Comintern

另外，爲什麼有相同的情況兩次？ – BruceWayne

您需要改善您的Worksheet_SelectionChange事件宏，以便它不會在每次您在工作表上執行任何操作時觸發。 – Jeeped

您的處理程序假定只選擇了1個單元格。當您突出顯示整列時，Target代表所有選定的單元格，然後Target.Value無法進行有意義的評估，因此會引發運行時錯誤。

您需要修改刪除的處理程序是假設，as was suggested：

If Target.Cells.Count > 1 Then Exit Sub

據推測該事件的處理程序需要更多的調整驗證Target是宏觀的想法/假定它是，但給出的信息你已經提供了這樣的。

來源

2017-02-24 16:59:22

我編輯了我原來的帖子，包含了整個代碼。希望它能幫助 – Andy

@Andy沒有必要，問題是一樣的 - 只要在程序的頂部添加上述條件就可以在Target中包含多個單元格時進行保護。這不能解決問題嗎？ –

太棒了！工作得很好，謝謝！ – Andy

突出顯示整行時的運行時錯誤13

回答

相關問題