请教各位大神，VPa不完善，请帮我看下

wyq9158

请教各位大神，VPa不完善，请帮我看下

opel-wong

看什么？
附件在哪里？
要求在哪里？

wyq9158

VPA不完善，请各位大帮忙看下，

格物郅知

VPa改成VBA就对了。。。。。虽然我很想直接这么回你。。。。但想到我第一个贴甚至发错版块，你还是上个附件和具体说明吧。

yes363001640

是要这个？你复制过来的函数代码都没放对，End Function的位置不对，有的又没有函数头。没看懂要干啥

wyq9158

yes363001640 发表于 2020-1-13 10:31
是要这个？你复制过来的函数代码都没放对，End Function的位置不对，有的又没有函数头。没看懂要干啥

复件第二个表是VBA函数，运行不了

yes363001640

wyq9158 发表于 2020-1-13 14:25
复件第二个表是VBA函数，运行不了

End Function要放到最后。还有那些没有函数头的也删除。同一个函数搞那么多干啥？

1. Function getTrendLine(RngX As Range)
   
2. Application.Volatile
   
3. On Error Resume Next
   
4. Dim iChart As Chart
   
5. Set iChart = ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Chart
   
6. iChart.SetSourceData Source:=RngX
   
7. Dim iTrendline As Trendline
   
8. Set iTrendline = iChart.FullSeriesCollection(1).Trendlines.Add
   
9. Dim TrendLineType, TrendLineEqu, TrendLineRS, TrendLineStr
   
10. With iTrendline
    
11. .Type = xlPolynomial
    
12. .Order = 3
    
13. .DisplayRSquared = True
    
14. .DisplayEquation = True
    
15. .DataLabel.Select
    
16. TrendLineStr = Selection.Text
    
17. TrendLineEqu = Split(TrendLineStr, " ")(0)
    
18. TrendLineRS = Split(TrendLineStr, " ")(1)
    
19. .DisplayRSquared = False
    
20. .DisplayEquation = False
    
21. End With
    
22. iChart.Parent.Delete
    
23. getTrendLine = TrendLineEqu
    
24. End Function

复制代码

wyq9158

yes363001640 发表于 2020-1-13 14:30
End Function要放到最后。还有那些没有函数头的也删除。同一个函数搞那么多干啥？

谢谢大神指教