返回列表下一主題上一主題發帖

[發問] array怎麼計算平均、標準差?

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-7-26 15:18 | 只看該作者

[發問] array怎麼計算平均、標準差?

我有個 array, 我想要用迴圈去算Array(0),Array(1)...,Array(n)的 STDEV及AVERAGE
WorksheetFunction.StDev(引數1, 引數2)
我不知怎麼把 array 的值餵給他，所以我把 array先印到某一個 Sheet 上，再用
WorksheetFunction.StDev(Range("Sheet").Cells(),("Sheet").Cells())
去抓值
這樣要先印出來再抓值有點慢
請問怎麼寫才能直接餵引數給 StDev 嗎?
--------------------------------
程式如下
For i = 0 To tRow - 1
MaxL(i) = Application.Max(Cells(StartRow + i, 3), Cells(StartRow + i, 4)) ' Loundness
MaxT(i) = Application.Max(Cells(StartRow + i, 6), Cells(StartRow + i, 7)) ' Tonality
Next i

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-26 15:37 | 只看該作者

回復 1# acdx

Ar(1) = Array(50, 60, 70, 80)
Ar(2) = Array(150, 260, 370, 480)
Maxl = Application.StDev(Ar(1), Ar(2))

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

3^#

發表於 2013-7-26 15:56 | 只看該作者

回復 2# GBKEE
G大
我的矩陣大小是變數MaxL(i)=MaxL(0),MaxL(1),MaxL(2),...,MaxL(tRow - 1)
MaxT(i)=MaxT(0),MaxT(1),MaxT(2),...,MaxT(tRow-1)
tRow每次的值可能都會不一樣
該如何求MaxL(0),MaxL(1),MaxL(2),...,MaxL(tRow - 1)的表準差/平均值
及MaxT(0),MaxT(1),MaxT(2),...,MaxT(tRow-1)的表準差/平均值

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-7-26 16:49 | 只看該作者

回復 3# acdx

Option Explicit
Sub Ex()
Dim Ar(1 To 2), Maxl, Maxt, tRow
Ar(1) = Array(6, 7, 5, 8, 9, 1, 2, 0, 22, 28)
Ar(2) = Array(16, 17, 25, 18, 29, 31, 22, 20)
For tRow = 1 To UBound(Ar(1))
Maxl = Ar(1)
Maxt = Ar(2)
ReDim Preserve Maxl(tRow) '元素數 -> 0 TO tRow = tRow+1
ReDim Preserve Maxt(tRow)
'Preserve 選擇性引數。當改變原有陣列最後一維的大小時，仍然保有原來的資料的關鍵字。
Cells(tRow, "A") = Application.StDev(Maxl) / Application.Average(Maxl)
Cells(tRow, "B") = Application.StDev(Maxt) / Application.Average(Maxt)
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題