求达人给做一个调用其他表数据的程序

atao0101

最好可以把表内的选项卡和调用制作成一年的。

lfspecter

1.zip (9.01 KB, 下载次数: 7)

2014-12-20 06:17 上传

点击文件名下载附件

dengjq2000

结合您现有的数数据结构，工作簿：“绩效核算表.xls”单元格A4公式：

1. =INDIRECT("[员工业绩统计表.xls]"&$B$2&"!R"&ROW($A2)&"C"&COLUMN(A$1)-LOOKUP(COLUMN(A$1),{0,4,6,8},{0,1,2,3}),)

复制代码

往下拉，然后复制该列有效区域，分别粘贴到：B列、D列、F列、H列。

不过还是建议您原始数据与绩效核算表最好放在一个工作簿不同工作表里来处理。（具体见，工作簿：”员工业绩统计表.xls“的工作表：”核算总表“。

笑着...两年过去

1. Sub text1()
   
2.      With GetObject(ThisWorkbook.Path & "\员工业绩统计表.xls")
   
3.      For i = 4 To 12
   
4.          Cells(i, 2) = .Sheets([b2] & "").Cells(i - 2, 2)
   
5.          For j = 1 To 3
   
6.              Cells(i, j * 2 + 2) = .Sheets([b2] & "").Cells(i - 2, j + 2)
   
7.          Next
   
8.      Next
   
9.      .Close False
   
10.      End With
    
11. End Sub

复制代码

笑着...两年过去

绩效核算.rar (20.5 KB, 下载次数: 9)

2014-12-20 13:41 上传

点击文件名下载附件

atao0101

笑着...两年过去 发表于 2014-12-20 13:41

您好！我看不懂您写的代码，但我很想知道，如果我在表内扩展了更多的数据列，修改哪个参数来引用其他表中相应列呢？

atao0101

dengjq2000 发表于 2014-12-20 08:57
结合您现有的数数据结构，工作簿：“绩效核算表.xls”单元格A4公式：往下拉，然后复制该列有效区域，分别粘 ...

大侠好！我想知道如果我想要查询的列更多，怎么扩展，具体靠哪个参数控制？

dengjq2000

atao0101 发表于 2014-12-23 23:50
大侠好！我想知道如果我想要查询的列更多，怎么扩展，具体靠哪个参数控制？

您要怎么扩展列，这需要说具体的。
其实只需要理解该公式就好了。
=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(A$1)-LOOKUP(COLUMN(A$1),{0,4,6,8},{0,1,2,3}),)
这公式其实是（具体见附件的第19行）：
A列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(A$1)-0,)
B列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(B$1)-0,)
D列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(D$1)-1,)
F列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(F$1)-2,)
H列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(H$1)-3,)
这五列后面列位数值的转换，通过一个LOOKUP函数转换来实现往右拉的目的。
您若不想这样，您也可以一列一列公式分开成（具体见附件的第27行）：
A列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(A$1),)
B列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(B$1),)
D列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(C$1),)
F列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(D$1),)
H列：=INDIRECT($B$2&"!R"&ROW($A2)&"C"&COLUMN(E$1),)
要扩展只需把要引用列号进行相应修改就是

atao0101

dengjq2000 发表于 2014-12-24 08:03
您要怎么扩展列，这需要说具体的。
其实只需要理解该公式就好了。
=INDIRECT($B$2&"!R"&ROW($A2)&"C"&C ...

非常感谢！