[已解决]看看这个代码该怎样改

zxc1152468 · 发表于 2011-8-23 11:15

Sheets("汇总表").Cells(4, 3) = Evaluate("=SUM(中药房门诊! range（cells(2，1),cells(2，3)))

最佳答案

EXCEL-YQ

2011-8-23 12:14

Sheets("汇总表").Cells(4, 3) = Evaluate("=SUM(中药房门诊!" & range(cells(2，1),cells(2，3)) & ")"

9lee · 发表于 2011-8-23 11:34

本帖最后由 9lee 于 2011-8-23 11:35 编辑

把其中的全角括号变成半角的：
Sheets("汇总表").Cells(4, 3) = Evaluate("=SUM(中药房门诊! range(cells(2，1),cells(2，3)))

EXCEL-YQ · 发表于 2011-8-23 11:36

Sheets("汇总表").Cells(4, 3) = Evaluate("=SUM(中药房门诊!a2:c2)")

zxc1152468 · 发表于 2011-8-23 12:07

回复 EXCEL-YQ 的帖子

我是想用cells好用变量

zxc1152468 · 发表于 2011-8-23 12:08

cells 不要改可以吗

EXCEL-YQ · 发表于 2011-8-23 12:14

Sheets("汇总表").Cells(4, 3) = Evaluate("=SUM(中药房门诊!" & range(cells(2，1),cells(2，3)) & ")"

QLZ0602 · 发表于 2011-8-23 12:16

最好传上附件

jiangslly · 发表于 2011-8-23 12:24

回复 zxc1152468 的帖子

你不觉得丢了引号吗？

cjainwei · 发表于 2011-8-23 12:28

用VBA就应该尽量少用函数，两者混起来，会乱的

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