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

d670785769

ave = Application.Round(ave, 0),sh.Cells(i, n - 1))) / (d_num - 1

yylucke

你自己看看吧，缺了多少左括号

d670785769

yylucke 发表于 2018-6-20 17:02
你自己看看吧，缺了多少左括号

真弄不懂了，
  ave = Application.Round(ave, 0), sh.Cells(i, n - 1)) / (d_num - 1)

大神，帮帮忙

yaojil

ave = Application.Round((ave, 0), (sh.Cells(i, n - 1) / (d_num - 1)))

d670785769

Sub caltrend()
    Dim sh As Worksheet
    Dim i, k, m, n As Integer
    Dim d_num, r_num As Integer
   
    Application.ScreenUpdating = False
   
   
    For k = 3 To Sheets.Count
   
        Set sh = Sheets(k)
        
        d_num = 7
        'd_num是天数(取的数据范围)，n是结束列，m是开始列
        n = sh.Cells(1, 1).End(xlToRight).Column - 1
        m = n - d_num + 1
        r_num = sh.Cells(1, 1).End(xlDown).Row
        sh.Columns(n + 2).Delete
        
        For i = 2 To r_num
        
           ave = Application.Round((ave, 0), (sh.Cells(i, n - 1) /(d_num - 1)))
             'Application.Round(ave, 0)四舍五入取整
            sh.Cells(1, n + 2).Value = "前6天均值"
            newd = sh.Cells(i, n)
            If newd > ave * 1.3 And newd > 3 Then
                sh.Cells(i, n + 2).Interior.Color = RGB(204, 0, 0)
            End If
            
        Next i
        
    Next
   
    Application.ScreenUpdating = True


End Sub

d670785769

yaojil 发表于 2018-6-20 18:00
ave = Application.Round((ave, 0), (sh.Cells(i, n - 1) / (d_num - 1)))

Sub caltrend()
    Dim sh As Worksheet
    Dim i, k, m, n As Integer
    Dim d_num, r_num As Integer
   
    Application.ScreenUpdating = False
   
   
    For k = 3 To Sheets.Count
   
        Set sh = Sheets(k)
        
        d_num = 7
        'd_num是天数(取的数据范围)，n是结束列，m是开始列
        n = sh.Cells(1, 1).End(xlToRight).Column - 1
        m = n - d_num + 1
        r_num = sh.Cells(1, 1).End(xlDown).Row
        sh.Columns(n + 2).Delete
        
        For i = 2 To r_num
        
           ave = Application.Round((ave, 0), (sh.Cells(i, n - 1) /(d_num - 1)))
             'Application.Round(ave, 0)四舍五入取整
            sh.Cells(1, n + 2).Value = "前6天均值"
            newd = sh.Cells(i, n)
            If newd > ave * 1.3 And newd > 3 Then
                sh.Cells(i, n + 2).Interior.Color = RGB(204, 0, 0)
            End If
            
        Next i
        
    Next
   
    Application.ScreenUpdating = True


End Sub




那句还是有问题，大神再帮忙看看

yaojil

Application.Round(ave, 0)四舍五入取整
ave 初始值是多少呀?

ggmmlol

废话万千，不如一个附件。

半百

ave = Application.Round((ave, 0), (sh.Cells(i, n - 1) /(d_num - 1)))
你就解释一下这一句你想达到什么目的？

d670785769

半百 发表于 2018-6-21 04:05
ave = Application.Round((ave, 0), (sh.Cells(i, n - 1) /(d_num - 1)))
你就解释一下这一句你想达到什么 ...

之前是计算前六天的平均值，但带有小数据点，我想要四舍五入取整数