[已解]还有查询代码怎么写？

xhsdham

再改下

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 100
If Target.Row < 3 Or Target.Column <> 3 Then Exit Sub
If Target.Value = "" Or Cells(Target.Row, 2).Value = "" Then Exit Sub
Application.ScreenUpdating = False
Dim x%, MyXL As Object, y$
Set MyXL = GetObject("" & ThisWorkbook.Path & "\定额库.xls" & "")
y = Cells(Target.Row, 2)
x = MyXL.Sheets("" & y & "").Range("a:a").Find(Cells(Target.Row, 3).Value).Row
Range("d" & Target.Row) = MyXL.Sheets("" & y & "").Range("b" & x).Value
Range("e" & Target.Row) = MyXL.Sheets("" & y & "").Range("c" & x).Value
Set MyXL = Nothing
100:
Application.ScreenUpdating = True
End Sub

cschina119zj

实在太感谢xhsdham,谢谢你的热心解决了这个难题！

cschina119zj

不好意思,再麻烦你了,在计算表里插入行或者删除行会提示出错.有时删除表格内数据也会出错,看看是什么原因?

xhsdham

换成14楼的代码

cschina119zj

好了,解决了刚才没看到下面又发的代码.

再次谢谢你的鼎力相助！！！

兰色幻想

呵呵,不看刚学的函数就用上了

[em17]

wayy

QUOTE:

以下是引用兰色幻想在2008-1-8 23:25:00的发言：

呵呵,不看刚学的函数就用上了

[em17]

哦，原来那位六段高手是不看兄呀[em05]

不看不看

[em04][em04]

真的是现炒现卖 不知弄得好不好

zsd5237

学习

cschina119zj

不好意思，还是有点小问题请你帮我解决一下，要在定额编号里必须输入和定额库工作簿里完全吻合的定额编号才能引用。如现在在定额编号里输入“1”它也会引用，出现了不精确的项目名称。