紧急求助！根据两个表的数据自动关联并求乘积

daocaodadi · 发表于 2017-3-21 03:45

问题.rar (6.96 KB, 下载次数: 5) 如附件所示，根据表格2和表格3的数据在表格1中自动得到乘积

yeminqiang · 发表于 2017-3-21 08:23

Sub cdsr()
Dim cnn As Object, rs As Object, i&, SQL$
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
SQL = "select a.项目,a.一月数量*b.单价 as 一月金额,a.二月数量*b.单价 as 二月金额,a.三月数量*b.单价 as 三月金额 from [数据2$] a,[数据1$] b where a.项目=b.项目"
Set rs = cnn.Execute(SQL)
With Sheets("结果")
.Range("a1:d10000").ClearContents
For i = 1 To rs.Fields.Count
.Cells(1, i) = rs.Fields(i - 1).Name
Next
.Range("a2").CopyFromRecordset rs
End With
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

复制代码

yeminqiang · 发表于 2017-3-21 08:24

问题.zip (18.98 KB, 下载次数: 5)

daocaodadi · 发表于 2017-3-21 10:25

本帖最后由 daocaodadi 于 2017-3-21 10:28 编辑

非常感谢菜刀湿人，要不然我的一个项目一个项目计算，非搞死我不可。

ggsmart · 发表于 2017-3-21 19:18

用公式就可以解决了。见附件。

问题.rar (8 KB, 下载次数: 4)

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