[حل شده] مشکل با تابع slope

[mmazad]

سلام
من برای یه مجموعه داده نمونه توسط تابع slope شیب بردار رو حساب می کنم.
همین طور که میدونید به دو صورت میشه این کارو کرد

1. در محیط اکسل تابع slope رو فراخوانی کرد و Range رو بهش داد
2. در محیط Developer براش کد بنویسیم

اما مشکل اینحا هست که نتیجه حالت کد نویسی شده با حالت معمول فرق می کنه؟

shib = Application.WorksheetFunction.Slope(Arr, Arr1)

• Arr: همون بردار داده هست
• Arr1: یه آرایه به تعداد عناصر بردار داده
  این در حالیه که اگه به جای این آرایه ها Range داده ها رو بدم مشکل حل میشه اما چون باید جاهای مختلف فایل اکسل رو پیمایش کنم از آرایه استفاده کردم که راحت تر باشم

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : محاسبه تابع Slope به وسیله Vba


پایدار باشید میر

[generalsamad]

با سلام
چون مشکلتون در کد نویسی بوده باید در تالار مربوطه سوالتون رو بیان میکردید
این هم یک نمونه دیگه

Private Sub CommandButton1_Click()
Set xL = Range("A2:A7")
Set yL = Range("B2:B7")
slopel = Application.WorksheetFunction.Slope(yL, xL)
MsgBox slopel
Range("D8") = slopel
End Sub 

فایل ضمیمه گردید

[mmazad]

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

ممنون ار همه علت این بود که من از Range استفاده نکرده بودم اما با کد بالا اومدم بخشی از سلول ها رو به Range تبدیل کردم. که مشکلم حل شد. با سپاس فراوان همه دوستان