[求助]VBA中公式引用单元格值

xvdongszhp

用vba添加公式并引用单元格值作为公式中一部份的问题

单元格A1中的值为Book1

说明：A1中的值为 Book1工作表名，随时变动

单元格B2中用到公式 =VLOOKUP(A1,[Book1.xls]Sheet1!$A:$B,2,FALSE)

说明：公式中Book1为A1单元格值，随时变动

求问:用vba在B2中添加公式，如何直接把A1中的值Book1引用到B2的公式中?VBA中公式如何表示

示例如下：

Book2工作表

	A	B
1	Book1
2	1	=VLOOKUP(A2,[Book1.xls]Sheet1!$A:$B,2,FALSE)

Book1工作表

	A	B
1	1	DF
2	2	G
3	3	H
4	4	F
5	5	HF
6	6	SF
7	7	G
8	8	SD
9	9	DS
10	10	FG

谢谢!

dxy27

5EOQNDnY.rar (5.67 KB, 下载次数: 1373)

2007-6-2 23:48 上传

点击文件名下载附件
[求助]VBA中公式引用单元格值

xvdongszhp

谢谢dxy27老师帮助,函数问题已解决.想用VBA公式已下公式提示错误,如何修改.

Sub jh2()
t = Sheets(1).[a1] & ".xls"
[d1].Value = Application.WorksheetFunction.VLookup("RC[-1]," & "[" & t & "]" & "Sheet1!C1:C2, 2, False")
End Sub

谢谢!

dxy27

Sub jh2()
t = Sheets(1).[a1] & ".xls"
Sheets(1).[d1].FormulaR1C1 = "=VLOOKUP(RC[-1]," & "[" & t & "]" & "Sheet1!C1:C2,2,FALSE)"
End Sub

[此贴子已经被作者于2007-6-3 15:52:27编辑过]

xvdongszhp

谢谢dxy27老师的再次回复,我是想把结果直接显示到工作表中,不是在单元格显示公式:

我把你在二楼传回的代码

Sub dxy()
t = Sheets(1).[a1] & ".xls"
Sheets(1).[b2].FormulaR1C1 = "=VLOOKUP(RC[-1]," & "[" & t & "]" & "Sheet1!C1:C2,2,FALSE)"
End Sub

想转变为

Sub dxy()
t = Sheets(1).[a1] & ".xls"
Sheets(1).[b2].FormulaR1C1 = Application.WorksheetFunction.VLOOKUP("RC[-1]," & "[" & t & "]" & "Sheet1!C1:C2,2,FALSE")
End Sub

提示参数不可选,请指导,谢谢!

我想达到的效果象如下结果:

Sub jh2()
[b2].Value = Application.WorksheetFunction.VLookup(Range("a2"), Range("c1:d18"), 2, False)
End Sub

只是将Range("c1:d18")改为了变动数据(A1单元格值),希望能将红色标出代码修改一下

[此贴子已经被作者于2007-6-3 22:17:16编辑过]

sunyu4082

好好学习 我一直在寻找