用vb如何计算两个表格中同一记录的字段的乘积

火火蒲 · 发表于 2015-3-19 15:34

表1有人员字段，表2有人均月收入字段。要计算每个家庭的总收入=表1.人员数*表2.人均月收入*12，然后将值写入excel表格对应家庭中去，详见附件，谢谢！

zhaogang1960 · 发表于 2015-3-19 15:56

请参考：
Sub Macro1()
Dim cnn As Object, SQL$
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\js.mdb"
SQL = "SELECT 地区码,家庭码,人员数,人员数*人均月收入*12 FROM 表1 a LEFT JOIN 表2 b ON a.家庭码=b.家庭"
[a1].CurrentRegion.Offset(1).ClearContents
[a2].CopyFromRecordset cnn.Execute(SQL)
cnn.Close
Set cnn = Nothing
End Sub

zhaogang1960 · 发表于 2015-3-19 15:57

请测试附件

计算家庭总收入.rar (17.75 KB, 下载次数: 12)

火火蒲 · 发表于 2019-3-8 23:29

谢谢您！辛苦了

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

[已解决] 用vb如何计算两个表格中同一记录的字段的乘积

最新热点 /1