请老师帮忙分析：双击条件单元格后跳转，设置两个条件时，其中之一报错

lovershome

向各位老师请教
代码如下

问题：
当单独写入第一段代码，或是第二段代码时，运行OK
当将全部代码都写入时
1、先双击满足第一段代码的单元格，运行OK；
2、但如果先双击满足第二段代码的单元格后再双击满足第一段代码的单元格，报错；
3、无论何种操作，双击满足第二段代码的单元格时，运行OK；

文件如附件
谢谢

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'双击单元格时触发
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer

    If Target.Column > 17 Then 'decide if the target cell is component '如果双击的单元格列标大于17

    For i = 0 To 1500 Step 1 'check with in 1500 rows' area '并且双击的目标单元格行标满足=i+5
    If Target.Row = 5 + 9 * i Then
    Sheets("Manual P").Select '跳转到Sheets"Manual P"
    x = Sheets("Manual P").Range("b:b").Find(Sheets("ATP").Cells(Target.Row, "d").Value).Row '给x赋值为双击的目标单元格的值在Sheets"Manual P"中B列所在位置的行数
    y = Sheets("Manual P").Range("4:4").Find(Sheets("ATP").Cells(4, Target.Column).Value).Column '给y赋值为双击的目标单元格的值在Sheets"Manual P"中B列所在位置的列数
    Sheets("Manual P").Cells(x, y).Select  '选中单元格（x,y）
    Exit For
    End If
    Next
    End If
   
    If Target.Column = 8 Then '如果双击的单元格列标等于8
    If Sheets("ATP").FilterMode Then '同时表格ATP有筛选
    Sheets("ATP").ShowAllData '取消筛选
    End If
    z = Sheets("ATP").Columns("d").Find(what:=Target.Value, LookIn:=xlValues).Row + 7 'get the row NO. of target cell in column D
    '给z赋值为双击的目标单元格的值在Sheets"Manual P"中B列所在位置的行数+7
    Sheets("ATP").Cells(z, "d").Select '选中单元格(z, "d")
    End If
End Sub

lovershome

顶，有没有老师帮忙指点一下，谢谢

microyip

这个好像之前见过的贴，又重新发帖

lovemh1987

没见报什么错

lovershome

microyip 发表于 2020-1-15 09:10
这个好像之前见过的贴，又重新发帖

老师，上周确实发过，您也给做了指导，非常感谢。
但无奈确实刚入门，没搞懂问题出在哪里了
所以又重新发了一遍

能否帮忙进一步指导一下，谢谢

lovershome

lovemh1987 发表于 2020-1-15 09:19
没见报什么错

老师好，感谢关注
是这样的
代码想实现的功能是：
条件A、如果双击第5、14.....5+9i行大于18列的数据，跳转到manual P中，与双击单元格的日期及零件号相同的单元格。
条件B、如果双击第8列（component）的数据，跳转到sheet（ATP）中，D列对应零件号的单元格。
实际运行的时候
1、如果仅双击满足条件A的单元格，则跳转运行都OK
2、如果双击满足条件B的单元格，然后再双击满足条件A的单元格，就会报错
3、无论操作顺序如何，任何时候双击满足条件B的单元格，跳转都正常

经过测试，如果仅写入第一段代码，或者仅写入第二段代码，操作都OK

lovershome

哪位老师帮忙看一下，报错出现的原因是什么？
查了很多资料，书也查了，没找到问题所在
谢谢啦

microyip

设置断点，F8一步步执行就知道错误在哪了

lovershome

microyip 发表于 2020-1-16 08:58
设置断点，F8一步步执行就知道错误在哪了

设置断点后，F8一步一步执行，到
  y = Sheets("Manual P").Range("4:4").Find(Sheets("ATP").Cells(4, Target.Column).Value).Column报错
与系统提示一致

我在x、y的赋值语句后面，分别加入了让sheet\manual P的A1和B1单元格分别等于x，y的语句
    Sheets("Manual P").Cells(1, 1) = x
    Sheets("Manual P").Cells(1, 2) = y

当运行出错的时候发现，x能够得到想要的值，y无法赋值
出错的语句应该就是
    y = Sheets("Manual P").Range("4:4").Find(Sheets("ATP").Cells(4, Target.Column).Value).Column
跟系统提示是一致的

但不知道为什么会导致此错误。

lovershome

lovershome 发表于 2020-1-16 09:49
设置断点后，F8一步一步执行，到
  y = Sheets("Manual P").Range("4:4").Find(Sheets("ATP").Cells(4,  ...

补充一下，如果双击跳转只设置了条件A：如果双击第5、14.....5+9i行大于17列的数据就跳转的话，所有的代码给y赋值的语句不变，运行是没有任何问题的

当代码同时设置了条件A和B，并且，我先双击过第8列，就会导致y无法赋值

我推测是因为目标单元格因为B条件的语句的影响，造成了什么错误，导致y无法赋值

不懂的是，为什么会有错误