帖子: 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)

ldneye

小學生 Rank: 1

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

10^#

發表於 2013-12-2 19:50 | 只看該作者

回復 9# ML089

謝謝你的回覆我檢查了一下是我有個cells 從零開始了 @@ 不好意思阿

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猴年全勤獎章

9^#

發表於 2013-12-2 08:56 | 只看該作者

回復 8# ldneye

語法沒有錯誤
應該是 k 沒有值或為0所致，請設中斷點及按F8逐條查看 k 的變化

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

TOP

ldneye

小學生 Rank: 1

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

8^#

發表於 2013-12-2 04:51 | 只看該作者

回復 6# ML089

謝謝ML大我試了你的兩個方法都沒辦法跑根據我檢查的結果程式總是在 Set AP = Range(Cells(k, 3), Cells(k, 14)) 這行跑不過去不知道這樣的寫法是有什麼問題嗎??

TOP

ldneye

小學生 Rank: 1

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

7^#

發表於 2013-12-2 04:41 | 只看該作者

回復 2# stillfish00

謝謝，這個方法我一時沒有想到以後會記住的啦感謝唷

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

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