[求助]同一个工作簿内2个工作表之间求和

woni123654

VBA新人求问 请帮忙 谢谢
如图 我想让 sheet1的A1等于 sheet2的 b1至d1数值的求和 都是整数




下面是我自己写的代码
虽然结果是正确 是我要的结果
但是如图2所示 选中单元格 里面有公示显示
VBA应该是 只能看到结果 而看不到公示的
我的这个代码写的肯定不对
这就好比 一个英文初学者  说的中国式英语一样。
能让人听懂 但是逻辑不对。。
求高手 帮我写一个正确的逻辑代码(结果只能看到数值 不能像我图2那样显示公示) 谢谢
Sub 跨表求和()
Sheet1.[A1] = "=SUM(Sheet2!B1:D1)"
End Sub

liulang0808

Sheet1.[A1] = worksheetfunction.SUM(Sheet2.range("B1:D1"))
看看这个吧

woni123654

liulang0808 发表于 2018-9-6 08:25
Sheet1.[A1] = worksheetfunction.SUM(Sheet2.range("B1:D1"))
看看这个吧

谢谢 不过我发现了一个比这个更简洁的代码

liulang0808

woni123654 发表于 2018-9-6 19:35
谢谢 不过我发现了一个比这个更简洁的代码

有好的解决办法，分享下

woni123654

liulang0808 发表于 2018-9-6 20:20
有好的解决办法，分享下

哪敢。。我纯小白这不是班门弄斧么

您看看下我写的  
这个evaluate 我感觉功能和您的那个一样 而且这个要简洁一些
Sub 跨表求和()
Sheet1.[a5] = Sheet2.Evaluate("=Sum(b1:b6)")
End Sub

woni123654

liulang0808 发表于 2018-9-6 20:20
有好的解决办法，分享下

还有一个问题请教您？？
我现在只会 同一个工作簿内 多个工作表之间引用数据求和
但是如果 跨工作簿呢？ 地址应该怎么写 怎么放进代码中
需要引用不同文件夹的另外一个工作簿  地址在
F:\WPS\VBA调试\[北京.xlsx]sheet2

求帮忙把引用的地址加进去 谢谢
Sub 跨表求和()
Sheet1.[a5] = Sheet2.Evaluate("=Sum(b1:b6)")
End Sub

liulang0808

woni123654 发表于 2018-9-6 20:28
还有一个问题请教您？？
我现在只会 同一个工作簿内 多个工作表之间引用数据求和
但是如果 跨工作簿呢 ...

打开工作薄，直接处理啊

woni123654

liulang0808 发表于 2018-9-6 20:32
打开工作薄，直接处理啊

不懂。。
您帮我这个操作写进代码可以么
谢谢
简答地说 不用VBA 就用函数公式
这样写
=sum('F:\WPS\VBA调试\[北京.xlsx]sheet2'!$K$5:$N$5)

那用VBA呢 怎么写？
谢谢

liulang0808

with workbooks.open("F:\WPS\VBA调试\北京.xlsx")
a=worksheetfunction.SUM(.sheet2.range($K$5:$N$5))
end with

woni123654

liulang0808 发表于 2018-9-6 20:41
with workbooks.open("F:\WPS\VBA调试\北京.xlsx")
a=worksheetfunction.SUM(.sheet2.range($K$5:$N$5))
...

不行呀
您这个 只是打开另外一个工作簿呀。。我只是想引用里面的数据呀 而不是打开工作簿。。