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

cschina119zj · 发表于 2008-1-8 09:30

有两个工作簿,如何实现自动引用相关的条件?

这个问题已经由不看版主解决了，再此感谢他！！！

还有一个窗口怎么解决？如图及附件：

附件：

89sNa4N7.rar (69.56 KB, 下载次数: 30)

xhsdham · 发表于 2008-1-8 16:19

类似这样就可以

Range("C6:d6") = Workbooks("定额库").Sheets("" & Range("b6").Value & "").Range("a2:b2").Value

[此贴子已经被作者于2008-1-8 16:20:11编辑过]

xhsdham · 发表于 2008-1-8 16:38

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$B$6" Then
Dim x&
x = Workbooks("定额库").Sheets("" & Range("b6").Value & "").Range("a65536").End(xlUp).Row
Range("C6").Resize(x - 1, 2) = Workbooks("定额库").Sheets("" & Range("b6").Value & "").Range("a2:b" & x).Value
End If
Application.ScreenUpdating = True
End Sub

要都是打开的

xhsdham · 发表于 2008-1-8 16:56

V59uat54.rar (69.91 KB, 下载次数: 18)

cschina119zj · 发表于 2008-1-8 17:13

谢谢xhsdham的热心解答,

我的本意不是把定额库里都复制过来,在我选定工程类别的时候就引用定额库工作簿里面相应的相同名称的工作表.

在我输入定额编号后,在后面的项目名称和单位自动填入.如我在工程类别下拉菜单里选取93预算,在定额编号例输入1-1,后面的项目名称和单位里自动填入跟定额库工作簿93预算工作表里1-1后面相同的项目名称和单位.

xhsdham · 发表于 2008-1-8 17:29

你的要求没仔细看这是不用两个表都同时打开的看你也写了不少代码其它的应该会把

mZhiz8Pm.rar (72.67 KB, 下载次数: 27)

cschina119zj · 发表于 2008-1-8 17:49

定额库工作簿打不打开没关系,主要是我选取了一个工程类别,输入定额编号,后面显示一行的项目名称和单位名称,而不是全部把定额库里全部复制过来.

[此贴子已经被作者于2008-1-12 16:13:35编辑过]

xhsdham · 发表于 2008-1-8 18:10

哦这个意思

xhsdham · 发表于 2008-1-8 18:50

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 3 Or Target.Column <> 3 Or Target = "" Or Cells(Target.Row, 2) = "" Then Exit Sub
On Error GoTo 100
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
Set MyXL = Nothing
100:
Application.ScreenUpdating = True
End Sub

xhsdham · 发表于 2008-1-8 18:54

nxtjlTux.rar (60.1 KB, 下载次数: 21)

		自动登录	找回密码
密码			注册