修改程序语句（已解决）

yjm0809 · 发表于 2018-7-27 19:28

本帖最后由 yjm0809 于 2018-7-28 14:52 编辑

各位大侠好，正在做个小程序，下列语句运行结果是#VALUE!，麻烦帮助修改下，谢谢！
For i = 1 To r
.Cells(i + 7, 4) = Application.SumIf(Sheets("??????????").["x8:x "& r1], Cells(i + 7, 1), Sheets("??????????").["l8:l"&r1])
Next
我估计是红字部分的表述不对，谁能帮助看看，谢谢！！

jiminyanyan · 发表于 2018-7-27 19:30

循环的话，放弃公式吧。。。

yjm0809 · 发表于 2018-7-27 19:33

jiminyanyan 发表于 2018-7-27 19:30
循环的话，放弃公式吧。。。

我只会公式啊，因为要汇总，需将表中的数据汇总到别一个表中啊

iam_buddy · 发表于 2018-7-28 01:43

["x8:x "& r1]不能套用变量的，换range("x8:x "& r1)吧

liulang0808 · 发表于 2018-7-28 08:31

["x8:x "& r1],
修改成range格式的
range（"x8:x "& r1）

yjm0809 · 发表于 2018-7-28 09:53

liulang0808 发表于 2018-7-28 08:31
["x8:x "& r1],
修改成range格式的
range（"x8:x "& r1）

For i = 1 To r - 7
.Cells(i + 7, 4) = Application.SumIf(Sheets("??????????").Range("x8:x " & r1), Cells(i + 7, 1), Sheets("??????????").Range("x8:x " & r1))
Next

修改后显示错误1004，应用程序定义或对象定义错误。请指教，谢谢！！！

liulang0808 · 发表于 2018-7-28 12:24

yjm0809 发表于 2018-7-28 09:53
For i = 1 To r - 7
.Cells(i + 7, 4) = Application.SumIf(Sheets("??????????").Range("x8:x " ...

楼主上传下附件看看吧

duquancai · 发表于 2018-7-28 13:09

yjm0809 发表于 2018-7-28 09:53
For i = 1 To r - 7
.Cells(i + 7, 4) = Application.SumIf(Sheets("??????????").Range("x8:x " ...

请移步到这里：

http://club.excelhome.net/forum. ... p;page=1#pid9602024

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

[求助] 修改程序语句（已解决）