请教加了判断代码为什么不能运行了

鄂龙蒙

请教：E2以下是在准确填上【数据源】表中“项目”时，

F列自动填上【数据源】中对应的单位，

目前可以做到。

但是在对已填的“项目”行修改或清除时：

【数据源】中没有或为空时，F列为空，

加了判断代码后就不正常了。

Target问题.rar (16.71 KB, 下载次数: 6)

2017-4-13 21:55 上传

点击文件名下载附件

谢谢！

gmummy

我按照你的代码试下来是没问题的。。。。

鄂龙蒙

gmummy 发表于 2017-4-13 22:05
我按照你的代码试下来是没问题的。。。。

谢谢您！
清空的代码您用上了吗？

gmummy

抱歉，刚刚又试了一下，不对了。
不过你这个用工作表事件真的好吗？个人感觉不太合适，还是模块添加按钮合适。
请高人指点

mzbao

1. If Range("E" & Target.Row) = ar(i, 1) Then

复制代码

改成：

1. If Range("E" & Target.Row).Value = ar(i, 1) Then

复制代码

gmummy

鄂龙蒙 发表于 2017-4-13 22:09
谢谢您！
清空的代码您用上了吗？

选择了selection change，然后改了一下代码，这样我试下来可以了，你试试。

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. 
   
4. Dim ar, i&, j&
   
5. ar = Sheet2.[a1].CurrentRegion
   
6. If Target.Column = 6 And Target.Row > 1 Then
   
7.     For i = 2 To UBound(ar)
   
8.         If Target.Offset(0, -1) = ar(i, 1) Then
   
9.             Target = ar(i, 2)
   
10.             Exit Sub
    
11.         Else
    
12.             Target = ""
    
13.         End If
    
14.     Next
    
15. End If
    
16. End Sub

复制代码

lsc900707

Private Sub Worksheet_SelectionChange(ByVal T As Range)
   If T.Column = 5 And T.Row > 1 Then
       arr = Sheet2.[a1].CurrentRegion
       For i = 2 To UBound(arr)
           If T.Value = arr(i, 1) Then
               T.Offset(, 1) = arr(i, 2)
               Exit For
           Else
               T.Offset(, 1) = ""
           End If
       Next
   End If
End Sub