تکه کد محاسبه شیب بردار در اکسل

Sub compute()
     
     Dim shib As Single
     
For i = 2 To 20

Set xL = Range(Cells(2, i), Cells(9, i))
Set yL = Range("B1:I1")

     shib = Application.WorksheetFunction.Slope(xL, yL)
    Cells(10, i) = shib
Next i
     End Sub

ویدیو آموزشی این پست را در آپارات ببینید