帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2013-10-25
最後登錄: 2013-12-2

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-11-28 09:59 | 只看該作者

可以在function中另兩個陣列中的值相減

請問一下各位前輩

我想寫一個function , input中有兩個是arrayA 和 arrayB  , 其中arrayA 是會改變的 ,arrayB是固定的

在function裡我想要讓arrayA - arrayB 成為一個變數 arrayC , 進而對 arrayC 求平均  但不知到哪邊出了錯?

附上我的程式碼請大家幫我看一下  謝謝囉

我寫的function是 module1 裡的 TrkErr

Test.rar (23.44 KB)

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-11-29 15:22 | 只看該作者

arrayA - arrayB 成為一個變數 arrayC , 進而對 arrayC 求平均
ldneye 發表於 2013-11-28 09:59

看不懂TrkErr功能

你說 arrayA - arrayB 成為 arrayC
那求arrayC 平均 = arrayA平均 - arrayB平均就好了啊

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2013-11-29 16:11 | 只看該作者

FN = Arr.Count

   For x = 1 To FN
      ReDim Crr(x)
      Crr(x) = Arr(x) - Brr(x)
   Next

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2013-11-29 17:51 | 只看該作者

3#不對 REDIM 不能在迴圈裡

FN = Arr.Count

   ReDim Crr(x)
For x = 1 To FN
      Crr(x) = Arr(x) - Brr(x)
   Next

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2013-11-29 17:55 | 只看該作者

本帖最後由 ML089 於 2013-11-29 17:58 編輯

Function TrkErr(Arr As Range, Brr As Range, FN As Integer) As Double

Dim avg As Single, SumSq As Single ', Crr As Range
Dim i As Range
'FN 是loop的次數也是整個資料的rows -1 ;
'因為我沒有更好的方法可以直接在function裡求所以改為input
'如果有更好的方法也請告知  謝謝唷

FN = Arr.Count
ReDim Crr(FN)
For x = 1 To Arr.Count
      Crr(x) = Arr(x) - Brr(x)
Next

' Brr是固定的  Arr是不同的公司

avg = WorksheetFunction.Average(Crr)

For Each i In Arr
      SumSq = SumSq + (i - avg) ^ 2
Next i

FN = Arr.Count
TrkErr = Sqr(SumSq / (FN - 1))

End Function

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

6^#

發表於 2013-11-29 18:05 | 只看該作者

這是另一種練習寫法，請參考

Function TrkErr(Arr As Range, Brr As Range, FN As Integer) As Double
Dim avg As Single, SumSq As Single
FN = Arr.Count
Crr = Application.Evaluate(Arr.Address & "-" & Brr.Address)
avg = WorksheetFunction.Average(Crr)

For Each i In Arr
SumSq = SumSq + (i - avg) ^ 2
Next i
TrkErr = Sqr(SumSq / (FN - 1))
End Function

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ldneye