编写一VBA程序，如下图及介绍。

txy100416

存货

        如上图所示。我想在D列存货名称中输入电缆型号，因为电缆型号有上万种，想加一个VBA程序，在上图中，已经输到D10，如果我在D11中输入型号后，如果从D1-D10中已经输入此型号了，就显示一个文本“已存在”，如果没有则可以继续输入，以此类推，从D12中输入时就从D1-D11中数据进行查找。

       请教各位大神，该程序该如果编写，谢谢！！

txy100416

有木有可以帮忙的啊

mtldsw

右键表格名称，查看代码，把以下代码复制进去就可以了。
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To Range("d65536").End(xlUp).Row - 1
If Target.Offset(0, 0) = Cells(i, 4) Then
MsgBox "已存在"
End If
Next
End Sub

txy100416

mtldsw 发表于 2014-1-4 13:19
右键表格名称，查看代码，把以下代码复制进去就可以了。
Private Sub Worksheet_Change(ByVal Target As R ...

输入之后没有反应，Target.Offset(0, 0) = Cells(i, 4)语句是什么意思？
谢谢

mtldsw

宏安全性设置了没？要启用宏。把表格发上来。。。

txy100416

mtldsw 发表于 2014-1-4 16:58
宏安全性设置了没？要启用宏。把表格发上来。。。

非常非常感谢，我把语句换了个位置  Cells(i, 4)=Target.Offset(0, 0)就成了。
然后我还想问一下，如果我想加一个如果没有相同的数据就显示文本“请继续输入”，我用了else怎么跳不出循环x了？一直是请继续输入的框，怎么点确定都点不了。excel都关不了

ilovefreekick

学习了，厉害！

tf555

挺好，学习学习