对象'_Global'的方法'工作表'失败了

时间:2017-12-15 19:53:41

标签: excel-vba vba excel

我搜索了很多主题寻找解决方案,大多数回复只是解决问题而不解释原因。

由于一些奇怪的原因,使用我创建的工作表的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

image

0 个答案:

没有答案