哪位大帮忙看一下这个vba该怎么写？提示缺少结束语！

d670785769 · 发表于 2018-6-21 10:21

d670785769 发表于 2018-6-21 10:15
之前是计算前六天的平均值，但带有小数据点，我想要四舍五入取整数

ave = Application.Sum(Range(sh.Cells(i, m), sh.Cells(i, n - 1))) / (d_num - 1)
--最初没有取整数据的是这样写的

yaojil · 发表于 2018-6-21 11:00

试试，不一定成
ave = Application.Round((Application.Sum(Range(sh.Cells(i, m), sh.Cells(i, n - 1))) / (d_num - 1)), 0)

半百 · 发表于 2018-6-21 11:04

For i = 2 To r_num
   ave = Application.Sum(Range(sh.Cells(i, m), sh.Cells(i, n - 1))) / (d_num - 1)'先将前6天的平均值赋给变量
         ave = Application.Round((ave, 0) '再四舍五入取整
         sh.Cells(1, n + 2).Value = ave  '再将取整后的平均数写到单元格中
         newd = sh.Cells(i, n)
         If newd > ave * 1.3 And newd > 3 Then

d670785769 · 发表于 2018-6-21 11:25

有人知道怎么改吗？

d670785769 · 发表于 2018-6-21 14:08

半百发表于 2018-6-21 11:04
For i = 2 To r_num
ave = Application.Sum(Range(sh.Cells(i, m), sh.Cells(i, n - 1))) / (d_num ...

总算弄好了，谢谢大神，非常感谢

d670785769 · 发表于 2018-6-21 14:25

yaojil 发表于 2018-6-21 11:00
试试，不一定成
ave = Application.Round((Application.Sum(Range(sh.Cells(i, m), sh.Cells(i, n - 1))) ...

谢谢大神，成功了

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

[求助] 哪位大帮忙看一下这个vba该怎么写？提示缺少结束语！