我搜索了很多主题寻找解决方案,大多数回复只是解决问题而不解释原因。
由于一些奇怪的原因,使用我创建的工作表的2个人在启用内容后得到运行时错误“1004”。即使另一个人和我自己也没有问题。该错误指向Value1行。 “Vlookup排序列表”是隐藏表。
对象'_Global'的方法'工作表'失败
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim Value1 As String
Dim Value2 As String
Dim Value3 As String
Value1 = Worksheets("sortlist for Vlookup").Range("B30") '<-- Where the error points
Value2 = Worksheets("sortlist for Vlookup").Range("A31")
Value3 = Worksheets("sortlist for Vlookup").Range("B2")
With Worksheets("input")
If Range("B14").Value = Value1 Then
Range("B15").Value = "0"
End If
If Range("B13").Value = Value2 Then
Range("B20").Value = "0"
End If
If Range("B11").Value = Value3 Then
Range("B25").Value = Value3
End If
End With
End Sub