请帮助我,谢谢您

nymha

情比金坚

用vlookup()函数

nymha

好象不行的啊,要不兄弟你示范一下给我好吗?相关参数怎么设定啊?

老鬼

这是以前一个网友问我时做的，跟你的问题类似：

nymha

斑竹啊,我说的是在此单元格内输入图号,回车后在本单元格显示相对应的零件的中文名称

老鬼

一样的，把VBA里的返回值改在本单元格就可以了

nymha

斑竹大人啊,小弟我是一个菜鸟啊,看那段VBA的程序有点头晕,如果您有时间的话就帮我做做,如果实在不行的话就算了,不好意思啊,再次感谢您

老鬼

好吧，把下面的代码替换掉原来的代码就可以了Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

Dim X

X = Sheets("员工库").[A65536].End(xlUp).Row '得到员工库的最后一行数据的行号

    If Target.Count = 1 Then '如果仅选定一个单元格

        Application.EnableEvents = False '停止事件发生

            For I = 2 To X '循环查找

                With Sheets("员工库").Cells(I, 1)

                    If .Value = Target.Value Then

                        'Target.Offset(0, 1).Value = .Offset(0, 1).Value

                        Target.Value = .Offset(0, 1).Value

                        'If Target.Offset(0, -1).Value = "" Then

                            'Target.Offset(0, -1).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1

                        'End If

                    End If

                End With

            Next I

        Application.EnableEvents = True

    End If

End Sub

nymha

万分感谢斑竹大人!!!!