Question

VBA 运行时错误1004"save"作用于对象"-wrokbook"时失败，求高手解决！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = xlNone
ActiveCell().EntireRow.Interior.Color = RGB(255, 255, 160)
If Target.Address = "$B$5" Then
Dim dic As Object
Dim arr, i%
arr = Sheet4.Range("B8:B" & Sheet4.[B100000].End(3).Row)
Set dic = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then dic(arr(i, 1)) = ""
Application.DisplayAlerts = False
Next
With Range("$B$5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(dic.keys, ",")
End With
End If
If Target.Address = "$C$5" Then
arr = Sheet4.Range("A7:A" & Sheet4.[A100000].End(3).Row)
Set dic = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then dic(arr(i, 1)) = ""
Application.DisplayAlerts = False
Next
With Range("$C$5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(dic.keys, ",")
End With
End If
If Target.Address = "$D$5" Then
arr = Sheet4.Range("A7:A" & Sheet4.[A100000].End(3).Row)
Set dic = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then dic(arr(i, 1)) = ""
Application.DisplayAlerts = False
Next
With Range("$D$5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(dic.keys, ",")
End With
End If
End Sub

Answer 1

你这个代码里面没有SAVE语句，不可能是这个错误。

Answer 2

不会是这段代码出现的错误，应该是其它地方的代码出现的错误。
把真正出错的代码找出来才能帮你分析。